修改网人系统版权信息

最新推荐文章于 2018-12-28 22:10:00 发布

cookie-niu

最新推荐文章于 2018-12-28 22:10:00 发布

阅读量1.4k

点赞数

分类专栏： cms

cms 专栏收录该内容

18 篇文章 0 订阅

订阅专栏

曲阳信息网 www.quyang.me用网人开发。欢迎大家参考！

如果要是去掉网站底部的版权信息，我们可以直接到后台，点击风格>>标签管理>>自定义标签>>修改{$My_Bottom}即可。

如果要是修改其他的地方，那么就要看看下边的方法了，有点复杂哦，但是如果要认真的看看，也并不复杂。

打开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行

其时“&#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 & "" & 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查一下你们当地的数值，换成你们的，这样以后在增加店铺时地图一打开就是你们当地的地图！

引用地址：http://www.51studypc.cn/xxaq/jzzs/201104/5563.html