login.asp asp+ACCESS在线考试系统(源代码+论文+外文翻译) - ASP源码程序

www.gusucode.com > asp+ACCESS在线考试系统(源代码+论文+外文翻译) > asp+ACCESS在线考试系统(源代码+论文+外文翻译)\admin\login.asp

    <%@ 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")
				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>
<FORM action="login.asp" method=post id=form name=form>
<P align=center><FONT color=green face=华文行楷 size=6>欢迎您光临管理员登录界面</FONT></P>
<P align=center>姓名<INPUT id=1 name=name value=name></P>
<P align=center>密码<INPUT id=2 name=password value=password></P>
<P align=center><INPUT id=submit1 name=submit type=submit value="登录"></P>
<P align=center><INPUT id=submit2 name=submit type=submit value="退出"></P>
</FORM>
</BODY>
</HTML>