ubbpost.asp

教师评估系统

<%
function UBBCode(content)
  dim check
  Set re = New RegExp
  re.IgnoreCase =True
  re.Global=True
'购买可见
if instr(lcase(content),"[postmoney=")>0 then
adduser=conn.execute("select adduser from [WxThreads] where ID="&ThreadID&"")(0)
sql="select * from [WxUsers] where UserName='"&CookieUserName&"'"
Set Rs111=Conn.Execute(sql)
if adduser<>empty then
filtrate=split(adduser,"|")
for k = 0 to ubound(filtrate)
adduserList=adduserList&"<option>"&filtrate(k)&"</option>"
next
else adduserList=adduserList&"<option>无人购买</option>"
end if
  if CookieUserName=empty then
   re.Pattern="(.*)(\[postmoney=)(\d*)(\])(.*)(\[/postmoney\])(.*)"
  check=re.replace(content,"$3")  
  Content=re.replace(content,"<fieldset><legend>金币可见</legend><span class=""red"">本区域内容要求 <span class=""blue"">花费 <b>"&check&"</b> 个金币</span> 才可以浏览</span><br /><select name=Category><option value='' selected=""selected"">以下用户已购买</option><br /><option>------------------------</option>"&adduserList&"</select></fieldset>")   
  else
   re.Pattern="(.*)(\[postmoney=)(\d*)(\])(.*)(\[/postmoney\])(.*)"
  check=re.replace(content,"$3")   
  check=checkint(check)
UserRoleID=rs111("UserRoleID")
set rs111=nothing
if UCase(CookieUserName)=UCase(Username) or BestRole=1 then
Content=re.replace(content,"$1<fieldset><span class=""red"">本区域内容要求 <span class=""blue"">花费 <b>"&check&"</b> 个金币</span> 才可以浏览</span><br />$5<br /><select name=Category><option value='' selected=""selected"">以下用户已购买</option><br /><option>------------------------</option>"&adduserList&"</select></fieldset>$7") 

elseif instr(adduser,""&CookieUserName&"")>0 then
 Content=re.replace(content,"$1<fieldset><span class=""red"">本区域内容需要 <span class=""blue"">花费 <b>"&check&"</b> 个金币</span> 才可以浏览，您已经购买本帖</span><br />$5<br /><select name=Category><option value='' selected=""selected"">以下用户已购买</option><br /><option>------------------------</option>"&adduserList&"</select></fieldset>$7") 

elseif conn.execute("select usermoney from [WxUsers] where username='"&CookieUserName&"'")(0)<check then
Content=re.replace(content,"<fieldset><span class=""red"">本区域内容要求 <span class=""blue"">金钱数达到 <b>"&check&"</b> 以上</span> 才可已购买。</span><br /><select name=Category><option value='' selected=""selected"">以下用户已购买</option><br /><option>-------------------------</option>"&adduserList&"</select></fieldset>")  
  else
Content=re.replace(content,"$1<fieldset><span class=""red"">本区域内容要求 <span class=""blue"">花费 <b>"&check&"</b> 个金币</span> 才可以浏览</span>　<form method=""post"" action=""BuyPost.asp""><input type=""hidden"" name=""buyid"" value="&ThreadID&" /><input type=""hidden"" name=""much"" value="&check&" /> <input type=""submit"" value=""真黑呀,我买了""></form><br /><select name=Category size=1><option value='' selected>以下用户已购买</option><br /><option>------------------------</option>"&adduserList&"</select></fieldset>$7")      
     end if
end if
end if

'经验值可见
if instr(lcase(content),"[postjy=")>0 then
  if CookieUserName=empty then
   re.Pattern="(.*)(\[postjy=)(\d*)(\])(.*)(\[/postjy\])(.*)"
  check=re.replace(content,"$3")   
  Content=re.replace(content,"<fieldset><span class=""red"">本区域内容要求 <span class=""blue"">经验值达到 <b>"&check&"</b> 以上</span> 才可以浏览</span></fieldset>")   
  else
   re.Pattern="(.*)(\[postjy=)(\d*)(\])(.*)(\[/postjy\])(.*)"
  check=re.replace(content,"$3")   
  check=checkint(check)
    if UCase(CookieUserName)=UCase(Username) or BestRole=1 or conn.execute("select experience from [WxUsers] where username='"&CookieUserName&"'")(0)>=check or BestRole=1 then
     Content=re.replace(content,"$1<fieldset><span class=""red"">本区域内容要求 <span class=""blue"">经验值达到 <b>"&check&"</b> 以上</span> 才可以浏览</span></fieldset>$7") 
  else
      Content=re.replace(content,"$1<fieldset><span class=""red"">本区域内容要求 <span class=""blue"">经验值达到 <b>"&check&"</b> 以上</span> 才可以浏览</span></fieldset>$7")      
     end if
end if
end if

'金钱数可见
if instr(lcase(content),"[postjb=")>0 then
  if CookieUserName=empty then
   re.Pattern="(.*)(\[postjb=)(\d*)(\])(.*)(\[/postjb\])(.*)"
  check=re.replace(content,"$3") 
  Content=re.replace(content,"<fieldset><span class=""red"">本区域内容要求 <span class=""blue"">金钱数达到 <b>"&check&"</b> 以上</span> 才可以浏览</span></fieldset>")   
  else
   re.Pattern="(.*)(\[postjb=)(\d*)(\])(.*)(\[/postjb\])(.*)"
  check=re.replace(content,"$3")   
  check=checkint(check)

    if UCase(CookieUserName)=UCase(Username) or BestRole=1 or conn.execute("select UserMoney from [WxUsers] where username='"&CookieUserName&"'")(0)>=check or BestRole=1 then
     Content=re.replace(content,"$1<fieldset><span class=""red"">本区域内容要求 <span class=""blue"">金钱数达到 <b>"&check&"</b> 以上</span> 才可以浏览</span><br />$5</fieldset>$7")   
  else
      Content=re.replace(content,"$1<fieldset><span class=""red"">本区域内容要求 <span class=""blue"">金钱数达到 <b>"&check&"</b> 以上</span> 才可以浏览</span></fieldset>$7")      
     end if
end if
end if

'定员可见
if instr(lcase(content),"[postme=")>0 then
  if CookieUserName=empty then
   re.Pattern="(.*)(\[postme=)(.*)(\])(.*)(\[/postme\])(.*)"
filtrate=split(content,"[/postme]")
contentT=""
contentT1=split(content,"[postme=")
contentT2=replace(content,contentT1(0)&"[postme=","")
check=split(contentT2,"]")(0)  
  Content=re.replace(content,"<fieldset><span class=""red"">本区域内容只有 <span class=""blue""><b><a href=User.asp?Name="&check&">"&check&"</a></b></span> 可以浏览</span></fieldset>")   
  else
   re.Pattern="(.*)(\[postme=)(.*)(\])(.*)(\[/postme\])(.*)"
filtrate=split(content,"[/postme]")
contentT=""
contentT1=split(content,"[postme=")
contentT2=replace(content,contentT1(0)&"[postme=","")
check=split(contentT2,"]")(0)

if UCase(conn.execute("select username from [WxUsers] where username='"&CookieUserName&"'")(0))=UCase(check) or UCase(Username)=UCase(CookieUserName) or BestRole=1 then
     Content=re.replace(content,"$1<fieldset><span class=""red"">本区域内容只有 <span class=""blue""><b><a href=User.asp?Name="&check&">"&check&"</a></b></span> 可以浏览</span><br />$5</fieldset>$7")   
  else
      Content=re.replace(content,"$1<fieldset><span class=""red"">本区域内容只有 <span class=""blue""><b><a href=User.asp?Name="&check&">"&check&"</a></b></span>可以浏览</span></fieldset>$7")      
     end if
end if
end if


'点击后可见
if Instr(Lcase(Content),"[postdj=")>0 then
postdj=ReplaceText(Content,".*\[postdj\=([^]]*)\].*","$1")
 if postdj<>"" then

   if Request.Form("postdj")=postdj then Response.write "<script>window.open ('"&Request.Form("postdj")&"')</script>"
   Content=ReplaceText(Content,"\[postdj\=[^]]*\]|\[\/postdj\]","")
  else
   Content=ReplaceText(Content,"\[postdj\=.*\[\/postdj\]","<fieldset><span class=""red"">本区域内容需要 <span class=""blue""><b>点击下面链接</b></span> 才可以浏览</span><br /><form method=""post"" action=Threads.asp?Tid="&ThreadID&"><input type=""hidden"" name=""postdj"" value="&postdj&" />　<input type=submit value="&postdj&" style="&chr(34)&"border:1px solid #red;color:#0000FF;background-color:#FFFFFF"&chr(34)&" /></form></fieldset>")

  end if
 end if


'贴数可见
if instr(lcase(content),"[postwz=")>0 then
  if CookieUserName=empty then
   re.Pattern="(.*)(\[postwz=)(\d*)(\])(.*)(\[/postwz\])(.*)"
  check=re.replace(content,"$3") 
  Content=re.replace(content,"<fieldset><span class=""red"">本区域内容要求 <span class=""blue"">文章数达到 <b>"&check&"</b> 以上</span> 才可以浏览</span></fieldset>")   
  else
   re.Pattern="(.*)(\[postwz=)(\d*)(\])(.*)(\[/postwz\])(.*)"
  check=re.replace(content,"$3")   
 check=checkint(check)

    if UCase(CookieUserName)=UCase(Username) or BestRole=1 or conn.execute("select posttopic+postrevert from [WxUsers] where username='"&CookieUserName&"'")(0)>=check or BestRole=1 then
     Content=re.replace(content,"$1<fieldset><span class=""red"">本区域内容要求 <span class=""blue"">文章数达到 <b>"&check&"</b> 以上</span> 才可以浏览</span></fieldset>$7")   
  else
      Content=re.replace(content,"$1<fieldset><span class=""red"">本区域内容要求 <span class=""blue"">文章数达到 <b>"&check&"</b> 以上</span> 才可以浏览</span></fieldset>$7")      
     end if
end if
end if


'回复可见
if instr(lcase(content),"[retopic]")>0 then
   re.Pattern="(\[retopic\])(.*)(\[/retopic\])"
  if CookieUserName=empty then
    Content=re.replace(content,"<fieldset><span class=""red"">本区域内容 <span class=""blue""><b>回复</b></span> 后才可以浏览</span></fieldset>")   
  else
  if UCase(CookieUserName)=UCase(Username) or BestRole=1 or conn.execute("select count(id) from [WxPosts"&conn.Execute("select PostsTableName from [WxThreads] where IsDel=0 order by lasttime desc")(0)&"] where ThreadID="&int(request.QueryString("ThreadID"))&" and username='"&CookieUserName&"'")(0)>0 then
     Content=re.replace(content,"<fieldset><span class=""red"">本区域内容 <span class=""blue""><b>回复</b></span> 后才可以浏览</span><br />$2</fieldset>")   
  else
      Content=re.replace(content,"<fieldset><span class=""red"">本区域内容 <span class=""blue""><b>回复</b></span> 后才可以浏览</span></fieldset>")      
     end if
     end if
end if

set re=Nothing
UBBCode=content
end function

function checkint(check)
if IsNumeric(check) then
check=Cint(check)
else
response.write "<span class=""red""><b>请输入数字</b></span>"
check=0
end if
checkint=check
end function
%>