login.asp
来自「考试系统,主要完成在线考试,并且应用SQLSERVER,这样可以保证数据库的安全」· ASP 代码 · 共 59 行
ASP
59 行
<%@ Language=VBScript %>
<% option explicit %>
<!--#include file="conn.asp"-->
<%
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 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="在线考试系统管理员登录界面" >
</HEAD>
<BODY background=../images/backimage.gif>
<table width="75%" border="0" align="center" height="390">
<tr>
<td height="386">
<FORM action="login.asp" method=post id=form name=form>
<P align=center><img src="../images/logo.gif" width="500" height="60"></P>
<P align=center><FONT color=green size=7><strong>网上考试系统管理员登录</strong></FONT></P>
<P align=center> </P>
<P align=center>姓名
<INPUT id=1 name=name>
</P>
<P align=center>密码
<INPUT id=2 name=password type="password">
</P>
<P align=center> </P>
<P align=center><INPUT id=submit1 name=submit type=submit value="登录"> <INPUT id=submit2 name=submit type=submit value="退出"></P>
</FORM>
</td>
</tr>
</table>
<!--#include file="../foot.htm"-->
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?