?? 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>
<title>管理員登陸----在線考試系統</title>
</HEAD>
<BODY background=../images/backimage.gif>
<FORM action="login.asp" method=post id=form name=form>
<table align="center" width=250 border=1 bordercolor=lightgreen cellpadding=0 cellspacing=0>
<tr><td colspan=2 align="center"><FONT color=green face=華文行楷 size=6>管理員登錄</FONT></td></tr>
<tr><td>姓名:</td><td><input id=1 type=text name=name></td></tr>
<tr><td>密碼:</td><td><input id=2 type=password name=password></td></tr>
<tr><td align="center" colspan=2><INPUT id=submit1 name=submit type=submit value="登錄">
<INPUT id=submit2 name=submit type=submit value="退出"></td></tr>
</table>
</FORM>
</BODY>
</HTML>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -