asp 的几个函数

**********执行命令**********

 

Public Function Execute(Command)
  If Not IsObject(Conn) Then ConnectionDatabase 
  If IsDeBug = 0 Then
   On Error Resume Next
   Set Execute = Conn.Execute(Command)
   If Err Then
    err.Clear
    Set Conn = Nothing
    Response.Write "查询数据的时候发现错误，请检查您的查询代码是否正确。"
    Response.End
   End If
  Else
   If ShowSQL=1 Then
    Response.Write command & "<br>"
   End If
   Set Execute = Conn.Execute(Command)
  End If 
  SqlQueryNum = SqlQueryNum+1
 End Function

 

'去掉HTML标记
 Public Function Replacehtml(Textstr)
  Dim Str,re
  Str=Textstr
  Set re=new RegExp
  re.IgnoreCase =True
  re.Global=True
  re.Pattern="<(.[^>]*)>"
  Str=re.Replace(Str, "")
  Set Re=Nothing
  Replacehtml=Str
 End Function
 '用于用户发布的各种信息过滤，带脏话过滤
 Public Function HTMLEncode(fString)
  If Not IsNull(fString) Then
   fString = replace(fString, ">", "&gt;")
   fString = replace(fString, "<", "&lt;")
   fString = Replace(fString, CHR(32), " ")  '&nbsp;
   fString = Replace(fString, CHR(9), " ")   '&nbsp;
   fString = Replace(fString, CHR(34), "&quot;")
   'fString = Replace(fString, CHR(39), "'") '单引号过滤
   fString = Replace(fString, CHR(13), "")
   fString = Replace(fString, CHR(10) & CHR(10), "</p><p> ")
   fString = Replace(fString, CHR(10), "<br/> ")
   fString=ChkBadWords(fString)
   HTMLEncode = fString
  End If
 End Function
 '用于用户发布的各种信息过滤，带脏话过滤 不过滤HTML 用于 公告 短信 小字报等
 Public Function TextEnCode(fString)
  If Not IsNull(fString) Then
   fString = Replace(fString, CHR(32), " ")
   fString = Replace(fString, CHR(9), "&nbsp;")
   fString = Replace(fString, CHR(13), "")
   fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
   fString = Replace(fString, CHR(10), "<br/>")
   fString=ChkBadWords(fString)
   TextEnCode = fString
  End If
 End Function
 '用于论坛本身的过滤，不带脏话过滤
 Public Function iHTMLEncode(fString)
  If Not IsNull(fString) Then
   fString = replace(fString, ">", "&gt;")
   fString = replace(fString, "<", "&lt;")
   fString = Replace(fString, CHR(32), " ")
   fString = Replace(fString, CHR(9), " ")
   fString = Replace(fString, CHR(34), "&quot;")
   'fString = Replace(fString, CHR(39), "'")
   fString = Replace(fString, CHR(13), "")
   fString = Replace(fString, CHR(10) & CHR(10), "</p><p> ")
   fString = Replace(fString, CHR(10), "<br/> ")
   iHTMLEncode = fString
  End If
 End Function