📄 usercheck.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<%option explicit%>
<% dim conn,rs,sql,i,connstr
connstr="dbq=" & server.MapPath("mdb/bookshop.mdb") & ";driver= {microsoft access driver (*.mdb)};"
set conn=server.CreateObject("adodb.connection")
conn.open connstr
set rs=server.CreateObject("adodb.recordset")
sql="select * from guest where nicename='" & request.form("user1") & "'" & " and password='" & request.form("user2")&"'"
set rs=conn.execute(sql)
if rs.eof then
response.write "该用户不存在或密码错误,请<a href='" & ("bookright.asp") &"'> 返回 </a>首页重新登陆或注册!"
response.end
else
session("username")=Request.Form("user1")
%>
<html>
<head>
<style>
<!--
.font{color:navy;font-family:"宋体";font-size:12px;line-height:14px}
.3dfont{filter:glow(color=ffffff,strength=0) shadow(color=aaaaaa,direction=135);position:relative;
width:100%}
body {
background-color: #86BF78;
}
.style1 {color: #0099FF}
.style2 {font-size:12px; line-height:14px; font-family: "宋体";}
-->
</style>
<meta http-equiv=="content-language" content="zh-ch">
<meta http-equiv=="content-type" content="text/html; charset=gb2312">
<meta name="generator" content="microsoft frontpage 4.0">
<meta name="progid" content="frontpage.deitor.document">
<title>用户资料</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body>
<form method="post" action="userchange.asp">
<table width="53%" border="1" align="center" bordercolor="#C479C8">
<tr>
<td width="100%" colspan="2" class="style2"><font face="宋体">您的资料(如想修改个人资料,请重新填写下面信息点击修改即可)： </font></td>
</tr>
<tr>
<td width="24%" class="style2">昵称:</td>
<td width="76%" class="style2"><%=rs(1)%><input type="hidden" name="nicename" size="20" value="<%=rs(1)%>"></td>
</tr>
<tr>
<td width="24%" class="style2"><font face="宋体">姓名:</font></td>
<td width="76%" class="style2"><input type="text" name="name" size="20" value="<%=rs("name")%>"></td>
</tr>
<tr>
<td width="24%" class="style2"><font face="宋体">联系电话:</font></td>
<td width="76%" class="style2"><font face="宋体">
<input type="text" name="tel" size="20" value="<%=rs("tel")%>">
</font></td>
</tr>
<tr>
<td width="24%" class="style2"><font face="宋体">联系地址:</font></td>
<td width="76%" class="style2"><font face="宋体">
<input type="text" name="addr" size="20" value="<%=rs("addr")%>">
</font></td>
</tr>
<tr>
<td width="24%" class="style2"><font face="宋体">邮编:</font></td>
<td width="76%" class="style2"><font face="宋体">
<input type="text" name="zip" size="20" value="<%=rs("zip")%>">
</font></td>
</tr>
<tr>
<td width="24%" class="style2"><font face="宋体">e-amil:</font></td>
<td width="76%" class="style2"><font face="宋体">
<input type="text" name="email" size="20" value="<%=rs("email")%>">
</font></td>
</tr>
<tr>
<td width="24%" class="style2"><font face="宋体">password:</font></td>
<td width="76%" class="style2"><font face="宋体">
<input type="text" name="password" size="20" value="<%=rs("password")%>">
</font></td>
</tr>
<tr>
<td width="100%" colspan="2">
<p class="style2"><font face="宋体">
</font>
<input type="submit" value="修改" name="b1"><a href="bookright.asp"><font face="宋体">返回</font></a>
</p>
</td>
</tr>
</table>
</form>
</body>
</html>
<%end if%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -