网页字符过滤
Function RemoveHTML(strText) '过html字符
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
RemoveHTML = RegEx.Replace(strText, "")
End Function
Function Replace_Text(fString)
If Not IsNull(fString) Then
fString = trim(fString)
fString = replace(fString, ";", "；") '分号过滤
fString = replace(fString, "--", "——") '--过滤
fString = replace(fString, "%20", "") '特殊字符过滤
fString = replace(fString, "==", "") '==过滤
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32), " ") '
fString = Replace(fString, CHR(9), " ") '
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "'") '单引号过滤
'fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
'fString = Replace(fString, CHR(10), "<BR> ")
Replace_Text = fString
End If
End Function
联系我们
QQ：51193930(Ahoo)
MSN：auuocx@hotmail.com
网址：http://www.auuo.com
地址：慈溪天九商务中心525室
电话：189-0662-0882
我们的优势
拥有优秀的网站设计师与程序工程师，精通各种一流的图形设计软件，如Photoshop、Freehand CorlDraw、Flash、Dreamweaver、Fireworks等等制作网页和平面设计图。以及使用C语言、C#、ASP.NET框架、asp、php等语言为您开发项目，我们为您准备了最专业的技术服务。为您开发的网站精致实用，代码清晰，保证您的网站安全可靠修改方便，最重要的是符合市场需求，并随时为客户解决各种技术问题。
我们正在努力开拓...