一些asp的自定义函数

最新推荐文章于 2024-10-23 15:00:27 发布

原创最新推荐文章于 2024-10-23 15:00:27 发布 · 605 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#asp #function #正则表达式 #html

本文介绍了一种用于屏蔽HTML语法的方法，通过替换特定字符来防止HTML被误解析。此外，还提供了一个关键字屏蔽函数，利用正则表达式实现敏感词的替换。

  '屏蔽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