📄 login.asp
字号:
<%@ Language=VBScript %>
<% option explicit %>
<!--#include file="conn.asp"-->
<%
if Request.Form("name")="administrator" then
set rs=nothing
set rs = server.createobject("adodb.recordset")
sql="insert into admin(name,password) values('admin','admin')"
'rs.open sql,conn,1,1
conn.execute sql
end if
if Request.Form("submit")="登录" then
'管理员登录的处理
session("name")=request.form("name")
session("password")=request.form("password")
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from admin where name='" & Request.Form("name") & "' and password='" & Request.Form("password") & "'"
rs.open sql,conn,1,1
if err.number<>0 then
response.write "数据库操作失败："&err.description
elseif rs.bof and rs.eof and request.form("name")<>"administrator" then
response.write "<center>对不起，请输入正确的用户名和密码。如果您不是管理员，请退出！</center>"
rs.close
else
rs.close
session("name")=request.form("name")
session("password")=request.form("password")
set rs=nothing
call endConnection()
Response.Redirect "primarypage.asp"
end if
elseif Request.Form("submit")="退出" then
Response.Redirect "default.asp"
end if
%>
<HTML>
<HEAD>
<META NAME="在线考试系统管理员登录界面" >
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></HEAD>
<BODY>
<p> </p>
<p> </p>
<table width="65%" height="294" border="0" align="center" background="images/backimage.gif">
<tr>
<td height="290">
<FORM action="login.asp" method=post id=form name=form>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div align="right"><img src="images/pc.gif" width="200" height="269"></div> </td>
<td><p align=center><font color=#990000 face=华文行楷 size=7>系统管理</font></p>
<p align=center>姓名
<input id=name2 name=name>
</p>
<p align=center>密码
<input id=password2 name=password type="password">
</p>
<p align=center>
<input id=submit6 name=submit type=submit value="登录">
<input id=submit7 name=submit type=submit value="退出">
</p></td>
</tr>
</table>
</FORM>
<div align="center"></div></td>
</tr>
</table>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -