📄 sqluser.asp
字号:
<%
dim GuGetFlag
dim GuErrorSQLG,GuErrorSQLF
dim RequestKey
dim iGuG,iGuF
GuErrorSQLG=GuErrorSQLGDefault
GuErrorSQLF=GuErrorSQLFDefault
GuErrorSQLG=split(GuErrorSQLG,"|")
GuErrorSQLF=split(GuErrorSQLF,"|")
if Request.ServerVariables("REQUEST_METHOD")="GET" then
GuGetFlag=True
else
GuGetFlag=False
end if
if GuGetFlag then
For Each RequestKey In Request.QueryString
For iGuG=0 To Ubound(GuErrorSQLG)
if Instr(LCase(Request.QueryString(RequestKey)),GuErrorSQLG(iGuG))<>0 then
call GuSQLUserMessage()
end if
Next
Next
else
For Each RequestKey In Request.Form
For iGuF=0 To Ubound(GuErrorSQLF)
if Instr(LCase(Request.Form(RequestKey)),GuErrorSQLF(iGuF))<>0 then
call GuSQLUserMessage()
end if
Next
Next
end if
Sub GuSQLUserMessage()
Response.write "<html>" &vbCrLf
Response.write "<head>" &vbCrLf
Response.write "<title>"&WebSiteName&"</title>" &vbCrLf
Response.write "<meta http-equiv=""Content-Type"" content=""text/html;charset=gb2312"">" &vbCrLf
Response.write "<meta http-equiv=""Content-Language"" Content=""zh-CN"">" &vbCrLf
Response.write "<link type=""text/css"" rel=""stylesheet"" href=""Include/Style.css"">" &vbCrLf
Response.write "</head>" &vbCrLf
Response.write "" &vbCrLf
Response.write "<body>" &vbCrLf
Response.write "" &vbCrLf
Response.write "<font class=""BlackG14"">数据提交失败，表单中包含特殊字符，正在连接到网站首页....</font>" &vbCrLf
Response.write "" &vbCrLf
Response.write "<Script Language=""JavaScript"">" &vbCrLf
Response.write "<!--" &vbCrLf
Response.write "setTimeout(""document.location.href='"&WebSiteURL&"'"",6000);" &vbCrLf
Response.write "//-->" &vbCrLf
Response.write "</Script>" &vbCrLf
Response.write "" &vbCrLf
Response.write "</body>" &vbCrLf
Response.write "</html>" &vbCrLf
Response.end
end Sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -