📄 adminlogin.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<% ipcheck()
If session("kenanbook")=true Then
Response.Redirect("adminindex.asp")
End If
If Request.Querystring("style")="chk" Then '------->判断是否检测
user=Replace(Trim(Request.Form("user")),"'","''") '------->过滤不良字符
pass=Replace(Trim(Request.Form("pass")),"'","''")
If user="" Then
Response.Redirect("error.asp?err=104")
End If
If pass="" Then '------->如果没有输入则...
Response.Redirect("error.asp?err=105")
End If
chksql="select * from admin where admin='"&user&"' and password='"&pass&"'"
set chkrs=conn.execute(chksql)
If chkrs.bof Then
chkrs.close
set chkrs=nothing
Response.Redirect("error.asp?err=103") '------>如果数据库中无此管理员则...
Else
session("kenanbook")=user
Response.Redirect("adminindex.asp") '------>登陆成功。返回首页
End If
Else
connclose()
header()
Call login()
footer()
End If
%>
<title><%=webname%>留言本管理员登陆</title>
</head>
<body>
</body>
</html>
<% sub login() %>
<BR><BR><BR><BR><BR><BR>
<form name="form1" method="post" action="adminlogin.asp?style=chk">
<table width="400" height="156" border="0" align="center" cellpadding="0" cellspacing="0" class="table002">
<tr>
<td colspan="2" align="center"><img src="images/login.gif" width="24" height="24" align="absmiddle">
超级管理登陆 </td>
</tr>
<tr>
<td width="171" align="center"> 管理员姓名:</td>
<td width="229"><input name="user" type="text" id="user" size="18"></td>
</tr>
<tr>
<td align="center">管理员密码:</td>
<td><input name="pass" type="password" id="pass" size="18"></td>
</tr>
<tr>
<td></td>
<td><input type="submit" name="Submit" value="确认"> <input type="button" name="close" value="取消" onClick="javascript:history.back()"></td>
</tr>
</table><BR><BR><BR><BR><BR><BR>
</form>
<% end sub %>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -