disuser.asp

电子商务网络购物系统

<!--#include file="userfunc.asp"-->
<link href="include/css.css" rel="stylesheet" type="text/css">
<%
sub addtocart()
if request.cookies("timesshop")("username")="" then
response.Redirect "profile.asp?action=login"
response.End
end if
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 
response.write "<table width=96% border=0 align=center cellpadding=0 cellspacing=1 bgcolor=#6699cc>"
if action="addtocart" then
response.write "<form action='cart.asp' target=shop onsubmit=""javascript:window.open('','snsn','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
response.write "<tr bgcolor=#6699cc height=20><td width=7% align=center><font color=#FFFFFF>选 择</font></td>"
response.Write "<td width=45% align=center><font color=#FFFFFF>商品名称</font></td>"
response.Write "<td width=14% align=center><font color=#FFFFFF>市场价</font></td>"
response.Write "<td width=13% align=center><font color=#FFFFFF>会员价</font></td>"
response.Write "<td width=12% align=center><font color=#FFFFFF>折 扣</font></td>"
response.Write "<td width=9% align=center><font color=#FFFFFF>删 除</font></td></tr>"
do while not rs.eof
response.write "<tr bgcolor=#ffffff><td bgcolor=#FFFFFF><div align=center><input name=id type=checkbox checked value="&rs("id")&" ></div></td>"
response.write "<td STYLE='PADDING-LEFT: 5px'><div align=left><a href=product.asp?id="&rs("id")&" target=_blank>"&rs("name")&"</a></div></td>"		  
response.write "<td><div align=center>"&rs("price1")&"元</div></td>"	
response.write "<td><div align=center><font color=#FF6600>"&rs("price2")&"元</font></div></td>"
response.write "<td><div align=center>"&rs("discount")*100&"%</div></td>"
response.write "<td><div align=center>"

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></div></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
response.write "</div></td></tr></form></table>"
end sub
%>
<%
sub receiveaddr()
dim rs2
if request.cookies("timesshop")("username")="" then
response.Redirect "profile.asp?action=login"
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
response.Write "<table width=96% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#6699ff>"
response.Write "<form name=receiveaddr method=post action=saveprofile.asp?action=receiveaddr>"
response.Write "<tr bgcolor=#6699cc><td height=15 colspan=2><div align=center><font color=#FFFFFF>请您仔细填写以下收货人的信息，以便所购买的商品能够及时投递。</font></div></td></tr>"
response.Write "<tr><td width=18% height=16 bgcolor=#FFFFFF STYLE='PADDING-LEFT: 20px'>收货人姓名：</td>"
response.Write "<td width=82% height=28 bgcolor=#FFFFFF STYLE='PADDING-LEFT: 20px'><input name=recepit type=text id=recepit size=12 value="&trim(rs("recepit"))&"> &nbsp;&nbsp;&nbsp;性 &nbsp;别： <select name=sex ID=Select1><option value=0 selected>男</option><option value=1>女</option></select></td></tr>"
response.write "<tr><td height=16 bgcolor=#FFFFFF STYLE='PADDING-LEFT: 20px'>收货人省/市</td><td height=28 bgcolor=#FFFFFF STYLE='PADDING-LEFT: 20px'><input name=city type=text id=city value="&trim(rs("city"))&"></td></tr>"
response.Write "<tr><td height=16 bgcolor=#FFFFFF STYLE='PADDING-LEFT: 20px'>详细地址：</td><td height=28 bgcolor=#FFFFFF STYLE='PADDING-LEFT: 20px'><input name=address type=text id=address size=40 value="&trim(rs("address"))&"></td></tr>"
response.Write "<tr><td height=16 bgcolor=#FFFFFF STYLE='PADDING-LEFT: 20px'>邮　　编：</td><td height=28 bgcolor=#FFFFFF STYLE='PADDING-LEFT: 20px'><input name=postcode type=text id=postcode value="&cstr(rs("postcode"))&"></td></tr>"
response.Write "<tr><td height=17 bgcolor=#FFFFFF STYLE='PADDING-LEFT: 20px'>电　　话：</td><td height=28 bgcolor=#FFFFFF STYLE='PADDING-LEFT: 20px'><input name=usertel type=text id=usertel value="&trim(rs("usertel"))&"></td></tr>"
response.Write "<tr><td height=17 bgcolor=#FFFFFF STYLE='PADDING-LEFT: 20px'>手　　机：</td><td height=28 bgcolor=#FFFFFF STYLE='PADDING-LEFT: 20px'><input name=mobile type=text id=mobile value="&trim(rs("mobile"))&"></td></tr>"
response.Write "<tr><td height=17 bgcolor=#FFFFFF STYLE='PADDING-LEFT: 20px'>腾讯  QQ：</td><td height=28 bgcolor=#FFFFFF STYLE='PADDING-LEFT: 20px'><input name=userqq type=text id=userqq value="&trim(rs("userqq"))&"></td></tr>"
response.Write "<tr><td height=46 bgcolor=#FFFFFF STYLE='PADDING-LEFT: 20px'>送货方式：</td><td height=46 bgcolor=#FFFFFF STYLE='PADDING-LEFT: 20px'><select name=deliverymethord size=3 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
response.Write "</select></td></tr>"
response.Write "<tr><td height=58 bgcolor=#FFFFFF STYLE='PADDING-LEFT: 20px'>支付方式：</td><td height=58 bgcolor=#FFFFFF STYLE='PADDING-LEFT: 20px'><select name=paymethord size=3 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
response.Write "</select></td></tr>"
response.Write "<tr bgcolor=#FFFFFF><td height=32 colspan=2 ><div align=center><input type=submit name=Submit value=提交保存 onclick='return checkreceiveaddr();'></div></td></tr>"
response.Write "</form></table>"
rs.close
set rs=nothing
end sub

sub deposit()
if request.cookies("timesshop")("username")="" then
response.Redirect "profile.asp?action=login"
response.End
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select score from [user] where username='"&request.cookies("timesshop")("username")&"' ",conn,1,1
response.Write "<table width=96% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFFFFF>"
response.Write "<form name=userinfo method=post action=saveprofile.asp?action=deposit>"
response.Write "<br><table width=96% border=0 align=center cellpadding=1 cellspacing=1>"
response.Write "<tr bgcolor=#FFFFFF><td colspan=2 STYLE='PADDING-LEFT: 20px'><font color=#FF3300>★</font> &nbsp;您目前的积分为： <font color=#FF3300>"&rs("score")&"</font> 分。</td></tr>"
response.Write "<tr><td bgcolor=#FFFFFF>您可以用这些积分在本站购买相应等值的商品，最重要的是您可以可以用它买到积分专栏的产品喔，我们这里此类的商品只可以用积分购买，如果您喜欢，就多买我们的商品，攒积分吧</td></tr>"
response.Write "</table>"
end sub

sub profile()
if request.cookies("timesshop")("username")="" then
response.Redirect "profile.asp?action=login"
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
response.Write "<tr><br><td bgcolor=#9D4F4F></td></tr>"
response.Write "<tr><td height=30 colspan=2 STYLE='PADDING-LEFT: 20px' bgcolor=#FFFFFF><font color=#FF3300>"&rs("book")&"</td></tr>"
response.Write "<tr><br><td bgcolor=#9D4F4F></td></tr>"
response.Write "</table>"
end sub

sub scores()
if request.cookies("timesshop")("username")="" then
response.Redirect "profile.asp?action=login"
response.End
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select deposit from [user] where username='"&request.cookies("timesshop")("username")&"' ",conn,1,1
%>
<table width=96% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFFFFF>
<form name=userinfo method=post action=saveprofile.asp?action=deposit>
<table width=96% border=0 align=center cellpadding=1 cellspacing=1>
<tr bgcolor=#FFFFFF><td colspan=2 STYLE='PADDING-LEFT: 20px'><font color=#FF3300>★</font> &nbsp;您现在共有预存款 <font color=#FF3300><% = rs("deposit") %></font> 元。</td></tr><br><br>
<tr><td bgcolor=#FFFFFF>您在本站产生的小余额，我们将暂存在这里，在您下次购物的时候，在这里扣除，这里的“时代元”和人民币等值。<br></td></tr>
</table>
<%
end sub

sub customerinfo()
if request.cookies("timesshop")("username")="" then
response.Redirect "profile.asp?action=login"
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=#FFFFFF>尊敬的用户，我们向您承诺：以下信息将被严格保密，绝对不提供给第三方或用作它用。</font></td></tr>
<tr><td height=28 bgcolor=#FFFFFF STYLE='PADDING-LEFT: 70px'>用 户 名： <font color=#FF6600><% = request.cookies("timesshop")("username") %></font></td></tr>
<tr><td height=28 bgcolor=#FFFFFF STYLE='PADDING-LEFT: 70px'>会员级别： [<b><font color=#FF6600><% = Rank %></font></b>]</td></tr>
<tr><td height=28 bgcolor=#FFFFFF STYLE='PADDING-LEFT: 70px'>E-Mail　：  <input name=useremail type=text id=useremail2 value=<% =trim(rs("useremail")) %>></td></tr>
<tr><td height=28 bgcolor=#FFFFFF STYLE='PADDING-LEFT: 70px'>真实姓名： <input name=realname type=text id=realname value=<% = trim(rs("realname"))%>></td></tr>
<tr><td height=28 bgcolor=#FFFFFF STYLE='PADDING-LEFT: 70px'>密码提问： <input name=quesion type=text id=quesion value=<% = trim(rs("quesion"))%>>(用于密码遗忘时使用)</td></tr>
<tr><td height=28 bgcolor=#FFFFFF STYLE='PADDING-LEFT: 70px'>密码答案： <input name=answer type=text id=answer>(密码遗忘时将验证此答案)</td></tr>
<tr><td height=32 bgcolor=#FFFFFF STYLE='PADDING-LEFT: 70px'><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.Redirect "profile.asp?action=login"
response.End
end if
response.write "<br><table width=96% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFFFFF>"
response.Write "<form name=userpass method=post action=saveprofile.asp?action=changepass>"
response.Write "<tr><td width=16% bgcolor=#FFFFFF STYLE='PADDING-LEFT: 20px'>用户名：</td><td width=84% bgcolor=#FFFFFF STYLE='PADDING-LEFT: 20px'><font color=#FF6600>"&request.cookies("timesshop")("username")&"</font></td></tr>"
response.Write "<tr><td bgcolor=#FFFFFF STYLE='PADDING-LEFT: 20px'>原密码：</td><td bgcolor=#FFFFFF STYLE='PADDING-LEFT: 20px'><input name=password type=password id=password></td></tr>" 
response.Write "<tr><td bgcolor=#FFFFFF STYLE='PADDING-LEFT: 20px'>新密码：</td><td bgcolor=#FFFFFF STYLE='PADDING-LEFT: 20px'><input name=password1 type=password id=password1></td></tr>"
response.Write "<tr><td bgcolor=#FFFFFF STYLE='PADDING-LEFT: 20px'>确认密码：</td><td bgcolor=#FFFFFF STYLE='PADDING-LEFT: 20px'><input name=password2 type=password id=password2></td></tr>"
response.Write "<tr><td height=32 colspan=2 bgcolor=#FFFFFF STYLE='PADDING-LEFT: 50px'><input type=submit name=Submit value=确认修改 onclick='return checkrepass();'></td></tr>"
response.Write "</form></table>"
end sub

sub repass()
dim shop
shop=request.QueryString("shop")
select case shop

case ""
response.Write "<br><table width=96% border=0 align=center cellpadding=01 cellspacing=1>"
response.Write "<form name=shop0 method=post action=profile.asp?action=repass&shop=1>"
response.Write "<tr><td height=28 bgcolor=#ffffff><div align=center>请输入您的用户名： <input name=username type=text id=username size=16></div></td></tr>"
response.Write "<tr><td height=32 bgcolor=#ffffff><div align=center><input type=submit name=Submit value=确&nbsp;定 onclick='return check0();'></div></td></tr>"
response.Write "</form></table>"

case "1"