对特殊字符的过滤代码

admin

public Function RSQL(strChar)
        If strChar = "" or IsNull(strChar) Then RSQL = "":Exit Function
        Dim strBadChar, arrBadChar, tempChar, I
        strBadChar = "$,#,',%,^,&,?,(,),<,>,[,],{,},/,\,;,:," & Chr(34) & "," & Chr(0) & ""’注意这里过滤的是特殊字符    ‘Chr(34)对应的ASCII码是双引号。Chr(0)其实就是我们上传改包把空格（20）改成的00
8 Z* u3 U5 b7 R+ h7 B% u; A        arrBadChar = Split(strBadChar, ",")
8 l7 y! Y# Y1 H2 C9 U) G& `$ v1 K9 R; D        tempChar = strChar
        For I = 0 To UBound(arrBadChar)
! Z8 L6 y8 G# Y9 h3 @                tempChar = Replace(tempChar, arrBadChar(I), "")  ‘将特殊字符过滤为空
0 q) u9 D8 B2 F        Next
2 V% m7 l6 e8 t8 K0 W7 T        RSQL = tempChar
, S3 q! s5 ?8 Y4 E, ~; @* BEnd Function
) o% N) k/ U1 \, N: d* a" J0 L