一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： I5E4mv0<i  
kznm$2 b  
字符类型的 Cyp%E5b7  
strUsername = CheckInput(Request(“username“),“s“) 'Y5l3xQk  
数字类型的 %PM8;]  
ID = CheckInput(Request(“id“),“i“) WQNFHRfO*n  
{%v{iE>  
下面是函数 Mgux(5`;  
z|m-nIM  
%hA0  
Function CheckInput(str,strType) rW
2   
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 ]2mfby  
  参数意义： str     ---- 要过滤的参数 dJ7!je1N*  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i ^Zq3K  
Dim strTmp LHusy;<E[  
strTmp   = U1pwk[  
If strType =s Then pE]s>Ta  
strTmp = Replace(Trim(str),,) K^[Dz\ov5  
ElseIf strType=i Then _3m\r*(vmQ  
If isNumeric(str)=False Then str=0 'q{d? K  
strTmp = str "IzM:  
Else e~G um  
strTmp = str p~<d8n4UH  
End If (p?B=  
CheckInput = strTmp iRI7x)^0"z  
End Function (+.R8  
MgQb"
qx  
$$---Y  
:w26d-QR(  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) '8"$:y  
单引号捏? 8'VcaU7Nh  
h~.z[  
鉴定完毕.