?? default.asp
字號(hào):
<%@ Language=VBScript %>
<% option explicit %>
<!--#include file="conn.asp"-->
<% if Request.ServerVariables("http_method")="POST" then
if Request.Form("submit")="登 錄" then
'學(xué)生登錄的處理
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 "數(shù)據(jù)庫(kù)操作失敗:"&err.description
else if rs.bof and rs.eof then
response.write "<center>對(duì)不起,請(qǐng)輸入正確的用戶名和密碼。</center>"
rs.close
else
rs.close
session("studentname")=request.form("studentname")
session("studentpassword")=request.form("studentpassword")
set rs=nothing
call endConnection()
Response.Redirect "selectsubject.asp"
end if
end if
'管理員進(jìn)行管理
elseif Request.Form("submit")="管 理" then
Response.Redirect "admin/login.asp"
end if
end if
%>
<HTML>
<HEAD>
<META NAME="在線考試系統(tǒng)" >
</HEAD>
<BODY background=images/backimage.gif>
<table width="75%" border="0" align="center" height="464">
<tr>
<td height="420">
<FORM action="default.asp" method=post id=form name=form>
<P align=center><FONT color=green face=華文行楷 size=6>歡迎使用網(wǎng)上考試系統(tǒng) V 1.0</FONT></P>
<P align=center>姓名
<INPUT id=1 name=studentname>
</P>
<P align=center>密碼
<INPUT id=2 name=studentpassword type="password">
</P>
<P align=center>
<INPUT id=submit1 name=submit type=submit value="登 錄">
<INPUT id=submit3 name=submit type=submit value="管 理">
</P>
</FORM>
</td>
</tr>
</table>
<!--#include file="foot.htm"-->
</BODY>
</HTML>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -