?? 20050130_loginagine.asp
字號:
<%
username=request("username") '接受管理員用戶名
password=request("password") '接受管理員密碼
keys=request("keys")
mm=0
%>
<!--#include file="conn.asp"-->
<%
if username<>"" and password<>"" then
set rs=conn.execute("select * from administrator where username='"& username & "'") '判斷是否存在該用戶
if not (rs.bof and rs.eof) then '判斷是否有該權限
if rs("password")=password then
session("password")=rs("password") '為真則將該用戶的該權限放入SESSION中
Response.Redirect "admin.asp" '跳轉到管理員管理頁面
else
mm=1
end if
else
mm=2
end if
elseif keys="submit" then
mm=3
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" rel="stylesheet" type="text/css">
<title>25175.com 在線考試系統v1.3</title>
</head>
<body>
<table width="250" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div align=center>
<form action="20050130_loginagine.asp" method="post" name="form2" id="form2">
<table width="250" border="0">
<tr bgcolor="#F3F3F3">
<td height="28" colspan="2">
<div align="center">
<%
if mm=1 then
Response.Write "對不起，您輸入的密碼有誤！"
elseif mm=2 then
Response.Write "您沒有登陸的權限！"
elseif mm=3 then
Response.Write "請輸入完整的用戶名和密碼！"
end if
%>
</div></td>
</tr>
<tr>
<td align="right">管理員帳號：</td>
<td width="150"><input name="keys" type="hidden" value="submit">
<input name="username" type="text" class="editbox1" id="username" value="admin" size="15"></td>
</tr>
<tr>
<td align="right">管理員密碼：</td>
<td><input name="password" type="password" class="editbox1" value="admin" size="15"></td>
</tr>
<tr align="center">
<td colspan="2">
<input type="submit" name="Reg2" value="登錄" class="bottom">
<input type="reset" name="Submit32" value="重寫" class="bottom">
</td>
</tr>
</table>
</form>
</div></td>
</tr>
</table>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -