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

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" -->