ad_modify.asp

凡人网络购物系统 v8.0 中文版

<!--#include file="conn.asp"-->
<!--#include file="ad_chk.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=inc/css.css rel=STYLESHEET type=text/css>

<%
id=request("id")
if request("action")="change" then
user_mail=request("user_mail")
user_adds=request("user_adds")
user_postcode=request("user_postcode")
user_tel=request("user_tel")
user_namec=request("user_namec")
user_buymoney=request("user_buymoney")
if user_mail="" then user_mail="@"
if user_adds="" then user_adds="-"
if user_postcode="" then user_postcode="0"
if user_tel="" then user_tel="0"
if user_namec="" then user_namec="-"
set rs=server.createobject("adodb.recordset")
sql="select * from venshop_user where id="&id&""
rs.open sql,conn,1,3
rs("savemoney")=user_buymoney
rs("usermail")=user_mail
rs("user_adds")=user_adds
rs("user_postcode")=user_postcode
rs("user_tel")=user_tel
rs("user_namec")=user_namec
rs("user_type")=request("user_type")
rs("question")=request("question")
rs("answer")=request("answer")
rs.update
rs.close
response.write "用户资料更改完毕！"
set rs=nothing
else
set rs=server.createobject("adodb.recordset")
sql="select * from venshop_user where id="&id&""
rs.open sql,conn,1,1
%>
<form method="POST" action="ad_modify.asp?id=<%=rs("id")%>&action=change">
<table border="0" style="border-collapse: collapse" cellpadding="5" bgcolor="#C8C8C8" cellspacing="1">
<tr><td align="right" bgcolor="#F0F0F0" width="80">用 户 名：</td><td bgcolor="#F0F0F0">
	<b><font color="#FF0000"><%=rs("username")%></font></b></td></tr>
<tr><td bgcolor="#FFFFFF" align="right">电子邮箱：</td><td bgcolor="#FFFFFF">
	<input type="text" name="user_mail" size="20" value="<%=rs("usermail")%>"></td></tr>
<tr><td bgcolor="#FFFFFF" align="right">联系电话：</td><td bgcolor="#FFFFFF">
	<input type="text" name="user_tel" size="20" value="<%=rs("user_tel")%>"></td></tr>
<tr>
	<td bgcolor="#FFFFFF" align="right">联系地址：</td><td bgcolor="#FFFFFF">
	<input type="text" name="user_adds" size="50" value="<%=rs("user_adds")%>"></td>
</tr>
<tr><td bgcolor="#FFFFFF" align="right">邮政编码：</td><td bgcolor="#FFFFFF">
	<input type="text" name="user_postcode" size="10" value="<%=rs("user_postcode")%>"></td></tr>
<tr><td bgcolor="#FFFFFF" align="right">真实姓名：</td><td bgcolor="#FFFFFF">
	<input type="text" name="user_namec" size="10" value="<%=rs("user_namec")%>"></td></tr>
<tr><td bgcolor="#FFFFFF" align="right">密保问题：</td><td bgcolor="#FFFFFF">
	<input type="text" name="question" size="20" value="<%=rs("question")%>"></td></tr>
<tr><td bgcolor="#FFFFFF" align="right">密保答案：</td><td bgcolor="#FFFFFF">
	<input type="text" name="answer" size="20" value="<%=rs("answer")%>"></td></tr>
<tr><td bgcolor="#FFFFFF" align="right">等级折扣：</td><td bgcolor="#FFFFFF"><select size="1" name="user_type"><%
set rst=server.CreateObject("adodb.recordset")
rst.open "select * from venshop_usertype",conn,1,1
if rst.eof and rs.bof then
response.write "暂无"
else
do while not rst.eof%>
<option value="<%=rst("usertype_id")%>"<%if rs("user_type")=rst("usertype_id") then%> selected<%end if%>><%=rst("usertype_name")%> 折扣：<%=rst("usertype_zhekou")%></option><%
rst.movenext
loop
end if
rst.close
set rst=nothing%></select></td></tr>
<tr><td bgcolor="#FFFFFF" align="right">积分修改：</td><td bgcolor="#FFFFFF">
	<input type="text" name="user_buymoney" size="6" value="<%=rs("savemoney")%>"></td></tr>
<tr><td colspan="2" bgcolor="#FFFFFF" align="center">
	<input name="B1" type=submit value="修改用户信息" style="width: 105; height: 30"></td></tr></form></table>
<%rs.close
set rs=nothing
end if
conn.close
set conn=nothing%><table cellSpacing="0" cellPadding="3" border="0" width="500"><tr><td height="20"></td></tr>
<tr><td bgcolor="#F2F2F2"><p style="LINE-HEIGHT: 150%"><font color="#FF0000">凡人网络购物系统V8.0 版权所有:</font><a target="_blank" href="http://www.venshop.com"><font color="#FF0000">凡人网络VenShop.Com</font></a><font color="#FF0000"><br>客服电话:[phone]&nbsp; QQ:57152557/5404818 Email/Msn:</font><a href="mailto:[e-mail]"><font color="#FF0000">[e-mail]</font></a></td>
</tr></table>