Microsoft VBScript 编译器错误 '800a03ee' 缺少 ')'\system\inc.asp, line 14

Question

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% Session.CodePage=65001
Response.CharSet = "utf-8"
'防GET方式的sql注入===============================
sub checksql()
dim sql_injdata
dim sql_ind
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
call msg("Internet Explorer发生错误,\n\n即将关闭后重启","window.opener='null';window.close()","no")
exit for
sql_ind="yes"
end if
next
if sql_ind="yes" then
exit for
end if
Next
End If
end sub

Answer 1

你把“Internet Explorer发生错误,\n\n即将关闭后重启”这段文字改成全英文的看还会不会出错，如果不出错，那么就是编码问题，你的文件没有保存为UTF-8格式（不是说文件里写了utf-8它就是utf-8格式的）；如果还是出错，那么问题就是其他方面，我没找到。

Answer 2

msg函数中的包含文件inc.asp出问题了，先查看包含文件是不是在这个路径？

Answer 3

inc.asp,文件中的第 14 行：
call msg("Internet Explorer发生错误,\n\n即将关闭后重启","window.opener='null';window.close()","no")
不清楚你的这个msg是不是自定义函数？如果是，可能问题出在'\n\n'，在VBScript中没有这个转行符，而且转行符必须是这样的：" & VBcrlf & "，如果不是，而是VBScript中的MsgBox函数，那么错误更多。