public Function RSQL(strChar)4 i& [0 n9 [5 O! Y+ c% @
If strChar = "" or IsNull(strChar) Then RSQL = "":Exit Function, M6 J0 F ~9 y+ h- j7 \* ]
Dim strBadChar, arrBadChar, tempChar, I' K# D/ i7 [& @. k# J! G6 u
strBadChar = "$,#,',%,^,&,?,(,),<,>,[,],{,},/,\,;,:," & Chr(34) & "," & Chr(0) & ""’注意这里过滤的是特殊字符 ‘Chr(34)对应的ASCII码是双引号。Chr(0)其实就是我们上传改包把空格(20)改成的00
( @9 v' k4 G& F arrBadChar = Split(strBadChar, ",")! |- n- n- T4 j) j6 b
tempChar = strChar' G7 V! g! C# {$ a
For I = 0 To UBound(arrBadChar)
5 Y" p) B& a0 n4 `" C" n4 p- l4 ~; J: P tempChar = Replace(tempChar, arrBadChar(I), "") ‘将特殊字符过滤为空
; D) S# } V" j% V% @8 n4 s Next
# ?0 h0 g8 b$ Y RSQL = tempChar
' U: L! j. V' P' n6 s, VEnd Function9 i3 f% G3 z# c; r7 V0 O V t. }
|