【引用】asp代码过滤包括空格

最新推荐文章于 2022-05-14 11:30:15 发布

hawk1404

最新推荐文章于 2022-05-14 11:30:15 发布

阅读量221

点赞数

分类专栏： asp

本文链接：https://blog.csdn.net/hawk1404/article/details/17278255

版权

asp 专栏收录该内容

5 篇文章 0 订阅

订阅专栏

和大家分享这篇日志，我的看法是：

原文地址： asp代码过滤包括空格原文作者： lovercoca

Function RemoveHTML(strHTML)
ON ERROR RESUME NEXT
Dim objRegExp, strOutput
strHTML = replace(strHTML," ","")
strHTML = replace(strHTML,chr(13),"")
strHTML = replace(strHTML,chr(10),"")
strHTML = replace(strHTML,chr(32),"")

Set objRegExp = New Regexp
objRegExp.IgnoreCase = True '忽略大小写
objRegExp.Global = True '设置为全文搜索
objRegExp.Pattern = "<script.+?>[\s\S]+?<\/script>"
strOutput = objRegExp.Replace(strHTML, "")
objRegExp.Pattern = "<style.+?>[\s\S]+?<\/style>"
strOutput = objRegExp.Replace(strOutput, "")
objRegExp.Pattern = "<.+?>" '取闭合的<>
strOutput = objRegExp.Replace(strOutput, "")

strOutput = Replace(strOutput, "<", "〈")
strOutput = Replace(strOutput, ">", "〉")
strOutput = Replace(strOutput, " ", "")
strOutput = Replace(strOutput, " ", "")
RemoveHTML = strOutput
Set objRegExp = Nothing
End Function

===========================================================================

如果遇到替换特殊字符比如 ' " (英文单引号,英文双引号)怎么办?
这时就要用到chr码值对应列表大全了

Chr("0") 为0的字符
Chr("1")
Chr("2")
Chr("3")
Chr("4")
Chr("5")
Chr("6")
Chr("7") 响铃
Chr("8") 回格
Chr("9") tab(水平制表符)
Chr("10") 换行
Chr("11") tab(垂直制表符)
Chr("12") 换页
Chr("13") 回车 chr(13)&chr(10) 回车和换行的组合
Chr("14")
Chr("15")
Chr("16")
Chr("17")
Chr("18")
Chr("19")
Chr("20")
Chr("21")
Chr("22")
Chr("23")
Chr("24")
Chr("25")
Chr("26") 结束 End
Chr("27") 脱离 Pause break
Chr("28")
Chr("29")
Chr("30")
Chr("31")
Chr("32") 空格 SPACE
Chr("33") !
Chr("34") "
Chr("35") #
Chr("36") $
Chr("37") %
Chr("38") &
Chr("39") ’
Chr("40") (
Chr("41") )
Chr("42") *　
Chr("43") +
Chr("44") ,
Chr("45") -
Chr("46") .
Chr("47") /
Chr("48") 0
Chr("49") 1
Chr("50") 2
Chr("51") 3
Chr("52") 4　
Chr("53") 5
Chr("54") 6
Chr("55") 7
Chr("56") 8
Chr("57") 9　
Chr("58") :
Chr("59") ;
Chr("60") <
Chr("61") =
Chr("62") >　
Chr("63") ?
Chr("64") @
Chr("65") A
Chr("66") B
Chr("67") C　
Chr("68") D
Chr("69") E
Chr("70") F
Chr("71") G
Chr("72") H　
Chr("73") I
Chr("74") J
Chr("75") K
Chr("76") L
Chr("77") M　
Chr("78") N
Chr("79") O
Chr("80") P
Chr("81") Q
Chr("82") R　
Chr("83") S
Chr("84") T
Chr("85") U
Chr("86") V
Chr("87") W　
Chr("88") X
Chr("89") Y
Chr("90") Z
Chr("91") [
Chr("92") \　
Chr("92") \
Chr("93") ]
Chr("94") ^
Chr("95") _
Chr("96") `
Chr("97") a　
Chr("98") b
Chr("99") c
Chr("100") d
Chr("101") e
Chr("102") f　
Chr("103") g
Chr("104") h
Chr("105") i
Chr("106") j
Chr("107") k　
Chr("108") l
Chr("109") m
Chr("110") n
Chr("111") o
Chr("112") p　
Chr("113") q
Chr("114") r
Chr("115") s
Chr("116") t
Chr("117") u　
Chr("118") v
Chr("119") w
Chr("120") x
Chr("121") y
Chr("122") z　
Chr("123") {
Chr("124") |
Chr("125") }
Chr("126") ~
Chr("127")
Chr("128")
Chr("129")
Chr("130")
Chr("131")
Chr("132")

有个简单的查看方法，打开记事本，如要查看“Chr("119") w”，可以按下Alt＋119
（先按住Alt不放，然后输入数字，输完后在放开）