1. 程式人生 > >防網站漏洞掃描asp程式碼,也就是防注入的通用程式碼

防網站漏洞掃描asp程式碼,也就是防注入的通用程式碼

把下面的程式碼儲存在公用檔案裡就可以防止注入掃描了,比方說conn.asp 裡,根據多年開發的經驗建議將網站後臺和前臺分離,後臺一個conn.asp 前臺一個conn.asp 前臺conn.asp加如下程式碼
<% 
Dim flashack_Post,flashack_Get,flashack_In,flashack_Inf,flashack_Xh,flashack_db,flashack_dbstr 
flashack_In = "'※;※and※exec※insert※select※delete※update※count※*※%※chr※mid※master※truncate※char※declare" 
flashack_Inf = split(flashack_In,"※") 
If Request.Form<>"" Then 
For Each flashack_Post In Request.Form 

For flashack_Xh=0 To Ubound(flashack_Inf) 
If Instr(LCase(Request.Form(flashack_Post)),flashack_Inf(flashack_Xh))<>0 Then 
Response.Write "Response.Write "非法操作!系統做了如下記錄↓<br>" 
Response.Write "操作IP:"&Request.ServerVariables("REMOTE_ADDR")&"<br>" 
Response.Write "操作時間:"&Now&"<br>" 
Response.Write "操作頁面:"&Request.ServerVariables("URL")&"<br>" 
Response.Write "提交方式:POST<br>" 
Response.Write "提交引數:"&flashack_Post&"<br>" 
Response.Write "提交資料:"&Request.Form(flashack_Post) 
Response.End 
End If 
Next 
Next 
End If 
If Request.QueryString<>"" Then 
For Each flashack_Get In Request.QueryString 
For flashack_Xh=0 To Ubound(flashack_Inf) 
If Instr(LCase(Request.QueryString(flashack_Get)),flashack_Inf(flashack_Xh))<>0 Then 
Response.Write "Response.Write "非法操作!flashack已經給你做了如下記錄↓<br>" 
Response.Write "操作IP:"&Request.ServerVariables("REMOTE_ADDR")&"<br>" 
Response.Write "操作時間:"&Now&"<br>" 
Response.Write "操作頁面:"&Request.ServerVariables("URL")&"<br>" 
Response.Write "提交方式:GET<br>" 
Response.Write "提交引數:"&flashack_Get&"<br>" 
Response.Write "提交資料:"&Request.QueryString(flashack_Get) 
Response.End 
End If 
Next 
Next 
End If 
%> 

如果有什麼疑問請加我的qq:382601350 ,同時本人提供asp網站改版,網站漏洞修補,伺服器維護等服務。 

把下面的程式碼儲存在公用檔案裡就可以防止注入掃描了,比方說conn.asp 裡,根據多年開發的經驗建議將網站後臺和前臺分離,後臺一個conn.asp 前臺一個conn.asp 前臺conn.asp加如下程式碼
<% 
Dim flashack_Post,flashack_Get,flashack_In,flashack_Inf,flashack_Xh,flashack_db,flashack_dbstr 
flashack_In = "'※;※and※exec※insert※select※delete※update※count※*※%※chr※mid※master※truncate※char※declare" 
flashack_Inf = split(flashack_In,"※") 
If Request.Form<>"" Then 
For Each flashack_Post In Request.Form 

For flashack_Xh=0 To Ubound(flashack_Inf) 
If Instr(LCase(Request.Form(flashack_Post)),flashack_Inf(flashack_Xh))<>0 Then 
Response.Write "Response.Write "非法操作!系統做了如下記錄↓<br>" 
Response.Write "操作IP:"&Request.ServerVariables("REMOTE_ADDR")&"<br>" 
Response.Write "操作時間:"&Now&"<br>" 
Response.Write "操作頁面:"&Request.ServerVariables("URL")&"<br>" 
Response.Write "提交方式:POST<br>" 
Response.Write "提交引數:"&flashack_Post&"<br>" 
Response.Write "提交資料:"&Request.Form(flashack_Post) 
Response.End 
End If 
Next 
Next 
End If 
If Request.QueryString<>"" Then 
For Each flashack_Get In Request.QueryString 
For flashack_Xh=0 To Ubound(flashack_Inf) 
If Instr(LCase(Request.QueryString(flashack_Get)),flashack_Inf(flashack_Xh))<>0 Then 
Response.Write "Response.Write "非法操作!flashack已經給你做了如下記錄↓<br>" 
Response.Write "操作IP:"&Request.ServerVariables("REMOTE_ADDR")&"<br>" 
Response.Write "操作時間:"&Now&"<br>" 
Response.Write "操作頁面:"&Request.ServerVariables("URL")&"<br>" 
Response.Write "提交方式:GET<br>" 
Response.Write "提交引數:"&flashack_Get&"<br>" 
Response.Write "提交資料:"&Request.QueryString(flashack_Get) 
Response.End 
End If 
Next 
Next 
End If 
%>