'判断用户提交的数字参数,诸如**.asp?id=xxx
'思路:用户提交的不是数字的情况下(**.asp?id=xxx and 1=1),将后面非数字字符全部过滤
'这样,在被注入或发生其他情况时,都能显示正确的数据
'下面是函数
Function toNum(str)
' If isNumeric(str) Then
' toNum = cLng(str)
' ElseIf isNull(str) Then
If isNull(str) Then
toNum = ""
Else
Dim s,i,ts,ch
s = ""
ts = str
For i = 1 to Len(ts)
ch = Mid(ts,i,1)
If Asc(ch) >= 48 And Asc(ch) <=57 Then
s = s & ch
Else
Exit For
End If
Next
If Len(s)>0 Then
toNum = cLng(s)
Else
toNum = s
End If
End If
End Function
我的ID型参数过滤防注入之道(ASP)
最新推荐文章于 2022-11-21 19:27:59 发布