www.gusucode.com > 凡人网络购物系统 2008源码程序 > modify.asp

    <!--#include file="conn.asp"-->
<!--#include file="IncAsp/venshop_top.asp"-->
<div align="center">
<table cellpadding="0" cellspacing="0" class="all_t1">
<tr><td class="all_l_td" valign="top">
<!--#include file="IncAsp/venshop_log.asp"--><div class="d5"></div>
</td>
<td valign="top" class="all_c_td">
<table width="99%" border="0" cellpadding="0" cellspacing="0">
<tr><td class="sort">&nbsp;<IMG src="Skin/<%=venshop_skin%>/home.gif" border=0 align="absmiddle"> 您的位置： <a href="index.asp">首页</a> >>&nbsp;用户资料维护</td></tr>
</table>

<table border="0" cellpadding="0" cellspacing="0" class="useri">
<tr><td height="150">
<%if Request.Cookies("venshop")("user_name")="" then
response.redirect "login.asp?comurl=modify.asp"
response.end
elseif request("action")="modify" then%>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<%user_name=Request.Cookies("venshop")("user_name")
chklogin(user_name)
user_mail=DelStr(request("user_mail"))
user_adds=DelStr(request("user_adds"))
user_postcode=DelStr(request("user_postcode"))
user_tel=DelStr(request("user_tel"))
user_namec=DelStr(request("user_namec"))
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 username='"&user_name&"'"
rs.open sql,conn,1,3
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.update
rs.close
set rs=nothing
response.write "<tr><td align=center height=200>用户资料更改完毕,<a href=# onClick=history.go(-1)><font color=#ff0000>返回</font></a></td></tr>"%>
</table>
<%else%>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<%user_name=Request.Cookies("venshop")("user_name")
chklogin(user_name)
set rs=server.createobject("adodb.recordset")
sql="select * from venshop_user where username='"&user_name&"'"
rs.open sql,conn,1,1
if rs.eof then
response.redirect "login.asp?comurl=modify.asp"
response.end
else%>
<form method="POST" action="modify.asp?action=modify">
<tr class="cartshow1"><td height="30" align="right" width="100">用 户 名：</td><td height="30" width="525">&nbsp;<%=rs("username")%></td></tr>
<tr class="cartshow0"><td height="30" align="right" width="100">电子邮箱：</td><td height="30" width="525">&nbsp;<input type="text" name="user_mail" size="36" class=input value="<%=rs("usermail")%>"></td></tr>
<tr class="cartshow1"><td height="30" align="right" width="100">联系电话：</td><td height="30" width="525">&nbsp;<input type="text" name="user_tel" size="36" class=input value="<%=rs("user_tel")%>"></td></tr>
<tr class="cartshow0"><td height="30" align="right" width="100">联系地址：</td><td height="30" width="525">&nbsp;<input type="text" name="user_adds" size="36" class=input value="<%=rs("user_adds")%>"></td></tr>
<tr class="cartshow1"><td height="30" align="right" width="100">邮政编码：</td><td height="30" width="525">&nbsp;<input type="text" name="user_postcode" size="10" class=input value="<%=rs("user_postcode")%>"></td></tr>
<tr class="cartshow0"><td height="30" align="right" width="100">真实姓名：</td><td height="30" width="525">&nbsp;<input type="text" name="user_namec" size="10" class=input value="<%=rs("user_namec")%>"></td></tr>
<tr class="cartshow1"><td height="30" align="right" width="100"></td><td height="30" width="525">&nbsp;<input type="image" src="img/regbutton.gif" name="submit"></td></tr>
</form>
<%end if
rs.close
set rs=nothing%>
</table><%end if%>
</td></tr></table>
</td></tr></table></div><!--#include file="IncAsp/venshop_copy.asp"-->