📄 userchange.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<%option explicit
dim name,tel,addr,email,zip,pw1,pw2,temp
dim founderr,errmsg
founderr=false
temp=request.form("nicename")
name=request.form("name")
if name="" then
founderr=true
errmsg="姓名不能为空"
end if
tel=request.form("tel")
if tel="" then
founderr=true
errmsg=errmsg & "联系电话不能为空"
end if
addr=request.form("addr")
if addr="" then
founderr=true
errmsg=errmsg & "联系地址不能为空"
end if
email=request.form("email")
if email="" then
founderr=true
errmsg=errmsg & "e-amil 不能为空"
end if
zip=request.form("zip")
if zip="" then
founderr=true
errmsg=errmsg & "邮编不能为空"
end if
pw1=request.form("password")
if(pw1="") then
founderr=true
errmsg=errmsg & "密码错误"
end if
dim connstr,conn,rs,sql
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='" &session("username") & "'"
rs.open sql,conn,3,2
if founderr then
response.write errmsg
%>
<html>
<head>
<meta name="generator" content="microsoft visual studio 6.0">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><style type="text/css">
<!--
body {
background-color: #86BF78;
}
-->
</style></head>
<body>
<form method="post" action="">
<table width="53%" border="1" align="center" bordercolor="#C479C8">
<tr>
<td width="100%" colspan="2" class="font"><font face="宋体">您的资料(如想修改个人资料请重新填写下面信息点击修改即可):</font></td>
</tr>
<td width="24%" class="font">昵称:</td>
<td width="76%" class="font"><%=rs("nicename")%>
<input type="hidden" name="nicename" size="20" value="<%=rs("nicename")%>"></td>
</tr>
<tr>
<td width="24%" class="font"><font face="宋体">姓名:</font></td>
<td width="76%" class="font"><input type="text" name="name" size="20" value="<%=rs("name")%>"></td>
</tr>
<tr>
<td width="24%" class="font"><font face="宋体">联系电话:</font></td>
<td width="76%" class="font"><font face="宋体"><input type="text" name="tel" size="20" value="<%=rs("tel")%>"></font></td>
</tr>
<td width="24%" class="font"><font face="宋体">联系地址:</font></td>
<td width="76%" class="font"><font face="宋体"><input type="text" name="addr" size="20" value="<%=rs("addr")%>"></font></td>
</tr>
<tr>
<td width="24%" class="font"><font face="宋体">邮编:</font></td>
<td width="76%" class="font"><font face="宋体"><input type="text" name="zip" size="20" value="<%=rs("zip")%>"></font></td>
</tr>
<tr>
<td width="24%" class="font"><font face="宋体">e-amil:</font></td>
<td width="76%" class="font"><font face="宋体"><input type="text" name="email" size="20" value="<%=rs("email")%>"></font></td>
</tr>
<tr>
<td width="24%" class="font"><font face="宋体">password:</font></td>
<td width="76%" class="font"><input type="text" name="password" size="20" value="<%=rs("password")%>"></td>
</tr>
<tr>
<td width="100%" colspan="2">
<p class="font"><font face="宋体">
</font><input type="submit" value="修改" name="b1"></p>
</td>
</tr>
</table>
</form>
<%else
rs("nicename")=temp
rs("name")=name
rs("tel")=tel
rs("addr")=addr
rs("zip")=zip
rs("email")=email
rs("password")=pw1
rs.update
rs.close
conn.close
set conn=nothing
set rs=nothing
%>
<table width="53%" border="1" align="center" bordercolor="#C479C8">
<tr>
<td width="100%"colspan="2" class="font"><font face="宋体">恭喜您,修改成功;修改后资料如下:</font></td>
</tr>
<tr>
<td width="10%" class="font">昵称:</td>
<td width="90%" class="font"><%=temp%></td>
</tr>
<tr>
<td width="10%" class="font"><font face="宋体">姓名:</font></td>
<td width="90%" class="font"><%=name%></td>
</tr>
<tr>
<td width="10%" class="font">联系电话:</td>
<td width="90%" class="font"><%=tel%></td>
</tr>
<tr>
<td width="10%" class="font"><font face="宋体">联系地址:</font></td>
<td width="90%" class="font"><%=addr%></td>
</tr>
<tr>
<td width="10%" class="font"><font face="宋体">邮编:</font></td>
<td width="90%" class="font"><%=zip%></td>
</tr>
<tr>
<td width="10%" class="font"><font face="宋体">e-mail:</font></td>
<td width="90%" class="font"><%=email%></td>
</tr>
<tr>
<td width="10%" class="font"><font face="宋体">password:</font></td>
<td width="90%" class="font"><%=pw1%></td>
</tr>
<tr>
<td colspan="2" class="font"><a href="bookright.asp"><font face="宋体">确定返回</font></a></td>
</tr>
<tr>
<td width="100%" colspan="2">
</td>
</tr>
</table>
<% end if %>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -