www.gusucode.com > 凡人网络购物系统 2008源码程序 > Admin/ad_modify.asp
<!--#include file="conn.asp"-->
<!-- #include file="../IncAsp/venshop_md5.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>
<body topmargin="5" leftmargin="5" rightmargin="5" bottommargin="5">
<%
if Request.Cookies("venshop")("admin_class")<>0 then
response.write "你没有这个权限!"
response.end
end if
%>
<%
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")
if request("cpass")="yes" then
rs("userpass")=md5(request("userpass"))
end if
rs.update
rs.close
call editok(editt,"ad_modify.asp?id="&id,"ad_user.asp")
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" cellpadding="5" cellspacing="0" class="st">
<tr><td align="right" class="s1">用 户 名：</td><td class="s1">
<b><font color="#FF0000"><%=rs("username")%></font></b></td></tr>
<tr><td align="right" class="s0">修改密码：</td><td class="s0">
<input type="text" name="userpass" size="20">
<input type="checkbox" name="cpass" value="yes">如需修改密码请选中此框</td></tr>
<tr><td align="right" class="s1">电子邮箱：</td><td class="s1">
<input type="text" name="user_mail" size="20" value="<%=rs("usermail")%>"></td></tr>
<tr><td align="right" class="s0">联系电话：</td><td class="s0">
<input type="text" name="user_tel" size="20" value="<%=rs("user_tel")%>"></td></tr>
<tr>
<td align="right" class="s1">联系地址：</td><td class="s1">
<input type="text" name="user_adds" size="50" value="<%=rs("user_adds")%>"></td>
</tr>
<tr><td align="right" class="s0">邮政编码：</td><td class="s0">
<input type="text" name="user_postcode" size="10" value="<%=rs("user_postcode")%>"></td></tr>
<tr><td align="right" class="s1">真实姓名：</td><td class="s1">
<input type="text" name="user_namec" size="10" value="<%=rs("user_namec")%>"></td></tr>
<tr><td align="right" class="s0">密保问题：</td><td class="s0">
<input type="text" name="question" size="20" value="<%=rs("question")%>"></td></tr>
<tr><td align="right" class="s1">密保答案：</td><td class="s1">
<input type="text" name="answer" size="20" value="<%=rs("answer")%>"></td></tr>
<tr><td align="right" class="s0">等级折扣：</td><td class="s0"><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 align="right" class="s1">积分修改：</td><td class="s1">
<input type="text" name="user_buymoney" size="6" value="<%=rs("savemoney")%>"></td></tr>
<tr><td colspan="2" align="center" class="s0">
<input name="B1" type=submit value="修改用户信息" style="width: 105; height: 30"></td></tr></form></table>
<%rs.close
set rs=nothing
end if
%><!--#include file="ad_bottom.asp"-->