ASP 非法字符過濾函數(shù)
更新時間：2006年10月18日 00:00:00 投稿：mdxy-dxy
現(xiàn)在黑客經(jīng)常測試網(wǎng)站，一些網(wǎng)站經(jīng)常被各種注入，為程序員的成長提供了比較緊迫的環(huán)境，所以大家在寫程序的時候一定要注意網(wǎng)站安全問題
復(fù)制代碼 代碼如下:
<%
'==============================================================檢查提交數(shù)據(jù)合法性
Function CheckInput()
'--------定義部份------------------
Dim Fy_Post,Fy_Get,Fy_In,Fy_Inf,Fy_Xh,Fy_db,Fy_dbstr,Kill_IP,WriteSql
'自定義需要過濾的字串,用 "|" 分隔
Fy_In = "'|;|and|(|)|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare"
Fy_Inf = split(Fy_In,"|")
'--------POST部份------------------
If Request.Form <> "" Then
For Each Fy_Post In Request.Form
For Fy_Xh = 0 To Ubound(Fy_Inf)
If Instr(LCase(Request.Form(Fy_Post)),Fy_Inf(Fy_Xh)) <> 0 Then
Echo "<Script Language=JavaScript>alert('請不要在參數(shù)中包含非法字符！');history.go(-1);</Script>"
Response.End
End If
Next
Next
End If
'----------------------------------
'--------GET部份-------------------
If Request.QueryString <> "" Then
For Each Fy_Get In Request.QueryString
For Fy_Xh = 0 To Ubound(Fy_Inf)
If Instr(LCase(Request.QueryString(Fy_Get)),Fy_Inf(Fy_Xh)) <> 0 Then
Echo "<Script Language=JavaScript>alert('請不要在參數(shù)中包含非法字符！');history.go(-1);</Script>"
Response.End
End If
Next
Next
End If
End Function
%>
相關(guān)文章
asp按關(guān)鍵字查詢XML的問題2008-10-10
一小偷類!!有興趣的可以看看...2007-03-03
經(jīng)常用asp需要特殊的顯示日期，特把比較簡單的方法整理下，方便大家2008-06-06
在asp中通過vbs類實現(xiàn)rsa加密與解密的代碼
在asp中通過vbs類實現(xiàn)rsa加密與解密的代碼...2007-03-03
ASP錯誤處理...2007-03-03
ASP動態(tài)生成的javascript表單驗證代碼...2006-11-11
解決使用良精企業(yè)建站7.0未注冊問題...2007-04-04
asp中將有雙引號標(biāo)題入庫的方法，需要的朋友可以參考下2012-10-10
asp搜索兩個以上的詞的實現(xiàn)方法，簡單的就是利用split，其它的可以參考本站之前更新的文章2008-11-11
ASP 環(huán)境下 VBS 事件應(yīng)用 示例代碼
ASP 環(huán)境下 VBS 事件應(yīng)用 示例代碼...2007-03-03