📄 error.asp
字号:
<%
sub showerr(errstr,errstr2)
if trim(errstr2)="" then
errstr=errstr&"<p>请点击'浏览器的后退键'返回</a>"
else
errstr=errstr&"<p>请<a href="&errstr2&">返回</a>"
end if
%>
<html>
<head>
<title>错误！</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FEFBF1" background="images/sky2.gif" text="#000000">
<div align="center">
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<table width="288" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#A7CCED" height="24">
<div align="center"><font size="4" color="#FF0000" face="楷体_GB2312">错
误</font></div>
</td>
</tr>
<tr>
<td height="69" bgcolor="#F2F2F2">
<center>
<img src="images/2.gif" width="34" height="36"> <%=errstr%>
</center></td>
</tr>
</table>
</div>
</body>
</html>
<% end sub
sub chkuser(str1,str2)
sql="select * from user where user='"&str1&"' and pwd='"&str2&"' and op=3"
set rs=conn.execute(sql)
if rs.eof then
rs.close
set rs=nothing
set conn=nothing
showerr "用户名或密码错误！","index.asp target=_top"
response.End()
end if
rs.close
set rs=nothing
end sub
%>
<%
sub showok(str1,str2)
if trim(str2)<>"" then
str2="<a href="&str2&">"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css.css">
<title>提示</title>
</head>
<body bgcolor="#FEFBF1" background="images/sky2.gif" text="#000000">
<p> </p>
<p> </p>
<table width="288" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#00ff00" height="24">
<div align="center"><font size="4" color="#0000FF" face="楷体_GB2312">提
示</font></div>
</td>
</tr>
<tr>
<td height="69" bgcolor="#F2F2F2">
<center>
<p><%=str1%> </p>
<p>请<%=str2%>返回</a> </p>
</center></td>
</tr>
</table>
</body>
</html>
<% end sub %>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -