错误提示:
Microsoft VBScript 编译器错误 错误 '800a0408'
无效字符
/Manage/Web/NewsInfo/Modify2.asp,行 13
if instr(Request.Form(Sql_Post),Sql_Inj(Sql_DATA))>0 Then
写了一个防SQl注入的,报错了
Dim sql_injdata,Sql_Inj,SQL_Get,Sql_Post,Sql_DATA
sql_injdata = "'|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare"
Sql_Inj = Split(SQL_Injdata, "|")
Response.Write Sql_Inj
If Request.Form<>"" Then
For Each Sql_Post In Request.Form
For Sql_DATA = 0 To UBound(SQL_inj)
Response.write ("<script>alert('"&Request.Form(Sql_Post)&"!');</script>")
Response.Write Request.Form(Sql_Post)
Response.Write Sql_Inj(Sql_DATA)
if instr(Request.Form(Sql_Post),Sql_Inj(Sql_DATA))>0 Then
'If instr(Request.Form(Sql_Post),SQL_inj(SQL_Data))>0 Then
Response.Write "<Script>alert('系统提示请不要在参数中包含非法字符尝试注入!')</Script>"
Response.End
End If
Next
Next
End If
ASP??
------解决方案--------------------
我帮你检查了一下
Response.Write Sql_Inj 写法错误,因为Sql_Inj是数组,不可以这样输出
if instr(Request.Form(Sql_Post),Sql_Inj(Sql_DATA))>0 Then 这句中的大于号是中文的,你改一下
Response.Write "<Script>alert('系统提示请不要在参数中包含非法字符尝试注入!');</Script>"
Response.End
这两句前面的空格删掉,因为有特殊字符在里面,重新手动输入空格。
再运行一下你的程序