?? default.asp
字號:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<!--判斷是否提交數據，沒有提交數據則顯示登錄頁面-->
<%if Request.Form("hid")="" then%>
<HEAD>
<TITLE>圖書館管理系統</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="css/scss.css" type=text/css rel=stylesheet>
<style TYPE="text/css">
<!--
.in
{
BORDER-RIGHT: rgb(127,127,127) 1px solid;
BORDER-TOP: rgb(127,127,127) 1px solid;
FONT-SIZE: 9pt;
BORDER-LEFT: rgb(127,127,127) 1px solid;
BORDER-BOTTOM: rgb(127,127,127) 1px solid;
BACKGROUND-COLOR: #ffffff
}
//-->
</STYLE>
<SCRIPT LANGUAGE=javascript>
<!--
function cli()
{
if(document.form1.username.value=="")
{
alert("請填寫用戶名！")
document.form1.username.focus()
return false;
}
if(document.form1.password.value=="")
{
alert("請填寫密碼！")
document.form1.password.focus()
return false;
}
document.form1.submit()
}
//-->
</SCRIPT>
</HEAD>
<!--顯示登錄頁面窗口信息-->
<BODY text=#000000 bgColor=#f7f7f7 leftMargin=0 topMargin=60
onload="document.form1.username.focus();">
<DIV ID="commentsboard" CLASS="popcomments"> </DIV>
<center><h4>圖書館管理系統</h4></center>
<form name=form1 action=default.asp method=post >
<table cellspacing=0 cellpadding=0 width=100% border=0>
<tr align=center>
<td valign=center bgcolor=#f7f7f7 height=28>
用戶名
<input name=username class=in size=13
maxlength=15 >
</td>
</tr>
<tr align=center>
<td height=21 valign=center bgcolor=#f7f7f7>
密 碼
<input class=in type=password maxlength=20
size=13 name=password>
</td>
</tr>
<tr>
<td height=22 align=middle valign=center
bgcolor=#f7f7f7 colspan=2>
<button style="BACKGROUND-COLOR:transparent;width:60;
height:34;BORDER:0" onfocus="this.blur()"
onClick="javascript:cli()"
id=button1 name=button1>
<img src="images/login.GIF" width="40"
height="19"></button>
<input type=hidden name=hid value="hi">
</td>
</tr>
</table>
</form>
</BODY>
</HTML>
<%
else
'接收form表單中的內容
name=Request.Form("username")
pass=Request.Form("password")
Dim cn,strcnn
'于數據庫建立連接
Set session("cn")=Server.CreateObject("ADODB.Connection")
strcnn="driver={microsoft access driver (*.mdb)}; dbq="& Server.MapPath("db/#library#.mdb")
session("cn").open strcnn
'對登錄用戶的身份進行判斷
sql="select count(*) from administrator where name='"&name&"'"
sql=sql&" and password='"&pass&"'"
set rs=session("cn").execute(sql)
if rs(0)=0 then
'不是登錄用戶返回登錄頁面
Response.Redirect "default.asp"
else
'是登錄用戶進入管理頁面
session("user_session_id")=Session.SessionID
Response.Redirect"library/main.asp"
end if
end if%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -