config_user.asp

一套完整的在线购物系统

<%
'-------------------------------------------用户信息---------------------------------------
sub user_info()
dim action
action=request.querystring("action")
select case action
case "myorder"
%>
 <table border=0 width=600 cellspacing=1 cellpadding=0 align=center bgcolor=#cacaca>
 <tr><td colspan=4><IMG SRC="pic/myorder.gif" WIDTH="600" HEIGHT="35" BORDER="0"></td></tr>
 <tr bgcolor=#e0e0e0 align=center height=25><td width=285>订单号</td><td width=80>商品金额</td>
 <td width=80>送货费用</td><td width=150>订单状态</td></tr>
 <%
  dim rs
  set rs=conn.execute("select * from goods_order where username='"&session("username")&"'")
  do while not rs.eof
 %>
 <tr bgcolor=#ffffff align=center height=25><td width=285>
 <A HREF="#" onclick="javascript:window.open('order_info.asp?id=<%=rs("id")%>',null,'width=700,height=600,scollingbar=auto')"> <%=rs("ddnum")%></A></td>
 <td width=80><%=rs("gsum")%></td><td width=80><%=rs("sendsum")%></td><td width=150><%=rs("ddzt")%></td></tr>
<% rs.movenext
   loop
   rs.close
   set rs=nothing
%>
 </table>
<%
case "editinfo"
%>
<form action="saveuserinfo.asp" method=post>
<table border=0 width=600 cellspacing=1 cellpadding=0 align=center bgcolor=#cacaca>
 <tr><td colspan=2><IMG SRC="pic/userinfo.gif" WIDTH="600" HEIGHT="35" BORDER="0"></td></tr>
 <tr bgcolor=#e0e0e0><td colspan=2 height=25>&nbsp;尊敬的用户，我们向您承诺： 以下信息将被严格保密，绝对不提供给第三方或用作它用。</td></tr> 
<%
 
 set rs=conn.execute("select * from userinfo where username='"&session("username")&"'")
%>
 <tr bgcolor=#ffffff><td width=120 align=right height=25>用户名：&nbsp;</td>
 <td width=475>&nbsp;<%=rs("username")%></td></tr>
 <tr bgcolor=#ffffff><td width=120 align=right height=25>电子邮件：&nbsp;</td>
 <td width=475>&nbsp;<INPUT TYPE="text" NAME="email" value="<%=rs("useremail")%>"></td></tr>
 <tr bgcolor=#ffffff><td width=120 align=right height=25>真实姓名：&nbsp;</td>
 <td width=475>&nbsp;<INPUT TYPE="text" NAME="realname" value="<%=rs("realname")%>"></td></tr>
 <tr bgcolor=#ffffff><td width=120 align=right height=25>性别：&nbsp;</td>
 <td width=475>&nbsp;<INPUT TYPE="text" NAME="sex" value="<%=rs("sex")%>"></td></tr>
 <tr bgcolor=#ffffff><td width=120 align=right height=25>详细地址：&nbsp;</td>
 <td width=475>&nbsp;<INPUT TYPE="text" NAME="address" value="<%=rs("address")%>"></td></tr>
 <tr bgcolor=#ffffff><td width=120 align=right height=25>联系电话：&nbsp;</td>
 <td width=475>&nbsp;<INPUT TYPE="text" NAME="tel" value="<%=rs("usertel")%>"></td></tr>
 <tr bgcolor=#ffffff><td width=120 align=right height=25>邮编：&nbsp;</td>
 <td width=475>&nbsp;<INPUT TYPE="text" NAME="zipcode" value="<%=rs("youbian")%>"></td></tr>
 <tr bgcolor=#ffffff><td width=120 align=right height=25>QQ：&nbsp;</td>
 <td width=475>&nbsp;<INPUT TYPE="text" NAME="qq" value="<%=rs("oicq")%>"></td></tr>
 <tr bgcolor=#ffffff><td width=120 align=right height=25>主页：&nbsp;</td>
 <td width=475>&nbsp;<INPUT TYPE="text" NAME="homepage" value="<%=rs("homepage")%>"></td></tr>
 <tr bgcolor=#ffffff height=30><td colspan=2 align=center><INPUT TYPE="submit" value=保存修改></td></tr>
</table>
</form>
<%
rs.close
set rs=nothing
case "editpass"
%>
<form action="?action=savepass" method=post>
<table border=0 width=600 cellspacing=1 cellpadding=0 align=center bgcolor=#cacaca>
 <tr><td colspan=2><IMG SRC="pic/editpass.gif" WIDTH="600" HEIGHT="35" BORDER="0"></td></tr>
 <tr bgcolor=#e0e0e0><td colspan=2 height=25>&nbsp;尊敬的用户，我们向您承诺： 以下信息将被严格保密，绝对不提供给第三方或用作它用。</td></tr>
 <tr bgcolor=#ffffff><td width=120 align=right height=25>用户名：&nbsp;</td>
 <td width=475>&nbsp;<%=session("username")%></td></tr>
 <tr bgcolor=#ffffff><td width=120 align=right height=25>新密码：&nbsp;</td>
 <td width=475>&nbsp;<INPUT TYPE="password" NAME="password">（不修改请为空）</td></tr>
<tr bgcolor=#ffffff height=30><td colspan=2 align=center><INPUT TYPE="submit" value=保存修改></td></tr>
</table></form>
<%
case "savepass"
conn.execute("update userinfo set userpassword='"&md5(trim(request("password")),16)&"' where username='"&session("username")&"'")
response.write"<script>alert('密码修改成功！');location.assign('user.asp?action=editpass');</script>"
case else
response.write"&nbsp;"
end select
end sub
%>