asp 過濾html代碼程式

最後更新：2017-01-13 來源：互聯網

上載者：User

創建阿里雲帳戶，並獲得超過 40 款產品的免費試用版；而企業帳戶則可以享有總值 $1200 的免費試用版。立即註冊！

Function TransferHTML(ByVal source,para)

Dim objRegExp

'先換"&"
If Instr(para,"[&]")>0 Then source=Replace(source,"&","&")
If Instr(para,"[<]")>0 Then source=Replace(source,"<","<")
If Instr(para,"[>]")>0 Then source=Replace(source,">",">")
If Instr(para,"[""]")>0 Then source=Replace(source,"""",""")
If Instr(para,"[space]")>0 Then source=Replace(source," "," ")
If Instr(para,"[enter]")>0 Then
source=Replace(source,vbCrLf,"<br/>")
source=Replace(source,vbLf,"<br/>")
End If
If Instr(para,"[vbCrlf]")>0 Then

  Set objRegExp=New RegExp
  objRegExp.IgnoreCase =True
  objRegExp.Global=True

objRegExp.Pattern="((</?form[^n<]*>)|(<select[^n<]*>)|(<textarea[^n<]*>)|(</?option[^n<]*>)|(</?dl[^n<]*>)|(</?dt[^n<]*>)|(</?dd[^n<]*>)|(</?th[^n<]*>)|(</?tr[^n<]*>)|(</?td[^n<]*>)|(</?tbody[^n<]*>)|(</?table[^n<]*>)|(</?hr[^n<]*>)|(</?div[^n<]*>)|(</?ul[^n<]*>)|(</?li[^n<]*>)|(</?ol[^n<]*>)|(</?h1[^n<]*>)|(</?h2[^n<]*>)|(</?h3[^n<]*>)|(</?h4[^n<]*>)|(</?h5[^n<]*>)|(</?h6[^n<]*>)|(</?p[^n<]*>))(x20*(rn|n))"

source= objRegExp.Replace(source,"$1")

objRegExp.Pattern="(rn|n)"
source= objRegExp.Replace(source,"<br/>")

  source=Replace(source,"<html>","")
  source=Replace(source,"</html>","")
  source=Replace(source,"<body>","")
  source=Replace(source,"</body>","")

End If
If Instr(para,"[vbTab]")>0 Then source=Replace(source,vbTab,"  ")
If Instr(para,"[no-asp]")>0 Then
  source=Replace(source,"<"&"%","<"&"%")
  source=Replace(source,"%"&">","%"&">")
End If
If Instr(para,"[nofollow]")>0 Then
  source=Replace(source,"<a ","<a rel=""nofollow"" ")
End If
If Instr(para,"[nohtml]")>0 Then
  Set objRegExp=New RegExp
  objRegExp.IgnoreCase =True
  objRegExp.Global=True
  objRegExp.Pattern="<[^>]*>"
  source= objRegExp.Replace(source,"")
End If
If Instr(para,"[filename]")>0 Then
  source=Replace(source,"/","")
  source=Replace(source,"","")
  source=Replace(source,":","")
  source=Replace(source,"?","")
  source=Replace(source,"*","")
  source=Replace(source,"""","")
  source=Replace(source,"<","")
  source=Replace(source,">","")
  source=Replace(source,"|","")
  source=Replace(source," ","")
End If
If Instr(para,"[normalname]")>0 Then
  source=Replace(source,"$","")
  source=Replace(source,"(","")
  source=Replace(source,")","")
  source=Replace(source,"*","")
  source=Replace(source,"+","")
  source=Replace(source,",","")
  source=Replace(source,"[","")
  source=Replace(source,"]","")
  source=Replace(source,"{","")
  source=Replace(source,"}","")
  source=Replace(source,"?","")
  source=Replace(source,"","")
  source=Replace(source,"^","")
  source=Replace(source,"|","")
  source=Replace(source,":","")
  source=Replace(source,"""","")
  source=Replace(source,"'","")
End If
If Instr(para,"[textarea]")>0 Then
  source=Replace(source,"&","&")
  source=Replace(source,"%","%")
  source=Replace(source,"<","<")
  source=Replace(source,">",">")
End If
If Instr(para,"[html-format]")>0 Then
  source=Replace(source,"&","&")
  source=Replace(source,"<","<")
  source=Replace(source,">",">")
  source=Replace(source,"""",""")
End If
If Instr(para,"[anti-html-format]")>0 Then
  source=Replace(source,""","""")
  source=Replace(source,"<","<")
  source=Replace(source,">",">")
  source=Replace(source,"&","&")
End If
If Instr(para,"[wapnohtml]")>0 Then
  source=Replace(source,"<br/>",vbCrLf)
  source=Replace(source,"<br>",vbCrLf)
  Set objRegExp=New RegExp
  objRegExp.IgnoreCase =True
  objRegExp.Global=True
  objRegExp.Pattern="(<[^>]*)|([^<]*>)"
  source= objRegExp.Replace(source,"")
  objRegExp.Pattern="(rn|n)"
  source= objRegExp.Replace(source,"<br/>")
End If
If Instr(para,"[nbsp-br]")>0 Then
  Set objRegExp=New RegExp
  objRegExp.IgnoreCase =True
  objRegExp.Global=True
  objRegExp.Pattern="<$|<b$|<br$|<br/$"
  source= objRegExp.Replace(source,"")
  objRegExp.Pattern="^br/>|^r/>|^/>|^>"
  source= objRegExp.Replace(source,"")
  objRegExp.Pattern="<br/>"
  source= objRegExp.Replace(source,"<br/>")
  objRegExp.Pattern="&nbsp;"
  source= objRegExp.Replace(source," ")
End If
If Instr(para,"[closehtml]")>0 Then
  source=closeHTML(source)
End If

TransferHTML=source

End Function

本文章原先以中文撰寫並發佈於 aliyun.com，亦設英文版本，僅作資訊用途。本網站不對文章的準確性，完整性或可靠性或其任何翻譯作出任何明示或暗示的陳述或保證。如對該文章有任何疑慮或投訴，請傳送電郵至 info-contact@alibabacloud.com 並提供相關疑慮或投訴的詳細說明。職員會於 5 個工作天內與您聯絡，一經驗證之後，即會刪除該侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

Sales Support

1 on 1 presale consultation

Chat Contact Sales
After-Sales Support

24/7 Technical Support 6 Free Tickets per Quarter Faster Response

Open a Ticket
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

Learn More