函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： \wb0%>
0
;-"'sEu}
字符类型的 D:.1Be`Tv
strUsername = CheckInput(Request(“username“),“s“) zi?G
wh~
数字类型的 F- l!i /
ID = CheckInput(Request(“id“),“i“) =g^k$ Rc
\Pt_5.bTs[
下面是函数 P~9y}7Q\ 0
'nP;IuMP
9*CJWS ;
Function CheckInput(str,strType) 9
lH00n+'
函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 TYu(;~
参数意义： str ---- 要过滤的参数 C| g]Y 7
strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i Jj'dg6QY'
Dim strTmp Nu4PY@m]C
strTmp = Kq&JvY^
If strType =s Then ?5Q_G1H&
strTmp = Replace(Trim(str),,) T(q/$p&q
ElseIf strType=i Then w#w?Y!JXo
If isNumeric(str)=False Then str=0 ){FXonVP
strTmp = str u0i;vO)MNt
Else w<$0n#5
strTmp = str v?<Tkw ^F
End If "3e1 7dsY
CheckInput = strTmp 2&KM&NX~
End Function 2E_d$nsJ
~`!{5:v
g'<ekY+V:
0oNy
转自： ASP教程采集
