最新消息:网站改版咯

去掉网人分类信息网版权

计算机科学 Yovae 1413浏览

打开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>
其时“&#x4EBA”这些是UTF-8,大家网上找UTF-8与GB2312之间的互换就行了

二、后台版权
Admin_Main.Asp 第7行
Content = Content & “<tr><td colspan=3>本系统由<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’><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.”

解决首页用户登录问题:

在自定义标签-{$My_Bottom}标签里找到<SPAN ID=User_Log>{$JsUserState}</SPAN>这行,把{$JsUserState}复制,然后把这行删了

然后在{$My_Top}标签里找到<span id=UserLog></span>,用{$JsUserState}把这个<span id=UserLog></span>替换了就是了

更换前台的产品评价框 和后台的发布信息框中的 WRMPS 这个水印

修改skins/default下的textareabg.gif

转载请注明:Yovae Studio » 去掉网人分类信息网版权