利晶設計機構博客

關注研究網站設計及SEO網站優化技術!致力于為客戶提供最專業、最有效的全方面網站設計解決方案。

訂閱RSS

ASP壓縮HTML代碼

類別:網站前端開發    時間:2015-03-27

'過濾空代碼
Function Nohtml(ByVal t0)
IF Len(t0)=0 Or IsNull(t0) Then
Nohtml=""
Exit Function
End IF
Dim Regs,Matches,Match
Set Regs=New Regexp
Regs.Ignorecase=True
Regs.Global=True

'Regs.Pattern="<.+?>"
Set Matches=Regs.Execute(t0)
IF Matches.Count>0 Then
For Each Match In Matches
t0=Replace(t0,Match.value,"")
Next
End IF
't0=Replace(t0," ","")
't0=Replace(t0,vbCrLf,"")
't0=Replace(t0," ","")
't0=Replace(t0," ","")
t0=Replace(t0,CHR(9),"")
t0=Replace(t0,CHR(13),"")
t0=Replace(t0,CHR(10),"")
t0=Replace(t0,CHR(22),"")
Set Regs=Nothing
Nohtml=t0
End Function

轉載聲明:
原載:利晶科技博客 - 關注研究最新網站設計技術及SEO網站優化!
本文鏈接:http://www.xingyiguoji.com/blog/33.html
如需轉載必須以鏈接形式注明原載或原文地址,謝謝合作!

文章分類

服務項目

友情鏈接

Copyright © 2006-2012 利晶設計機構 版權所有
自慰流水喷白浆免费看