pwwd.asp

好用的贴吧源代码

<%
'├========================================┤
'‖             www.fywen.com              ‖
'‖       ╔━═━═━═━═━═━╗       ‖
'‖       ┃   枫叶在线版权所有   ┃       ‖
'‖       ╚━═━═━═━═━═━╝       ‖
'‖        论坛：www.fywen.com/post        ‖
'├========================================┤
Function ReplaceBadWord(eword)
  eword=Replace(eword,"'","")
  eword=Replace(eword," ","")
  eword=Replace(eword,"(","")
  eword=Replace(eword,"\","")
  eword=Replace(eword,"/","")
  eword=Replace(eword,"..","")
  eword=Replace(eword,"^","")
  eword=Replace(eword,"#","")
  eword=Replace(eword,"%","")
  eword=Replace(eword,"|","")
  eword=Replace(eword,";","")
  eword=Replace(eword,"=","")
  eword=Replace(eword,"‘","")
  eword=Replace(eword,"’","")
  eword=Replace(eword,"（","")
  eword=Replace(eword,"）","")
  eword=Replace(eword,"、","")
  eword=Trim(Replace(eword,")",""))  
  ReplaceBadWord=eword
End Function
'├========================================┤
'‖             www.fywen.com              ‖
'‖       ╔━═━═━═━═━═━╗       ‖
'‖       ┃   枫叶在线版权所有   ┃       ‖
'‖       ╚━═━═━═━═━═━╝       ‖
'‖        论坛：www.fywen.com/post        ‖
'├========================================┤
Function Rform(eword)
  eword=Replace(eword,"'","")
  eword=Replace(eword,"..","")
  eword=Replace(eword,"^","")
  eword=Replace(eword,"#","")
  eword=Replace(eword,"%","")
  eword=Replace(eword,"|","")
  eword=Replace(eword,";","")
  Rform=eword
End Function
'--------------------------------------------------
'             ╔━═━═━═━═━═━╗               
'             ┃   枫叶在线版权所有   ┃               
'             ╚━═━═━═━Fywen ━╝               
'===================================================
'‖HTML过滤字符
'‖过程名：HtmlDeal()
'‖参数：  （无）
'===================================================
     Function HtmlDeal(Body)
              dim html
              html=Replace(Body,"<","&lt;")
              html=Replace(html,">","&gt;")
              html=Replace(html,"'","''")
              html=Replace(html,Chr(13),"<br>")
              html=Replace(html,Chr(32),"&nbsp;")
              HtmlDeal=html
     End Function
'----------------------------------------------------------
'             ╔━═━═━═━═━═━╗               
'             ┃   枫叶在线版权所有   ┃               
'             ╚━═━═━═━Fywen ━╝               
'===================================================
'‖HTML还原字符
'‖过程名：Html2Text()
'‖参数：  （无）
'===================================================
Function HtmlText(Str1)
If isNULL(Str1) Then
HtmlText=""
Exit Function
End If
Str1=Replace(Str1,"&lt;","<")
Str1=Replace(Str1,"&gt;",">")
Str1=Replace(Str1,"<br>",VBcrlf)
Str1=Replace(Str1,"&quot;",chr(34))
Str1=Replace(Str1,"&nbsp;"," ")
Str1=Replace(Str1,"&amp;","&")
HtmlText=Str1
End Function
%>