📄 error.asp

📁 安全性好,适用于展示和进行资源下载的个人和大型网站使用!
💻 ASP
字号:
<!--#include file="inc/conn.asp"-->
<%
call YCMS_get()
dim text
Function errEncode(content)
dim tmp
tmp=content
tmp=replace(tmp,"<","&lt;")
tmp=replace(tmp,">","&gt")
tmp=replace(tmp,"'","")
tmp=replace(tmp,"char(34)","")
errEncode=tmp
End Function
text=errEncode(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:500px;height:100px;>"& 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:500px;height:100px;>"& 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
ElseIf Request.QueryString("action")="back" 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;"">"&text&"</font>" & vbCrLf
response.write "<br /><font style=""color:#ff0000;cursor:hand"" onclick=""history.back();"">[杩
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -