asp中實現清除html的函數

更新時間：2015年03月17日 15:24:21 投稿：hebedich

本文給大家分享的是在asp中實現清除HTML的函數，非常的實用，有需要的小伙伴，參考下吧。

這個函數是必需要的，很多黑客來搗亂，黑掉數據庫，會注入大量的病毒js，在存儲和展示文本數據的時候，使用此函數過濾一下，可避免不少麻煩

clearhtml代碼

'清除HTML代碼
function clearhtml(content)
  content=replacehtml("&#[^>]*;","",content)
  content=replacehtml("</?marquee[^>]*>","",content)
  content=replacehtml("</?object[^>]*>","",content)
  content=replacehtml("</?param[^>]*>","",content)
  content=replacehtml("</?embed[^>]*>","",content)
  content=replacehtml("</?table[^>]*>","",content)
  content=replacehtml("&nbsp;","",content)
  content=replacehtml("</?tr[^>]*>","",content)
  content=replacehtml("</?th[^>]*>","",content)
  content=replacehtml("</?p[^>]*>","",content)
  content=replacehtml("</?a[^>]*>","",content)
  content=replacehtml("</?img[^>]*>","",content)
  content=replacehtml("</?tbody[^>]*>","",content)
  content=replacehtml("</?li[^>]*>","",content)
  content=replacehtml("</?span[^>]*>","",content)
  content=replacehtml("</?div[^>]*>","",content)
  content=replacehtml("</?th[^>]*>","",content)
  content=replacehtml("</?td[^>]*>","",content)
  content=replacehtml("</?script[^>]*>","",content)
  content=replacehtml("(javascript|jscript|vbscript|vbs):","",content)
  content=replacehtml("on(mouse|exit|error|click|key)","",content)
  content=replacehtml("<\\?xml[^>]*>","",content)
  content=replacehtml("<\/?[a-z]+:[^>]*>","",content)
  content=replacehtml("</?font[^>]*>","",content)
  content=replacehtml("</?h[^>]*>","",content)
  content=replacehtml("</?u[^>]*>","",content)
  content=replacehtml("</?i[^>]*>","",content)
  content=replacehtml("</?center[^>]*>","",content)
  content=replacehtml("</?center[^>]*>","",content)
  content=replacehtml("</?nobr[^>]*>","",content)
  content=replacehtml("</?clk[^>]*>","",content)
  content=replacehtml("</?muti[^>]*>","",content)
  content=replacehtml("</?/option[^>]*>","",content)
  content=replacehtml("</?o[^>]*>","",content)
  content=replacehtml("</?strong[^>]*>","",content)
  clearhtml=content
end function

replacehtml代碼

function replacehtml(patrn,strng,content)  
  if isnull(content) then
    content=""
  end if
  set regex=new regexp
  regex.pattern=patrn
  regex.ignorecase=true
  regex.global=true
  replacehtml=regex.replace(content,strng)
end function

使用方法：

復制代碼代碼如下:

<%=clearhtml("<div id="CodeTip"><h2>分享代碼提示(2)</h2><ul><li style="font-weight: bold; color: rgb(170, 0, 0);">添加完代碼必須點擊“完成并查看”生效</li><li>準確的編程語言，可正確對代碼語法著色</li><li>輸入簡單幾個字的代碼片段說明</li><li>上傳源碼文件時無需再輸入說明</li><li>非程序相關文件將直接刪除，嚴重封帳號</li><li>圖片僅用來上傳截圖之類的文件，勿作他途</li></ul></div>")%>

以上就是本文所述的全部內容了，希望大家能夠喜歡。

您可能感興趣的文章:

ASP 80040e14錯誤的解決方法
好久沒有寫ASP代碼了，今天在做一個簡單的留言本時，出現了一下錯誤.
2009-10-10
在ASP編程中使用數組
在ASP編程中使用數組...
2006-10-10
ASP上傳漏洞之利用CHR(0)繞過擴展名檢測腳本
本文部分腳本具有攻擊性，僅供學習研究用，請用在合法合理范圍內，對造成的損失本人不承擔責任，本人也不提供黑客攻擊技術指導
2012-01-01
Asp編碼優(yōu)化技巧
ASP(Active Server Page)是Microsoft公司推出的基于PWS(Personal Web Server)&IIS(Internet Information Server)平臺的、基于ISAPI(InternetServiceAPI)原理的動態(tài)網頁開發(fā)技術，目前日趨成熟完善。在這里僅就代碼優(yōu)化進行一些簡單討論。
2015-09-09
asp 多關鍵詞搜索的簡單實現方法
asp搜索兩個以上的詞的實現方法，簡單的就是利用split，其它的可以參考本站之前更新的文章
2008-11-11
實現純真IP txt轉mdb數據庫的方法
實現純真IP txt轉mdb數據庫的方法...
2007-07-07
利用Adodb.Stream制作彩色驗證碼
利用Adodb.Stream制作彩色驗證碼...
2006-08-08
Active Server Pages 錯誤 ''ASP 0201'' 修復方法
網上很多其他的解決方法, 但是我試了幾個小時, 都沒有解決問題, 最后是通過這個方法解決的.
2010-07-07
asp 根據IP地址自動判斷轉向分站的代碼
根據IP地址自動判斷轉向分站的代碼這個是一個不錯的解決之道，可以緩解服務器壓力過大等一些問題
2008-11-11
asp之自動閉合HTML/ubb標簽函數附簡單注釋
這樣的功能就是實現一般html,ubb標簽的閉合，以前在pjblog中見過，一直沒用，這個函數不錯，建議可以參考下pjblog中的函數。
2009-01-01