public Function RSQL(strChar)2 ^3 |0 ], V) b2 s
If strChar = "" or IsNull(strChar) Then RSQL = "":Exit Function
! G" s& f; Z" m( t9 N/ J5 F Dim strBadChar, arrBadChar, tempChar, I% x. N1 @. Z3 M7 I
strBadChar = "$,#,',%,^,&,?,(,),<,>,[,],{,},/,\,;,:," & Chr(34) & "," & Chr(0) & ""’注意这里过滤的是特殊字符 ‘Chr(34)对应的ASCII码是双引号。Chr(0)其实就是我们上传改包把空格（20）改成的00
# a) R/ }, }" K arrBadChar = Split(strBadChar, ",")) n$ A' @, u, c9 D1 E9 h
tempChar = strChar n& O' y/ b. |6 y
For I = 0 To UBound(arrBadChar)
+ {1 R @( }7 g+ V& D- Q tempChar = Replace(tempChar, arrBadChar(I), "") ‘将特殊字符过滤为空# ^7 p) m% y0 u) T) i/ c3 X; t
Next8 }. A8 h- P8 ~* @, s0 a
RSQL = tempChar1 u# ]: `- z b; q1 E1 @$ V" ]
End Function; ]* P0 V! q* R8 H& `) K
|
发表于 2012-9-15 14:40:40
收藏
支持
反对