📄 error.asp
字号:
<%
'程序名称：淮海高科管理系统[Huaihi]
'程序作者：淮海高科
'作者邮箱：101101111@QQ.com
'作者 Q Q：101101111
'作者电话：13863275880
'官方主页：http://Huaihi.com
%>
<!--#include file="inc/set.asp"-->
<%
If Request.QueryString("action")="" then
response.redirect"index.asp"
elseIf Request.QueryString("action")="skin" then
Response.Cookies(yecao)("MyDiySkin")=request.querystring("skin")
response.Cookies(yecao).expires=date()+365
response.redirect Request.ServerVariables("HTTP_REFERER")
end if
dim text
text=Encode(Request.QueryString("text"))
If Request.QueryString("action")="error" then
response.write"<html><title>出错信息</title>"& vbCrLf
response.write"<body topmargin=80 bgcolor=#eeeeee>" & vbCrLf
response.write "<TABLE cellSpacing=0 cellPadding=0 border=0 align=center>"& vbCrLf
response.write "<TR><TD vAlign=bottom align=middle><TABLE cellSpacing=1 cellPadding=0 bgColor=#e1e1e1 border=0>"& vbCrLf
response.write "<TR><TD bgColor=#ffffff><TABLE cellSpacing=1 cellPadding=0 bgColor=#d7d7d7 border=0>"& vbCrLf
response.write "<TR><TD bgColor=#ffffff><TABLE cellSpacing=1 cellPadding=0 bgColor=#969696 border=0>"& vbCrLf
response.write "<TR><TD bgColor=#ffffff><TABLE cellSpacing=0 cellPadding=1 width=""100%"" border=0>"& vbCrLf
response.write "<TR><TD align=center style=padding:4px;font-size:9pt;lin-height:150%;width:280;height:60>"& vbCrLf
response.write "<font style=""color:#969696;cursor:hand"">"&text&"</font>" & vbCrLf
response.write "</TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE>" & vbCrLf
response.write "</body></html>"& vbCrLf
response.end
ElseIf Request.QueryString("action")="stop" then
response.write"<html><title>系统暂停服务</title>"& vbCrLf
response.write"<body topmargin=80 bgcolor=#eeeeee>" & vbCrLf
response.write "<TABLE cellSpacing=0 cellPadding=0 border=0 align=center>"& vbCrLf
response.write "<TR><TD vAlign=bottom align=middle><TABLE cellSpacing=1 cellPadding=0 bgColor=#e1e1e1 border=0>"& vbCrLf
response.write "<TR><TD bgColor=#ffffff><TABLE cellSpacing=1 cellPadding=0 bgColor=#d7d7d7 border=0>"& vbCrLf
response.write "<TR><TD bgColor=#ffffff><TABLE cellSpacing=1 cellPadding=0 bgColor=#969696 border=0>"& vbCrLf
response.write "<TR><TD bgColor=#ffffff><TABLE cellSpacing=0 cellPadding=1 width=""100%"" border=0>"& vbCrLf
response.write "<TR><TD align=center style=padding:4px;font-size:9pt;lin-height:150%;width:280;height:60>"& vbCrLf
response.write "<font style=""color:#969696;cursor:hand"" onclick=window.open('bbs/');>"&text&"</font>" & vbCrLf
response.write "</TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE>" & vbCrLf
response.write "</body></html>"& vbCrLf
response.end
ElseIf Request.QueryString("action")="success" then
response.write"<html><title>操作成功</title>"& vbCrLf
response.write"<body topmargin=80 bgcolor=#eeeeee>" & vbCrLf
response.write "<TABLE cellSpacing=0 cellPadding=0 border=0 align=center>"& vbCrLf
response.write "<TR><TD vAlign=bottom align=middle><TABLE cellSpacing=1 cellPadding=0 bgColor=#e1e1e1 border=0>"& vbCrLf
response.write "<TR><TD bgColor=#ffffff><TABLE cellSpacing=1 cellPadding=0 bgColor=#d7d7d7 border=0>"& vbCrLf
response.write "<TR><TD bgColor=#ffffff><TABLE cellSpacing=1 cellPadding=0 bgColor=#969696 border=0>"& vbCrLf
response.write "<TR><TD bgColor=#ffffff><TABLE cellSpacing=0 cellPadding=1 width=""100%"" border=0>"& vbCrLf
response.write "<TR><TD align=center style=padding:4px;font-size:9pt;lin-height:150%;width:280;height:60>"& vbCrLf
response.write "<font style=""color:#969696;cursor:hand"" onclick=window.open('bbs/');>"&text&"</font>" & vbCrLf
response.write "</TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE>" & vbCrLf
response.write "</body></html>"& vbCrLf
response.end
end if
Function Encode(content)
dim tmp
tmp=content
tmp=replace(tmp,"<","<")
tmp=replace(tmp,">",">")
tmp=replace(tmp,"'","")
tmp=replace(tmp,"char(34)","")
Encode=tmp
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -