|
|
发表于 2003-7-25 15:11:42
|
|阅读模式
来自 中国浙江台州
这些天整个动网论坛专区真是风起云涌，一个“短信事件”弄得是满坛风雨，预览版一出，立遭无数“英雄人士”大开杀戒...骂声怨声反对声，声声刺耳；大事小事短信事，事事烦人。所谓事在人为，只要按以下程式行动，突破重围就在一瞬间...一起来打造一个没有广告的新版动网，让“短信广告”无处藏身...希望大家积极补充。同时希望大家不要再数落动网与加信合作的事了，其实没有必要，这样无休止的讨论容易让程序员分心，影响新版的质量，也有可能让某些不怀好意的人坐享渔翁之利、落井下石。把这次短信事件看作一次动手的机会也未尝不可。不要忘了，不能排除有一部份人正需要这个功能的，而建桥比拆桥难得多。
安装>>>使用
index.asp>>>list.asp>>>dispbbs.asp
前台>>>后台
源代码>>>数据库
一、安装跳过广告，介绍两种方法。
1、修改const.asp 120~123，在每行的开头加上半角单引号，即注释符。也可以把这一段删掉。
'if (rs("IsInstall")="" or isnull(rs("IsInstall")) or rs("IsInstall")=0) and instr(scriptname,"install.asp")=0 then
'Response.Write "您还没有安装论坛，请先进行<a href=install.asp>安装论坛</a>的步骤后再进入论坛进行相关操作。"
'Response.End
'end if
2、直接登录数据库，修改论坛配置表config，把IsInstall字段的值改为1。也可以编写以下程序，保存为z_skipad.asp放在论坛根目录里，并运行。
<!--#include file="conn.asp"-->
<%
dim headfly
headfly="update config set IsInstall=1"
conn.execute(headfly)
response.write "更新成功！单击<a href=index.asp>此处</a>返回论坛首页"
%>
二、去掉页面广告，包括页顶、页脚等。
因为广告几乎在每一个页面都有出现，那么必定是在公档文件里，如inc/char.asp,inc/const.asp,FORUM_CSS.asp等等，再对比一下代码查看一下数据库，发现以含有AD字符的一般是广告代码。
★inc/char.asp
274行<div align=center><%=Adcode_2%></div> 页脚广告代码
286行<td align=right><a href="http://www.ray5198.com"; target=_blank title="本论坛所提供的互动服务由北京阳光加信科技有限公司提供，互动服务如论坛手机短信、订阅主题等，具体请看帮助"><img src="pic/rayslogo.GIF" border=0></a></td> 页脚标志广告代码
309行<td><%=Adcode_4%></td> 页顶广告代码
321行<%=Adcode_1%>banner广告代码
343行<img src=<%=Forum_info(7)%>navspacer.gif align=absmiddle> <a href="#" onclick="mybook()">我的服务</a> 导航栏广告代码
★index.asp &online_1.asp
查找index.asp99~108行
<%
if not founduser then Response.Write "<img src=pic/vip.gif> <a href=reg.asp><font color=red>点击此处注册为阳光会员</font></a>"
if founduser then
if FoundIsChallenge then
Response.Write "<img src=pic/vip.gif> <font color=red>阳光会员客服电话：<U>010-82515528</U></font>"
else
Response.Write "<img src=pic/vip.gif> <a href=challenge_up.asp><font color=red>点击此处升级为阳光会员</font></a>"
end if
end if
%> 首页阳光会员提示代码
617行 <img src=pic/vip.gif> 阳光会员 ‖ 阳光会员标志代码，同时对应着online_1.asp
133~134行case 9999
online_face="<img src=pic/vip.gif alt=手机会员 width=12 height=11>"
三、去掉帖子广告代码，涉及文件dispbbs.asp
222行<a href=pay_topic.asp?boardid="&boardid&"&id="&Announceid&" target=_blank><img src="<%=Forum_info(7)%>GetTopic.gif" alt=订阅主题 border=0></a> 订阅主题图片
426~428行response.write "<a href=""pay_topic.asp?boardid="&boardid&"&id="&Announceid&""" target=_blank><img src=""pic/buytopic.gif"" border=0 alt=""手机订阅该主题，当有人回复的时候，您可以第一时间得到此信息""></a>"
response.write "<a href=""javascript:openScript('challenge_msg.asp?username="&username&"',500,400)""><img src=""pic/sendsms.gif"" border=0 alt=""给"&HTMLEncode(UserName)&"发送一个手机短消息""></a>"
488行Response.Write "<a href=""javascript:openScript('challenge_msg.asp?username="&username&"',500,400)"" target=_blank><font color=red>手机短信</font></a>"
先去掉一些显眼的东西吧，未完待续，睡觉去了。 |
|
