? hzhost防asp攻擊函數(shù)


Function SafeRequest(ParaName)
Dim ParaValue
ParaValue=Request(ParaName)
if IsNumeric(ParaValue)? then
SafeRequest=ParaValue
exit Function

else
ParaValuetemp=lcase(ParaValue)
tempvalue="select |insert |delete from|'|count(|drop table|update |truncate? |asc(|mid(|char(|xp_cmdshell|exec master|net localgroup administrators|net user| or | and |%20from"
temps=split(tempvalue,"|")
for mycount=0 to ubound(temps)
if? Instr(ParaValuetemp,temps(mycount)) > 0 then
??? ??? call errorpage(-2,"非法請求！！！")
??? ??? response.end
end if
next
SafeRequest=ParaValue
end if
End function

'=================

總結(jié)

以上是生活随笔為你收集整理的hzhost防asp攻击函数的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。