Jsp/Servlet

开发平台：

Java

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
%>

						