📄 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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -