📄 errmsg.asp
字号:
<%
if Request("MSError")<>"" then
dim strMsg,strTitle
strMsg=Request("strMsg")
strTitle=Request("strTitle")
select case Request("msError")
case "adminShowMsg"
adminShowMsg strMsg,strTitle
case "showMsg"
showmsg strMsg,strTitle
case "errmPage"
errPageHead
errmPage strMsg,strTitle
errPagefoot
end select
end if
sub adminShowMsg(strTitle,strMsg)
dim strTemp
strTemp="<table width=""100%"" border=""0"" cellpadding=""3"" cellspacing=""1"" class=""text table_border mainTable"">"&_
"<tr>"&_
"<td height=""27"" valign=""middle"" align=""center"" class=""td_titleT"">"&strTitle&"</td>"&_
"</tr>"&_
"<tr>"&_
"<td height=""50"" class=""td_bgcolor"" align=""center"" valign=""middle""><div align=""left"" style=""width:85%"">"&strMsg&"</div></td>"&_
"</tr>"&_
"<tr align=""center"" valign=""middle"">"&_
"<td height=""24"" valign=""bottom"" align=""center"" class=""td_bgcolor"">【<a href=""#"" onClick=""window.history.go(-1);"">返回上一步</a>】【<a href=""javascript"" onClick=""javascript:window.close();"">关闭窗口</a> 】</td>"&_
"</tr>"&_
"</table>"
response.write strTemp
end sub
sub popedomMsg
dim strTemp
strTemp="<table width=""100%"" border=""0"" cellpadding=""3"" cellspacing=""1"" class=""text table_border mainTable"">"&_
"<tr>"&_
"<td height=""27"" valign=""middle"" align=""center"" class=""td_titleT"">权限验证失败</td>"&_
"</tr>"&_
"<tr>"&_
"<td height=""50"" class=""td_bgcolor"" align=""center"" valign=""middle""><li>权限验证失败，您没有操作此项的权限</li><li>如果有什疑问请联系[管理员]</li></td>"&_
"</tr>"&_
"<tr align=""center"" valign=""middle"">"&_
"<td height=""24"" valign=""bottom"" align=""center"" class=""td_bgcolor"">【<a href=""#"" onClick=""window.history.go(-1);"">返回上一步</a>】【<a href=""javascript"" onClick=""javascript:window.close();"">关闭窗口</a> 】</td>"&_
"</tr>"&_
"</table>"
response.write strTemp
end sub
sub showMsg(strMsg,strTitle)
dim strTemp
strTemp="<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"" class=""errTable"">"&_
"<tr>"&_
"<td height=""27"" colspan=""2"" valign=""middle"" class=""errTitle"">"&strTitle&"</td>"&_
"</tr>"&_
"<tr>"&_
"<td width=""233"" height=""130"" valign=""middle"" align=""center""><img src=""images/messga.gif"" width=""128"" height=""128""></td>"&_
"<td width=""*"" valign=""middle"">"&strMsg&"</td>"&_
"</tr>"&_
"<tr align=""center"" valign=""middle"">"&_
"<td height=""32"" colspan=""2"" class=""errTitle"">【<a href=""#"" onClick=""javascript:window.history.go(-1);"">返回上一步</a>】【<a href=""javascript:"" onClick=""javascript:window.close();"">关闭窗口</a> 】</td>"&_
"</tr>"&_
"</table>"
response.write strTemp
End Sub
Sub errmPage(strMsg,strTitle)
dim strTemp
strTemp="<table width=""500"" border=""0"" cellpadding=""0"" cellspacing=""0"" class=""errTable"">"&_
"<tr>"&_
"<td width=""500"" height=""28"" align=""center"" valign=""middle"" class=""errTitle"">"&strTitle&"</td>"&_
"</tr>"&_
"<tr>"&_
"<td height=""150"" valign=""middle"" class=""errMiddle"">"&strMsg&"</td>"&_
"</tr>"&_
"<tr>"&_
"<td height=""25"" align=""center"" valign=""middle"" class=""errTitle"">【<a href=""#"" onClick=""javascript:window.history.go(-1);"">返回上一步</a>】【<a href=""javascript:"" onClick=""javascript:window.close();"">关闭窗口</a> 】</td>"&_
"</tr>"&_
"</table>"
response.write strTemp
End Sub
sub errPageHead()
dim strTemp%>
<%
strTemp="<html><head><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312""><title>出错信息</title><link href=""../skins/"&Request.Cookies("maosinSkin")("skin")&"/err.css"" type=""text/css"" rel=stylesheet></head>"&_
"<body>"&_
"<table width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"&_
"<tr>"&_
"<td valign=""middle"" align=""center"">"
response.write strTemp
end sub
sub errPagefoot()
strTemp="</td>"&_
"</tr>"&_
"</table>"&_
"</body>"&_
"</html>"
response.write strTemp
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -