📄 index.asp
字号:
<%dim key1, key2, key3, name, pass
name=Request("name")
pass=Request("pass")%>
<%
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("db.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
SQL="Select * from id Where name='"&name&"'"
rs.open sql, conn, 1, 1
%>
<%
if rs.bof and rs.eof then
key1="登 陆 失 败"
key2="index.asp"
key3="用户名不存在,请重新登陆!"
else
if pass=rs("pass") Then
key1="登 陆 成 功"
key2="begin.asp"
key3="登陆成功,欢迎你"
Response.Cookies("name")("VIPManages")=""+name+""
Else
key1="登 陆 失 败"
key2="index.asp"
key3="密码错误,或者你尚未登陆!"
end if
end if%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css.css">
<title>会员登陆</title>
<script language="JavaScript">
<!--
function checkdata() {
if( form.name.value =="") {
alert("\请输入您的用户名")
return false;
}
if( form.pass.value =="") {
alert("\请输入您的密码")
return false;
}
return true;
}
function isNumberString (InString,RefString)
{
if(InString.length==0) return (false);
for (Count=0; Count < InString.length; Count++) {
TempChar= InString.substring (Count, Count+1);
if (RefString.indexOf (TempChar, 0)==-1)
return (false);
}
return (true);
}
// -->
</script>
</head>
<body leftmargin="0" Topmargin="0" marginwidth="0" marginheight="0" background="images/greystrip.gIf">
<!--#include file="top2.asp"-->
<%if name<>"" and pass<>"" Then%>
<br>
<table border="1" cellspacing="0" cellpadding="0" width="416" align="center" height="10" bordercolor="#7C96B8" bordercolordark="#FFFFFF">
<TR>
<td colspan="1" height="20" background="images/mmTo.gIf" width="416" bgcolor="#7C96B8"><DIV style="FILTER: dropshadow(color=#FFFFFF, offx=1, offy=1, positive=1); WIDTH: 100%; CURSOR: hAND; POSITION: relative">
<p align="center"><font color="#336699"><%=key1%></font></p>
</div>
</td>
</TR>
<TR>
<td height="50">
<p align="center"><font color="#336699"><a id="backforumlink" href="<%=key2%>"><%=key3%><%=name%></a></font></p>
<SCRIPT language="javascript" type="text/javascript">setTimeout("location.href = backforumlink.href",3000);</SCRIPT>
</td>
</TR>
</table>
</body>
</html>
<%else%>
<br>
<br>
<form method=post action="index.asp" name=form onSubmit="return checkdata()">
<table border="1" cellspacing="0" cellpadding="0" width="416" align="center" height="10" bordercolor="#7C96B8" bordercolordark="#FFFFFF">
<TR>
<td colspan="1" height="20" background="images/mmTo.gIf" width="416" bgcolor="#7C96B8"><DIV style="FILTER: dropshadow(color=#FFFFFF, offx=1, offy=1, positive=1); WIDTH: 100%; CURSOR: hAND; POSITION: relative">
<p align="center"><font color="#336699">
会员登陆</font></p>
</div>
</td>
</TR>
<tr><td align=center><font color="#336699">用户名:</font><input type=text name='name'></td></tr>
<tr>
<td align=center><font color="#336699">密 码:</font><input type=password name='pass'></td></tr>
<tr><td align=center><INPUT type="submit" value="确 定" class="Tips_bo"> <INPUT type="reset" value="重 写" class="Tips_bo"></td></tr>
</table>
</form>
</body>
</html>
<%end if%>
<!--#include file="copyright.asp"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -