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

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 bbsxp7.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 bbsxp7.x集金钱帖、经验帖、文章帖、出售帖、回复帖、定员帖、点击帖一身（出售帖已实现出售者加钱购买者减钱），本特殊贴理论上支持bbsxp7.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 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 parentfollowTd=parent.document.getElementById("followTd<%=id%>")
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" -->
找到
Response.Write ""&Rs("content")&""
改成
Response.Write ""&UBBCode(Rs("content"))&""

6、打开retopic.asp

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

找到
quote="

&CHR(34)&""&Rs("UserName")&""&CHR(34)&:
"&Rs("content")&"

&CHR(34)&""&Rs("UserName")&""&CHR(34)&:
"&UBBCode(Rs("content"))&"

7、打开newtopic.asp

找到
<%if SiteSettings("UpFileOption")<>empty and PermissionsAttachment=1 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、打开PrintPost.asp

找到
<%=Rs("content")%></p>
<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("content")%>
改为
<%=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>")%>

找到
<link><%=SiteSettings("SiteURL")%>ShowPost.asp?ThreadID=<%=Rs("id")%></link><description><![CDATA[Conn.Execute("Select Content From [BBSXP_Posts"&Rs("PostsTableName")&"] where ThreadID="&Rs("id")&" and IsTopic=1")(0)]]></description></item><%
改为
<link><%=SiteSettings("SiteURL")%>ShowPost.asp?ThreadID=<%=Rs("id")%></link><description><![CDATA[<%=UBBContent(Conn.Execute("Select Content From [BBSXP_Posts"&Rs("PostsTableName")&"] where ThreadID="&Rs("id")&" and IsTopic=1")(0))%>]]></description></item><%

9、打开blog.asp文件

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

找到
comment=comment&"<tr class=a3><td>"&Rs("content")&"<br><br>
改为
comment=comment&"<tr class=a3><td>"&UBBCode(Rs("content"))&"<br><br>

找到
<%=Rs("content")%>
改为
<%=UBBCode(Rs("content"))%>

找到
i=0
Do While Not Rs.EOF and i<PageSetup
i=i+1
UserName=Rs("UserName")
content=Rs("content")
MyBlogDate=FormatDateTime(Rs("DateCreated"),1)
MyWeekDayName = WeekDayName(Weekday(MyBlogDate))
改为
i=0
Do While Not Rs.EOF and i<PageSetup
i=i+1
UserName=Rs("UserName")
content=UBBCode(Rs("content"))
MyBlogDate=FormatDateTime(Rs("DateCreated"),1)
MyWeekDayName = WeekDayName(Weekday(MyBlogDate))

限制版 http://enger.0134.net//ShowPost.asp?ThreadID=1