欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

有关asp的一段报错有关问题

更新时间: 2014-01-05 01:52:25 责任编辑: Author_N1

 

有关ASP的一段报错问题!
从网上找的一段防SQL注入的脚本.

Microsoft VBScript 编译器错误 (0x800A0408)
无效字符
/qfly/shop/guest/sql.asp, line 10
    response.write("<script language='javascript'>alert('对不起,请勿恶意注入!');Javascript:window.history.go(-1);</script>")


程序
<%@LANGUAGE="VBSCRIPT"%>
<%
dim sql_injdata 
SQL_injdata = "'|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare" 
SQL_inj = split(SQL_Injdata,"|") 
If Request.QueryString<>"" Then 
  For Each SQL_Get In Request.QueryString
  For SQL_Data=0 To UBound(SQL_inj)
If InStr(Request.QueryString(SQL_Get),Sql_Inj(Sql_DATA))>0 then
    response.write "<script language=javascript>alert('对不起,请勿注入!');Javascript:window.history.go(-1);</script>"
  response.end
  End If
Next
  Next
End If

If Request.Form<>"" Then 
 For Each Sql_Post In Request.Form 
  For SQL_Data=0 To Ubound(SQL_inj) 
   if instr(Request.Form(Sql_Post),Sql_Inj(Sql_DATA))>0 Then 
    Response.Write "<Script Language='javascript'>alert('1111');history.back(-1)</Script>"
    Response.end 
   end if 
  next 
 next 
end if
%>


--参考方法--
response前面有全角空格,要用半角空格。
代码其他地方也有,要一起替换掉。
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 01:52:25
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/2326/
本文WWW.DOC100.NET DOC100.NET版权所有。