（转帖）网人分类信息网站版权修改或去除 希望能有用
打开INC 文件夹进行修改就是加密的麻烦了点，一个CHR，还有BASE64,还有UTF的字符转换等等。。
一、首页和其它页面的版权
1、去掉网人源文件版权
1）CLS.TEMPLATES.ASP 第54行
SiteTemplates = SiteTemplates & vbCrLf & CHR(60)&CHR(115)&CHR(112)&CHR(97)&CHR(110)&CHR(32)&CHR(115)&CHR(116)&CHR(121)&CHR(108)&CHR(101)&CHR(61)&CHR(34)&CHR(100)&CHR(105)&CHR(115)&CHR(112)&CHR(108)&CHR(97)&CHR(121)&CHR(58)&CHR(110)&CHR(111)&CHR(110)&CHR(101)&CHR(34)&CHR(62)&CHR(80)&CHR(117)&CHR(98)&CHR(108)&CHR(105)&CHR(115)&CHR(104)&CHR(101)&CHR(100)&CHR(32)&CHR(97)&CHR(116)&CHR(32)&Now()&CHR(44)&CHR(32)&CHR(80)&CHR(111)&CHR(119)&CHR(101)&CHR(114)&CHR(101)&CHR(100)&CHR(32)&CHR(66)&CHR(121)&CHR(32) &CHR(87)&CHR(82)&CHR(77)&CHR(80)&CHR(83) &CHR(32)&CHR(118)&SystemVersion&CHR(40)&Replace(Replace(ConnTypeStr,0,"ACCESS"),1,"MSSQL")&CHR(41)&CHR(32)&SystemVersionType&CHR(60)&CHR(47)&CHR(115)&CHR(112)&CHR(97)&CHR(110)&CHR(62)
其时从&CHR(87)&CHR(82)&CHR(77)&CHR(80)&CHR(83)这一段代表了WRMPS这几个字母，这是一种chr码值，你们可以换成你们要的码值，不要的话就整行去了也没事！
2）CLS.TEMPLATES.ASP 第213行至 第215行
Str = WRMPS.GetReplace(Str,"{$P"&"o"&"w"&"e"&"r"&"e"&"d}","P"&"o"&"w"&"e"&"r"&"e"&"d B"&"y <a href=’ht"&"tp:/"&"/w"&_
"w"&"w.wa"&"ng"&"r"&"en"&".n"&"e"&"t’ target=_blank>W"&"R"&"M"&"P"&_
"S v"&SystemVersion&"</a> 20"&"06"&"-20"&"09 W"&"a"&"n"&"g"&"r"&"en I"&"nc"&".")
这个我就不用多说了！你们认真看就知！
2、CONN.ASP 第31行
Const SystemVersion = "5.0.1" 这是修改版本，可以换成你们要的名子
3、Cls.Common.asp
第406行
.Write "<tr><td style=’padding:10px 0 0 0;text-align:center;’><a href=’http://www.wangren.net’ target=_blank style=’color:#CCCCCC’>Powered By WRMPS "&SystemVersion&"</a></td></tr>"
第432行
.Write "<tr><td style=’padding:10px 0 0 0;text-align:center;’><a href=’http://www.wangren.net’ target=_blank style=’color:#CCCCCC’>Powered By WRMPS "&SystemVersion&"</a></td></tr>"
4、Member/Cook.Asp 第66行
GetBottom = "<div id=clearboth></div><div style=’color:#CCCCCC;float:right’>P"&"o"&"w"&"e"&"r"&"e"&"d B"&"y <a href=’ht"&"tp:/"&"/w"&"w"&"w.wa"&"ng"&"r"&"en"&".n"&"e"&"t’ target=_blank><span style=’color:#CCCCCC’>W"&"R"&"M"&"P"&"S v"&SystemVersion&"</span></a></div>"&WR_Setting(12)
5、/Plus/Map/51ditu/Index.asp 第25行
<div style=’position:absolute;bottom:0px;padding:2px;text-align:center;height:18px;width:200px;background-color:red;z-index:1000;font-size:12px; overflow: hidden’><a href=http://www.wangren.net target=_blank onfocus="this.blur()"><font color=#FFFFFF>网 人 科技 (分类)信息发布系统专家</font></a></div>
/Plus/Map/51ditu/Company.asp 第72行
<div style=’position:absolute;bottom:0px;padding:2px;text-align:center;height:18px;width:200px;background-color:red;z-index:1000;font-size:12px; overflow: hidden’><a href=http://www.wangren.net target=_blank onfocus="this.blur()"><font color=#FFFFFF>网人科技 (分类)信息发布系统专家</font></a></div>
其时“人”这些是UTF-8，大家网上找UTF-8与GB2312之间的互换就行了
二、后台版权
Admin_Main.Asp 第7行
Content = Content & "<tr><td colspan=3 class=td3>本系统由<a href=http://www.wangren.net target=_blank>网人科技(Wangren.Net)</a>授权给 "&WR_Setting(0)&" 使用，当前版本为 WRMPS v"&SystemVersion&"("&Replace(Replace(ConnTypeStr,0,"ACCESS"),1,"MSSQL")&")</td></tr>" & vbCrLf
Admin_Manage.asp 第68行
M_Bottom = "<div style=’float:right;filter:shadow(Color=#000000,direction=135);font-weight:bolder’ class=Font4><strong>WRMPS "&SystemVersion&"("&Replace(Replace(ConnTypeStr,0,"ACCESS"),1,"MSSQL")&") "&CnVersion&"</strong> </div>" & vbCrLf
WM.Sys_Setup.asp 第169行
XML = XML & "<!--Powered By WRMPS v"&SystemVersion&"-->" & vbCrLf
WM.Sys_Cook.asp 第115行
Response.Write "Copyright ? 2004-2009 <a href=http://www.wangren.net target=_blank><font face=Verdana, Arial, Helvetica, sans-serif><b><font color=#990000>WangRen</font><font color=blue>.Net</font></b></font></a> Inc. All rights reserved."
对了差点忘记一件事！大家有没有发觉在后台增加店铺时地图一打开就是西安的
/Plus/Map/51ditu/Index.asp 第34行
If xy = "" or Isnull(xy) Then xy = "10884937,3441544"
把“10884937,3441544”这个数值去51DITU查一下你们当地的数值，换成你们的，这样以后在增加店铺时地图一打开就是你们当地的地图！ 感谢楼主，正需要这个 拿走 拿走，没想现在越来越厉害了 怎么不上图啊 ？连个预览都没有! 感谢楼主
{:10_533:} 回帖收藏谢谢楼主 留名，备用！ 还是楼主在行！ 还是楼主在行！ 还是楼主在行！
页:
[1]
2