◆◆◆ BBSXP特殊贴插件 [版本2.3]◆◆◆

By enger at 2007-03-09 • 0人收藏 • 552人看过

RSS阅读漏洞已修复,博客阅读漏洞已修复,请各位放心使用!(感谢qycity lincanbin

注意下载后请打开压缩包里的tspost.asp文件修改以下内容

打开tspost.asp文件,找到

filtrate=split(adduser,"|")
for i = 0 to ubound(filtrate)
adduserList=adduserList&"&nbsp;<OPTION>"&filtrate(i)&"</OPTION>"
next
else adduserList=adduserList&"&nbsp;<OPTION>无人购买</OPTION>"
end if

改成

filtrate=split(adduser,"|")
for iiii = 0 to ubound(filtrate)
adduserList=adduserList&"&nbsp;<OPTION>"&filtrate(iiii)&"</OPTION>"
next
else adduserList=adduserList&"&nbsp;<OPTION>无人购买</OPTION>"
end if

因为参数“i”,和论坛显示楼层参数冲突,改成其他的即可

'#---------------------------------------------------------------------------------------#
'#               Enger特殊贴插件                                                           #
'#         联系:Enger                                  #
'#         Q  Q:5315735                                                   #
'#         手机:13828405177                                          #
'#              E-mail:enger1@163.com                                            #
'#                  谢谢选用                                                                                 #
'#    演示论坛:http://enger.0134.net                                        #
'#---------------------------------------------------------------------------------------#

1、金钱贴:使用此贴,可以设定金币数达到多少的人,才有权利观看自己所发表的贴子。

2、经验贴:使用此贴,可以设定经验值达到多少的人,才有权限观看自己所发表的贴子。

3、文章贴:使用此贴,可以设定贴子量达到多少的人,才有权限观看自己所发表的贴子。

4、回复贴:用此贴,把两个代码包起自己所隐藏的东西,要看贴的人不得不回复贴子,才能看到你的贴子。

5、出售贴:可以使自己变“富”。弄个出售贴,比如1000块金币售价,有人买一次,你就赚1000。五个买,你就赚5000金币。

6、定员贴:可以指定论坛会员来看观点,输入指定会员的网名,就行。

7、点击贴:产生链接作用,为了让别人点击到某一网址,先设定再让人看到贴子的内容。这个慎重,否则有广告嫌疑,将来版主删除或取谛,最好事先通报,或经批准。

Enger特殊贴for bbsxp6.x安装说明:

特殊帖 V1.5 ,此版本修正 V1.0 版本定员贴大小写用户名判断的问题,如“enger”不等于“Enger”所以“Enger”就不能查看“enger”的内容。

特殊帖 V1.6 ,此版本修正 V1.5 版本的RSS阅读漏洞,这个漏洞也许不重要但也不保证用户不会发定员的博客,所以还是建议补上

特殊帖 V1.7 ,此版本修正所有以前 版本的博客阅读漏洞,是在 V1.6 基础上的完美补丁。

特殊帖 V2.0 ,此版本应论坛某用户的要求加入了显示已购买出售贴的用户(如图)。

 

特殊帖 V2.1 ,此版本已购买出售贴的用户以下拉菜单显示,修正了管理员阅读特殊贴的权限。

特殊帖 V2.3 ,此版本解决与论坛楼层显示参数冲突。

安装方法:详细请看压缩包内说明。

注意:建议用纯净的bbsxp论坛安装,如果你已安装了其他的特殊帖或者你的论坛是美化版(修改版)或者你不会安装我可以帮你安装并调试,每个论坛50元

介绍:Enger特殊贴for bbsxp6.x集金钱帖、经验帖、文章帖、出售帖、回复帖、定员帖、点击帖一身(出售帖已实现出售者加钱购买者减钱),本特殊贴理论上支持bbsxp6.0版本,请不要再询问我支持的版本,我没时间一一回答,请原谅!

1、把up.asp文件上传到论坛根目录,inc/tspost.asp上传到论坛的inc目录

2、运行up.asp升级数据库,运行成功后删除

3、打开inc/POST.JS,在最后面加入代码
function postdj(){
postdj=prompt("请输入点击的网址:", "http://127.0.0.1");
if(!postdj || postdj=="") return;
IframeID.focus();
sel=IframeID.document.selection.createRange();
sel.pasteHTML("[postdj="+postdj+"][/postdj]");
}

function postme(){
postme=prompt("请输入看贴用户名字:", "Enger");
if(!postme || postme=="") return;
IframeID.focus();
sel=IframeID.document.selection.createRange();
sel.pasteHTML("[postme="+postme+"][/postme]");
}

function postmoney(){
money=prompt("请输入需要购买此帖的价格:","100");
if(!money || money=="") return;
IframeID.focus();
sel=IframeID.document.selection.createRange();
sel.pasteHTML("[postmoney="+money+"][/postmoney]");
}

function postjy(){
postjy=prompt("请输入看贴需要达到经验的值:","100");
if(!postjy || postjy=="") return;
IframeID.focus();
sel=IframeID.document.selection.createRange();
sel.pasteHTML("[postjy="+postjy+"][/postjy]");
}


function postjb(){
postjb=prompt("请输入看贴需要达到金币的值:","50");
if(!postjb || postjb=="") return;
IframeID.focus();
sel=IframeID.document.selection.createRange();
sel.pasteHTML("[postjb="+postjb+"][/postjb]");
}

function postwz(){
postwz=prompt("请输入看贴需要达到发表文章的数量:","100");
if(!postwz || postwz=="") return;
IframeID.focus();
sel=IframeID.document.selection.createRange();
sel.pasteHTML("[postwz="+postwz+"][/postwz]");
}

function retopic() {
var ToAdd = "[retopic][/retopic]";
frames.HtmlEditor.focus()
sel=frames.HtmlEditor.document.selection.createRange();
sel.pasteHTML(ToAdd);
}


4、打开loading.asp

找到
<!-- #include file="setup.asp" -->
下面添加
<!-- #include file="inc/tspost.asp" -->
找到
%>
<SCRIPT>
var parentfollowImg=parent.document.getElementById("followImg<%=id%>")
var parentfollowTd=parent.document.getElementById("followTd<%=id%>")
parentfollowImg.loaded="yes";
parentfollowTd.innerHTML='<%=content%>';
</SCRIPT>
上面添加
if Instr(content,"[retopic]")>0 or Instr(content,"[postjb=")>0 or Instr(content,"[postjy=")>0 or Instr(content,"[postwz]")>0 or Instr(content,"[postmoney=")>0 or Instr(content,"[postfact=")>0 or Instr(content,"[postme]")>0 or Instr(content,"[postdj]")>0 then
content="<font color=red>此贴为特殊贴,请根据要求登陆查看!</font>"
end if


5、打开showpost.asp

找到
<!-- #include file="setup.asp" -->
下面添加
<!-- #include file="inc/tspost.asp" -->
找到
<div style="OVERFLOW:auto;WIDTH:100%;"><b><%=Rs("Subject")%></b><br><br><%=Rs("content")%></div>
改成
<div style="OVERFLOW:auto;WIDTH:100%;"><b><%=Rs("Subject")%></b><br><br><%=UBBCode(Rs("content"))%></div>


6、打开retopic.asp

找到
<!-- #include file="setup.asp" -->
下面添加
<!-- #include file="inc/tspost.asp" -->

找到
quote="<blockquote><strong>引用</strong>:<hr>原文由 <b>"&Rs("UserName")&"</b> 发表于 <i>"&Rs("Posttime")&"</i> :<br>"&Rs("content")&""&vbCrlf&"<hr></blockquote>"
改成
quote="<blockquote><strong>引用</strong>:<hr>原文由 <b>"&Rs("UserName")&"</b> 发表于 <i>"&Rs("Posttime")&"</i> :<br>"&UBBcode(Rs("content"))&""&vbCrlf&"<hr></blockquote>"


7、打开newtopic.asp

找到
<%if SiteSettings("UpFileOption")<>empty then%>
上面添加
<TR>
<TD vAlign=top align=Left class=a4><b>特殊贴选项</b></TD>
<TD class=a4>
<FONT color=000000><a href="javascript:onClick=postjb()" title="使用语法:[postjb=可浏览该部分内容需要最低金钱数]内容[/postjb]">金钱帖</a>
&nbsp;<a href="javascript:onClick=postjy()" title="使用语法:[postjy=可浏览该部分内容需要最低经验值]内容[/postjy]">经验帖</a>
&nbsp;<a href="javascript:onClick=postwz()" title="使用语法:[postwz=可浏览该部分内容需要最低文章数]内容[/postwz]">文章帖</a>&nbsp;
&nbsp;<a href="javascript:onClick=postmoney()" title="使用语法:[postmoney=可浏览该部分内容需要付的金币数]内容[/postmoney]">出售帖</a>
&nbsp;<a href="javascript:onClick=retopic()" title="使用语法:[retopic]该部分内容回复后可见[/retopic]">回复帖</a>
&nbsp;<a href="javascript:onClick=postme()" title="使用语法:[postme=该部分内容指定用户可见]内容[/postme]">定员帖</a>
&nbsp;<a href="javascript:onClick=postdj()" title="使用语法:[postdj=该部分内容用户点击连接后可见]内容[/postdj]">点击帖</a></TD></TR>


7、打开Print.asp

找到
<%=Rs("content")%></p><hr>
<hr>
改为
<%=ReplaceText(""&Rs("content")&"","\[(postjb|postjy|postwz|postml|postww|postmoney|retopic|postfact|postme|postdj)[^]]*\].*\[\/[^]]*\]","<hr noshade size=1><font color=red>此贴为特殊贴,请根据要求登陆查看!</font><br><hr noshade size=1>")%></p><hr>


8、打开rss.asp文件

找到
Rs.MoveNext
Loop
Rs.close
下面添加
function UBBContent(str)
str=ReplaceText(""&str&"","\[(postjb|postjy|postwz|postml|postww|postmoney|retopic|postfact|postme|postdj)[^]]*\].*\[\/[^]]*\]","<hr noshade size=1><font color=red>此贴为特殊贴,请根据要求登陆查看!</font><br><hr noshade size=1>")
UBBContent=str
end function

找到
content=Conn.Execute("Select content From [BBSXP_Posts"&Rs("PostsTableName")&"] where ThreadID="&Rs("id")&" and IsTopic=1")(0)
改为
content=UBBContent(Conn.Execute("Select content From [BBSXP_Posts"&Rs("PostsTableName")&"] where ThreadID="&Rs("id")&" and IsTopic=1")(0))


9、打开blog.asp文件

找到
<!-- #include file="Setup.asp" -->
在下面添加
<!-- #include file="inc/tspost.asp" -->

找到
UserName=Rs("UserName")
content=Rs("content")
改为
UserName=Rs("UserName")
content=UBBCode(Rs("content"))

下载地址 Enger鐗规畩璐翠粯璐圭増forbbsxp6.rar

此插件现在完全免费提供,如有问题请到论坛提出,本人不保证没错误,并且只提供有限的技术支持!谢谢各位支持,将不断更新。

[此帖子已被 admin 在 2007-5-7 10:52:08 编辑过]

登录后方可回帖

登 录
信息栏
购买PHP虚拟主机 / VPS

Carbon Forum是一个基于话题的高性能轻型PHP论坛

下载地址:Carbon Forum v5.0.1
QQ群:12607708(QQ我不常上)

donate

手机支付宝扫描上方二维码可向本项目捐款

Loading...