求段过滤非法字符的代码

[liushengan]

如果输入框内出现“博客”这两个字则自动将其转换为Blog。

[777dragon]

like this ?

Add....


Function formatStr(strText)
On Error Resume Next
strText = Trim(strText)
If strText="" Then
Exit Function
End If
strText = Replace(strText,"<","<") '左<
strText = Replace(strText,">",">") '右>
strText = Replace(strText,";",";") '分号
strText = Replace(strText,"'","'") '单引号
strText = Replace(strText,"""",""") '双引号
strText = Replace(strText,Chr(9)," ") '空格
strText = Replace(strText, Chr(10) & Chr(10), "<BR><BR>")
strText = Replace(strText,Chr(10),"<br>") '回车
strText = Replace(strText,Chr(13),"") '回车
strText = Replace(strText,Chr(32)," ") '空格
strText = Replace(strText,Chr(34),""") '双引号
strText = Replace(strText,Chr(39),"'") '单引号
strText = Replace(strText,"script","&#115cript") 'script
strText = Replace(strText,"(","(") '左(
strText = Replace(strText,")",")") '右)
strText = Replace(strText,"--","--") 'SQL注释符
FormatStr = strText
End Function

[liushengan]

看不明白

[mind_1220]

<%
strText = "博客CSDN"
str1="博客"
str2="blog"
strText = Replace(strText,str1,str2)
response.write strText '写出来看看就明白了。
%>

[cnwhitewolf]

strText=replace(strText,"博客CSDN","blog")

[777dragon]

就是Ya! (-___-#)!!! 狼来啦~~~~

[香椿炒鸡蛋]

建议用正则表达式 过滤非法字符