www.gusucode.com > asp+ACCESS在线考试系统(源代码+论文+外文翻译) > asp+ACCESS在线考试系统(源代码+论文+外文翻译)\default.asp
<%@ Language=VBScript %> <% option explicit %> <!--#include file="conn.asp"--> <% if Request.ServerVariables("http_method")="POST" then if Request.Form("submit")="登 录" then '学生登录的处理 dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from student where studentname='" & Request.Form("studentname") & "' and studentpassword='" & Request.Form("studentpassword") & "'" rs.open sql,conn,1,1 if err.number<>0 then response.write "数据库操作失败:"&err.description else if rs.bof and rs.eof then response.write "<center>对不起,请输入正确的用户名和密码。</center>" rs.close else rs.close session("studentname")=request.form("studentname") set rs=nothing call endConnection() Response.Redirect "selectsubject.asp" end if end if '用户注册 elseif Request.Form("submit")="注 册" then Response.Redirect "register.asp" '管理员进行管理 elseif Request.Form("submit")="管 理" then Response.Redirect "admin/login.asp" end if end if %> <HTML> <HEAD> <META NAME="在线考试系统" > </HEAD> <BODY background=images/backimage.gif> <FORM action="default.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=studentname value=name></P> <P align=center>密码<INPUT id=2 name=studentpassword 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> <P align=center><INPUT id=submit3 name=submit type=submit value="管 理"></P> </FORM> </BODY> </HTML>