disuser.asp

购物程序电子商务

<!--#include file="userfunc.asp"-->
<%
sub addtocart()
set rs=server.CreateObject("adodb.recordset")
rs.open "select orders.actionid,orders.id,product.name,product.price1,product.price2,product.discount from product inner join orders on product.id=orders.id where orders.username='"&request.cookies("timesshop")("username")&"' and orders.state=6",conn,1,1 
%>
<table width=96% border=0 align=center cellpadding=0 cellspacing=1 bgcolor=#CCCCCC>
  <%
if action="addtocart" then
response.write "<form action='cart.asp' target=shop onsubmit=""javascript:window.open('',','width=632,height=388,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');"">"
else
response.write "<form name='form1' method='post' action=cart.asp>"
end if %>
  <tr bgcolor=#6699cc height=20 align=center> 
    <td width=7% bgcolor="#CCCCCC"><font color=#000000>选 择</font></td>
    <td width=45% bgcolor="#CCCCCC"><font color=#000000>商品名称</font></td>
    <td width=14% bgcolor="#CCCCCC"><font color=#000000>市场价</font></td>
    <td width=13% bgcolor="#CCCCCC"><font color=#000000>会员价</font></td>
    <td width=12% bgcolor="#CCCCCC"><font color=#000000>折 扣</font></td>
    <td width=9% bgcolor="#CCCCCC"><font color=#000000>删 除</font></td>
  </tr>
  <%  do while not rs.eof  %>
  <tr bgcolor=#ffffff align=center> 
    <td><input name=id type=checkbox checked value=<% = rs("id") %>></td>
    <td STYLE='PADDING-LEFT: 5px' align=left><a href=product.asp?id=<% = rs("id") %> target=_blank>
      <% = rs("name") %>
      </a></td>
    <td>
      <% = rs("price1") %>
      元</td>
    <td><font color=#FF0000>
      <% = rs("price2") %>
      元</font></td>
    <td>
      <% = rs("discount")*100 %>
      %</td>
    <td> 
      <%
if action<>"addtocart" then
response.Write "<a href=addto.asp?action=del&actionid="&rs("actionid")&">"
else
response.Write "<a href=addto.asp?action=del&actionid="&rs("actionid")&"&ll=22>" 
end if

response.Write "<img src=images/trash.gif width=15 height=17 border=0></a></td></tr>"
rs.movenext
loop
rs.close
set rs=nothing
response.write "<tr><td height=36 colspan=6 bgcolor=#FFFFFF><div align=center><input type=submit name=Submit  value=去下订单 >&nbsp;&nbsp;&nbsp;&nbsp;"
if action<>"addtocart" then
response.write "<input type=button name=Submit2 value=继续采购 onclick=javascript:window.close()>"
end if
%></div>
    </td>
  </tr></form>
</table>
<%
end sub
sub receiveaddr()
dim rs2
if request.cookies("timesshop")("username")="" then
response.Write "<center>请先登录</center>"
response.End
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select recepit,recepit,city,address,postcode,usertel,mobile,userqq,deliverymethord,paymethord from [user] where username='"&request.cookies("timesshop")("username")&"' ",conn,1,1
%>
<table width=96% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#CCCCCC>
  <form name=receiveaddr method=post action=saveprofile.asp?action=receiveaddr>
    <tr bgcolor=#CCCCCC> 
      <td height=15 colspan=2 align=center><font color=#000000>请您填写正确的收货人信息，我们会为您保密。</font></td>
    </tr>
<tr bgcolor=#FFFFFF height=28>
<td width=18% STYLE='PADDING-LEFT: 10px'>收货人姓名：</td>
<td width=82%><input name=recepit type=text id=recepit size=12 value=<% = trim(rs("recepit")) %>> &nbsp;&nbsp;
性 别： <select name=sex ID=Select1><option value=0 selected>男</option><option value=1>女</option></select></td></tr>
<tr height=28 bgcolor=#FFFFFF>
<td STYLE='PADDING-LEFT: 10px'>收货人省/市</td>
<td><input name=city type=text id=city value=<% = trim(rs("city"))%>></td>
</tr>
<tr height=28 bgcolor=#FFFFFF>
<td height=16 bgcolor=#FFFFFF STYLE='PADDING-LEFT: 10px'>详细地址：</td>
<td><input name=address type=text id=address size=40 value=<% = trim(rs("address"))%>></td>
</tr>
<tr height=28 bgcolor=#FFFFFF>
<td STYLE='PADDING-LEFT: 10px'>邮　　编：</td>
<td><input name=postcode type=text id=postcode value=<% = trim(rs("postcode")) %>></td>
</tr>
<tr height=28 bgcolor=#FFFFFF>
<td STYLE='PADDING-LEFT: 10px'>电　　话：</td>
<td><input name=usertel type=text id=usertel value=<% = trim(rs("usertel")) %>></td>
</tr>
<tr height=28 bgcolor=#FFFFFF>
<td STYLE='PADDING-LEFT: 10px'>手　　机：</td>
<td><input name=mobile type=text id=mobile value=<% = trim(rs("mobile")) %>></td>
</tr>
<tr height=28 bgcolor=#FFFFFF>
<td STYLE='PADDING-LEFT: 10px'>腾讯  QQ：</td>
<td><input name=userqq type=text id=userqq value=<% = trim(rs("userqq")) %>></td>
</tr>
<tr height=46 bgcolor=#FFFFFF>
<td STYLE='PADDING-LEFT: 10px'>送货方式：</td>
<td><select name=deliverymethord size=5 id=deliverymethord>
<%
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from delivery where methord=0 order by deliveryidorder",conn,1,1
do while not rs2.EOF
response.Write "<option value="&rs2("deliveryid")&">"&trim(rs2("subject"))&"</option>"
rs2.MoveNext
loop
rs2.Close
%>
</select></td></tr>
<tr height=58 bgcolor=#FFFFFF>
<td STYLE='PADDING-LEFT: 10px'>支付方式：
<td><select name=paymethord size=5 id=paymethord>
<%
rs2.Open "select * from delivery where methord=1 order by deliveryidorder",conn,1,1
do while not rs2.EOF
response.Write "<option value="&rs2("deliveryid")&">"&trim(rs2("subject"))&"</option>"
rs2.MoveNext
loop
rs2.Close
set rs2=nothing
%>
</select></td></tr>
<tr bgcolor=#FFFFFF align=center>
<td height=32 colspan=2 ><input type=submit name=Submit value=提交保存 onclick='return checkreceiveaddr();'></td></tr>
</form></table>
<%
rs.close
set rs=nothing
end sub

sub deposit()
dim strscore,strvipscore,strdeposit
if request.cookies("timesshop")("username")="" then
response.Write "<center>请先登录</center>"
response.End
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select score,deposit from [user] where username='"&request.cookies("timesshop")("username")&"' ",conn,1,1
strscore = rs("score")
strdeposit = rs("deposit")
rs.close
rs.open "select webimg14 from config",conn,1,1
strvipscore = rs("webimg14")
rs.close
%>
<table width=96% border=0 align=center cellpadding=1 cellspacing=1>
  <tr bgcolor=#FFFFFF>
    <td><br>
      <font color=#FF0000>★</font> &nbsp;您目前的积分为： <font color=#FF0000>
      <% = strscore %>
      </font> 分。 </td>
  </tr>
  <tr bgcolor=#FFFFFF> 
    <td width="483"><form name="uptovip" method="post" action="vip.asp?action=chgscore">
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td>
              <br><font color=#FF0000>★</font> &nbsp;你目前的预存款有： <font color=#FF0000><% = strdeposit %></font> 元。把<input name="strchg" type="text" id="strchg" size="10">
              <input type="submit" name="Submit3" value="积分转换成预存款"></td>
          </tr>
        </table>
      </form></td>
  </tr>
  <tr bgcolor=#FFFFFF>
    <td><form name="chgscore" method="post" action="vip.asp?action=uptovip">
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td><font color=#FF0000>★</font> &nbsp;升级成VIP用户需要的积分：<font color=#FF0000><% = strvipscore %></font>&nbsp;分。&nbsp;<input type="submit" name="Submit5" value="升级成VIP用户"></td>
          </tr>
        </table>
      </form></td>
  </tr>
</table>
<%

set rs = nothing
end sub

sub profile()
if request.cookies("timesshop")("username")="" then
response.Write "<center>请先登录</center>"
response.End
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select book from [user] where username='"&request.cookies("timesshop")("username")&"' ",conn,1,1
%>
<br><tr><td bgcolor=#9D4F4F></td></tr>
<tr><td height=30 colspan=2 STYLE='PADDING-LEFT: 10px' bgcolor=#FFFFFF><font color=#FF3300><% = rs("book") %></td></tr>
<tr><td bgcolor=#9D4F4F></td></tr>
</table>
<%
end sub

sub customerinfo()
if request.cookies("timesshop")("username")="" then
response.Write "<center>请先登录</center>"
response.End
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select useremail,vip,identify,quesion,realname from [user] where username='"&request.cookies("timesshop")("username")&"' ",conn,1,1
Dim Rank
Rank="普通会员"
If rs("vip")=true then
Rank = "VIP会员"
End if
%>
<table width=96% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=<% = bgclr1 %>>
<form name=userinfo method=post action=saveprofile.asp?action=customerinfo>
<tr>
      <td align=center><font color=#000000>尊敬的</font><font color=#000000>用户，我们向您承诺：你的信息将&nbsp;被严格保密。</font></td>
    </tr>
<tr><td height=28 bgcolor=#FFFFFF STYLE='PADDING-LEFT: 30px'>用 户 名： <font color=#FF6600><% = request.cookies("timesshop")("username") %></font></td></tr>
<tr><td height=28 bgcolor=#FFFFFF STYLE='PADDING-LEFT: 30px'>会员级别： [<b><font color=#FF6600><% = Rank %></font></b>]</td></tr>
<tr><td height=28 bgcolor=#FFFFFF STYLE='PADDING-LEFT: 30px'>E-Mail　：  <input name=useremail type=text id=useremail2 value=<% =trim(rs("useremail")) %>></td></tr>
<tr><td height=28 bgcolor=#FFFFFF STYLE='PADDING-LEFT: 30px'>真实姓名： <input name=realname type=text id=realname value=<% = trim(rs("realname"))%>></td></tr>
<tr><td height=28 bgcolor=#FFFFFF STYLE='PADDING-LEFT: 30px'>密码提问： <input name=quesion type=text id=quesion value=<% = trim(rs("quesion"))%>></td></tr>
<tr><td height=28 bgcolor=#FFFFFF STYLE='PADDING-LEFT: 30px'>问题答案： <input name=answer type=text id=answer></td></tr>
<tr><td height=32 bgcolor=#FFFFFF STYLE='PADDING-LEFT: 30px'><input type=submit name=Submit2 value=提交保存 onclick='return checkuserinfo();'></td></tr>
</form></table>
<%
rs.close
set rs=nothing
end sub

sub changepass()
if request.cookies("timesshop")("username")="" then
response.Write "<center>请先登录</center>"
response.End
end if %>
<table width=96% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFFFFF>
  <form name=userpass method=post action=saveprofile.asp?action=changepass>
    <tr bgcolor=#FFFFFF>
      <td align="right">&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr bgcolor=#FFFFFF> 
      <td align="right">&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr bgcolor=#FFFFFF> 
      <td width=50% align="right">用 户 名：</td>
      <td width=50%><font color=#FF0000> 
        <% = request.cookies("timesshop")("username") %>