📄 admin.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="xuanke.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>网上选课系统</title>
<style type="text/css">
<!--
@import url("style.css");
-->
</style>
<%
dim admin_name,admin_psw,rs_admin
'接收表单数据--------------
admin_name=request.Form("admin_name")
admin_psw=request.Form("admin_psw")
if is_name(admin_name) then
Set rs_admin = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM admin where admin_name='" & admin_name & "'" & "and admin_psw='" & admin_psw & "'"
rs_admin.Open sql,xuanke_conn,3,2
if rs_admin.eof or rs_admin.bof then
'管理员名与密码不匹配提示管理员登陆错误--------------
response.Redirect("adminerr.asp")
response.End()
else
'管理员登陆成功--------------
session("admin_name")= rs_admin("admin_name")
response.Redirect("administrator.asp")
rs_admin.close
end if
else %>
<%end if%>
<!--#include file="include/is_name.asp" -->
</head>
<body>
<tr>
<td class="text"> <div align="left">用户名只能是字母</div></td>
</tr>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -