一些asp的自定义函数

最新推荐文章于 2019-09-04 08:47:14 发布

bitman_76

最新推荐文章于 2019-09-04 08:47:14 发布

阅读量532

点赞数

文章标签： asp function 正则表达式 html

本文链接：https://blog.csdn.net/bitman_76/article/details/2305803

版权

  '屏蔽HTML语法
  Function HTMLEncode(fString)
   if not isnull(fString)   then
    fString = replace(fString,">",">")
    fString = replace(fString,"<","<")

    fString = Replace(fString,CHR(32)," ")
    fString = Replace(fString,CHR(34),""")
    fString = Replace(fString,CHR(39),"'")
    fString = Replace(fString,CHR(13),"")
    fString = Replace(fString,CHR(10),"<BR>")
    HTMLEncode = fString
   end if
  End Function

'关键字屏蔽
Function replaceWord(strContent,arrKey,KeyLen)
  Dim keyArray,i
  keyArray = arrKey

  '使用正则表达式的方法，keyArray为二维数组
  dim objRegExp
  Set objRegExp=new RegExp
  objRegExp.IgnoreCase =true
  objRegExp.Global=True
  For i=0 to KeyLen
   objRegExp.Pattern=keyArray(i,0)
   dim strPlaceWord
   strPlaceWord = keyArray(i,1)
   strC.Replace(strContent,strPlaceWord)
  Next
  Set objRegExp=Nothing

replaceWord=strContent
End Function