📄 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 + -