public Function RSQL(strChar)1 S$ X) i$ {( \ P& E! b4 S
If strChar = "" or IsNull(strChar) Then RSQL = "":Exit Function# z% N z0 S5 l( L' g( }
Dim strBadChar, arrBadChar, tempChar, I
2 w5 W/ O/ q* X strBadChar = "$,#,',%,^,&,?,(,),<,>,[,],{,},/,\,;,:," & Chr(34) & "," & Chr(0) & ""’注意这里过滤的是特殊字符 ‘Chr(34)对应的ASCII码是双引号。Chr(0)其实就是我们上传改包把空格（20）改成的00' A" M' D" w4 D; G5 K
arrBadChar = Split(strBadChar, ",")
9 m; W/ B0 ~9 i) Y+ C0 `8 m- t tempChar = strChar" N! W M4 g( I A8 f* A
For I = 0 To UBound(arrBadChar)3 x+ Y j6 r' z: P" h* i: W
tempChar = Replace(tempChar, arrBadChar(I), "") ‘将特殊字符过滤为空
7 V, E- W# V9 T0 V2 H6 c. h Next+ X( b: c7 M$ c( g2 v
RSQL = tempChar
) _% E9 y4 C* b% tEnd Function1 R, E! a1 g4 r( x; H S: i
|
发表于 2012-9-15 14:40:40
收藏
支持
反对