📄 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="inc/css.css" type=text/css rel=stylesheet>
<style TYPE="text/css">
<!--
.popcomments
{
position : absolute; width:130;
visibility : hidden;
border: 1 solid #000001
}
.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 >
<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>
<a href="register.asp">用户注册</a>
<input type=hidden name=hid value="hi">
</td>
</tr>
</table>
</form>
</BODY>
</HTML>
<%
else
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/#classmaster#.mdb")
session("cn").open strcnn
sql="select count(*) from ec where studentid='"&name&"' 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
session("ecid")=name
Response.Redirect"banjiluntan.asp"
end if
%>
<%end if%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -