?? 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=去下訂單 > "
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")) %>>
性 別： <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> 您目前的積分為： <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> 你目前的預存款有： <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> 升級成VIP用戶需要的積分：<font color=#FF0000><% = strvipscore %></font> 分。 <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>用戶，我們向您承諾：你的信息將 被嚴格保密。</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"> </td>
<td> </td>
</tr>
<tr bgcolor=#FFFFFF>
<td align="right"> </td>
<td> </td>
</tr>
<tr bgcolor=#FFFFFF>
<td width=50% align="right">用 戶 名：</td>
<td width=50%><font color=#FF0000>
<% = request.cookies("timesshop")("username") %>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -