⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 prompt.inc

📁 迅捷网上调查系统管理
💻 INC
字号:
<%
'成功提示
sub success()
response.write "<html><head><title>"&successmess&"</title><meta http-equiv=Content-Type content=text/html; charset=gb2312><meta http-equiv=refresh content='1; url="&backurl&"'><link rel=stylesheet type=text/css href=../sys/inc/soonhost.css></head>"&_
"<br><br><br><table cellpadding=3 cellspacing=0 border=1 width=400 align=center ><tr align=center>"&_
"<td class=td1 width=100% ><b>"&successmess&"</b></td></tr><tr><td class=td2 width=100% ><b>系统将自动返回</b><br></td>"&_
"</table>"
end sub


'成功后自动关闭
sub successautoclose()
response.write "<html><head><title>"&successmess&"</title><link rel=stylesheet type=text/css href=../sys/inc/soonhost.css></head>"&_
"<br><br><br><table cellpadding=3 cellspacing=0 border=1 width=400 align=center ><tr align=center>"&_
"<td class=td1 width=100% ><b>"&successmess&"</b></td></tr><tr><td class=td2 width=100% ><b>本窗口在2秒后自动关闭!<OBJECT id=closes type=application/x-oleobject classid=clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11><param name=Command value=Close></object><body onload=window.setTimeout('closes.Click()',2000)></b><br></td>"&_
"</table>"
end sub




sub successclose()
response.write "<html><head><title>"&successmess&"</title><link rel=stylesheet type=text/css href=../sys/inc/soonhost.css></head>"&_
"<br><br><br><table cellpadding=3 cellspacing=0 border=1 width=400 align=center ><tr align=center>"&_
"<td class=td1 width=100% ><b>"&successmess&"</b></td></tr><tr><td class=td2 width=100% ><b><a href='javascript:window.close()'>【关闭窗口】</a></b><br></td>"&_
"</table>"
end sub

'成功返回
sub successback()
response.write "<html><head><title>"&successmess&"</title><link rel=stylesheet type=text/css href=../sys/inc/soonhost.css></head>"&_
"<br><br><br><table cellpadding=3 cellspacing=0 border=1 width=400 align=center ><tr align=center>"&_
"<td class=td1 width=100% ><b>"&successmess&"</b></td></tr><tr align=center><td class=td1 width=100% > <a href=javascript:history.go(-1)> 返回</a> </td></tr></table></td></tr>"&_
"</table>"
end sub


'错误提示
sub error()
response.write "<html><head><title>错误!</title><meta http-equiv=Content-Type content=text/html; charset=gb2312><link rel=stylesheet type=text/css href=../sys/inc/soonhost.css></head>"&_
"<br><br><br><table cellpadding=3 cellspacing=0 border=1 width=400 align=center ><tr align=center>"&_
"<td class=td1 width=100% ><b>错误!</b></td></tr><tr><td class=td2 width=100% ><b>错误可能原因:</b><br>"&errmsg&"</td>"&_
"</tr><tr align=center><td class=td1 width=100% ><a href=javascript:history.go(-1)> 返回</a> </td></tr></table></td></tr></table>"
end sub

sub error2()
response.write "<html><head><title>错误!</title><meta http-equiv=Content-Type content=text/html; charset=gb2312><link rel=stylesheet type=text/css href=../sys/inc/soonhost.css></head>"&_
"<br><br><br><table cellpadding=3 cellspacing=0 border=1 width=400 align=center ><tr align=center>"&_
"<td class=td1 width=100% ><b>错误!</b></td></tr><tr><td class=td2 width=100% ><b>错误可能原因:</b><br>"&errmsg&"</td>"&_
"</tr><tr align=center><td class=td1 width=100% > <a href='javascript:window.close()'>【关闭窗口】</a> </td></tr></table></td></tr></table>"
end sub
%>

⌨️ 快捷键说明

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