函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： XJ1Bl
W *2P+H%
字符类型的 "YVr/u
strUsername = CheckInput(Request(“username“),“s“) Y4[oa?G
数字类型的 k h6n(B\
ID = CheckInput(Request(“id“),“i“) &,* ILz
1JV-X G6
下面是函数 *DQa6,b
/)sP<WPQ 6
F6_e n z
Function CheckInput(str,strType) hRqr
函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 UYzNaw4/x
参数意义： str ---- 要过滤的参数 8YQ7XB
strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i p[}~Z|(
Dim strTmp Ao\Im(?
strTmp = I/u>Gt
If strType =s Then B?4Iu)bCxI
strTmp = Replace(Trim(str),,) 5>hXqNjP2
ElseIf strType=i Then .etG>tH
If isNumeric(str)=False Then str=0 yTf/]H]d
strTmp = str vi` VK&+r
Else J|([(
strTmp = str H%0WD_
End If )!; 20Po
CheckInput = strTmp N|/ gwcKe
End Function E@-5L9eJ\
*77Y$X##k
q9c-UQB(!
}/ Qj8l.
转自： ASP教程采集
