📄 disuser.asp
字号:
<!--#include file="userfunc.asp"-->
<body bgcolor="#FFFFFF">
<%
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=#6699cc>
<%
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%><font color=#FFFFFF>选 择</font></td>
<td width=45%><font color=#FFFFFF>商品名称</font></td>
<td width=14%><font color=#FFFFFF>市场价</font></td>
<td width=13%><font color=#FFFFFF>会员价</font></td>
<td width=12%><font color=#FFFFFF>折 扣</font></td>
<td width=9%><font color=#FFFFFF>删 除</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=去下订单 > "
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=#6699ff>
<form name=receiveaddr method=post action=saveprofile.asp?action=receiveaddr>
<tr bgcolor=#6699cc><td height=15 colspan=2 align=center><font color=#FFFFFF>请您填写正确的收货人信息，我们会为您保密。</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")) %>>
性 别： <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>这是免费版，需要VIP，积分，预存款功能清购买正式版 </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=#FFFFFF>尊敬的用户，我们向您承诺：你的信息将被严格保密。</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 width=50% align="right">用 户 名：</td>
<td width=50%><font color=#FF0000><% = request.cookies("timesshop")("username") %></font></td>
</tr>
<tr bgcolor=#FFFFFF>
<td align="right">原 密 码：</td>
<td><input name=password type=password id=password></td>
</tr>
<tr bgcolor=#FFFFFF>
<td align="right">新 密 码：</td>
<td><input name=password1 type=password id=password1></td>
</tr>
<tr bgcolor=#FFFFFF>
<td align="right">确认密码：</td>
<td><input name=password2 type=password id=password2></td>
</tr>
<tr>
<td colspan=2 bgcolor=#FFFFFF align="center"><input type=submit name=Submit value=修 改 onclick='return checkrepass();'></td></tr>
</form></table>
<%
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -