网人分类信息程序新版版权删除修改-网上找的,有点用。就是加密的麻烦了点,一个CHR,还有BASE64,还有UTF的字符转换等等。。一、首页和其它页面的版权1、去掉网人源文件版权1)CLS.TEMPLATES.ASP...

谷子猫博客

一个简单爱分享的小站!^_^!
首页>> 网文转载 >>网人分类信息程序新版版权删除修改
网上找的,有点用。

就是加密的麻烦了点,一个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>
其时“&#x4EBA”这些是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查一下你们当地的数值,换成你们的,这样以后在增加店铺时地图一打开就是你们当地的地图!

谷子猫看了下,对于新版的5.02还是有效的。

×

感谢您的支持,我们会一直保持!

扫码支持
请土豪扫码随意打赏

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

打赏作者
版权所有,转载注意明处:谷子博客 » 网人分类信息程序新版版权删除修改
标签: 免费 工具 代码 程序

发表评论

路人甲

网友评论(0)