📄 loginandreg.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>用户登录和注册页面</title>
</head>
<body>
<table width="516" border="1" align="center" background="bookback.gif">
<tr>
<th width="231" height="21" scope="col">用户登录区</th>
<th scope="col">用户注册区</th>
</tr>
<tr>
<td height="77">
<form method="post" action="" name="login">
<table width="231" border="1">
<tr>
<td width="47">用户名：</td>
<td width="168"><input name="loguser" type="text" size="10"></td>
</tr>
<tr>
<td>密码：</td>
<td><input name="logpass" type="password" size="10"></td>
</tr>
<tr>
<td colspan="2"><input type="submit" name="log" value="登录"> </tr>
</table>
</form></td>
<td width="194"> <form name="register" method="post" action="">
<table width="258" border="1">
<tr>
<td width="76">用户名:</td>
<td width="166"><input type="text" name="reguser" size="10"></td>
</tr>
<tr>
<td>密码:</td>
<td><input name="regpass1" type="password" size="10"></td>
</tr>
<tr>
<td><p>确认密码:</p>
</td>
<td><input name="regpass2" type="password" size="10"></td>
</tr>
<tr>
<td>E_mail：</td>
<td><input type="text" name="regemail" size="15"></td>
</tr>
<tr>
<td colspan="2"><input type="submit" name="reg" value="注册"></td>
</tr>
</table>
</form></td>
</tr>
</table>
</body>
</html>
<%
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Dbq=" & Server.Mappath("db/books.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
if request.form("log")<>"" then
loguser=request.form("loguser")
logpass=request.form("logpass")
logsql="select * from userinfo where user='"&loguser&"' and pwd='"&logpass&"'"
set rs=conn.execute(logsql)
if rs.eof then
response.Write("用户名或密码错误")
else
session("user")=loguser
response.Redirect("user.asp")
end if
end if
if request.form("reg")<>"" then
regpass1=request.form("regpass1")
regpass2=request.form("regpass2")
if regpass1<>regpass2 then
response.Write("两次输入密码不等")
else
reguser=request.form("reguser")
regemail=request.form("regemail")
sql="select * from userinfo where user='"®user&"'"
set rs=conn.execute(sql)
if not rs.eof then
response.Write("用户名重复，请重新注册")
else
regsql="insert into userinfo(user,pwd,email) values('"®user&"','"®pass1&"','"®email&"')"
conn.execute(regsql)
session("user")=reguser
response.Redirect("user.asp")
end if
end if
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -