?? user_inc.asp
字號:
<%
'//////////////////////////訂單查訊
sub myorder()
if request.cookies("shopzhiwang")("username")="" then
response.Redirect "user.asp"
response.End
end if
%>
<table width="370" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td align="center">
<select name="zhuangtai" onChange="var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}" >
<option value="user.asp?action=myorder&zhuangtai=0" selected>--請選擇查訊狀態--</option>
<option value="user.asp?action=myorder&zhuangtai=0" >全部訂單狀態</option>
<option value="user.asp?action=myorder&zhuangtai=1" >未作任何處理</option>
<option value="user.asp?action=myorder&zhuangtai=2" >用戶已經劃出款</option>
<option value="user.asp?action=myorder&zhuangtai=3" >服務商已經收到款</option>
<option value="user.asp?action=myorder&zhuangtai=4" >服務商已經發貨</option>
<option value="user.asp?action=myorder&zhuangtai=5" >用戶已經收到貨</option>
</select>
</td>
</tr>
</table>
<br><br>
<table width="500" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#33CCFF">
<tr>
<td bgcolor="#FFECA2">
<div align="center"><font color="#666666">訂單號</font></div>
</td>
<td bgcolor="#FFECA2">
<div align="center"><font color="#666666">貨款</font></div>
</td>
<td bgcolor="#FFECA2">
<div align="center"><font color="#666666">費用</font></div>
<td bgcolor="#FFECA2">
<div align="center"><font color="#666666">訂單狀態</font></div>
</td>
</tr>
<%set rs=server.CreateObject("adodb.recordset")
dim zhuangtai
zhuangtai=request.QueryString("zhuangtai")
if zhuangtai=0 or zhuangtai="" then
select case zhuangtai
case "0"
rs.open "select distinct(dingdan),userzhenshiname,actiondate,shouhuoname,songhuofangshi,zhifufangshi,zhuangtai from sh_action where username='"&request.cookies("shopzhiwang")("username")&"' and zhuangtai<6 order by actiondate desc",conn,1,1
case ""
rs.open "select distinct(dingdan),userzhenshiname,actiondate,shouhuoname,songhuofangshi,zhifufangshi,zhuangtai from sh_action where username='"&request.cookies("shopzhiwang")("username")&"' and zhuangtai<5 order by actiondate desc",conn,1,1
end select
else
rs.open "select distinct(dingdan),userzhenshiname,actiondate,shouhuoname,songhuofangshi,zhifufangshi,zhuangtai from sh_action where username='"&request.cookies("shopzhiwang")("username")&"' and zhuangtai="&zhuangtai&" order by actiondate",conn,1,1
end if
do while not rs.eof
%>
<tr>
<td bgcolor="#FFFFEE">
<div align="center"><a href="javascript:;" onClick="javascript:window.open('orderform.asp?dan=<%=trim(rs("dingdan"))%>','','width=770,height=420,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"><%=trim(rs("dingdan"))%></a></div>
</td>
<td bgcolor="#FFFFEE">
<div align="center">
<%dim shopzhiwang,rs2
'////
set shopzhiwang=server.CreateObject("adodb.recordset")
shopzhiwang.open "select sum(zonger) as zonger from sh_action where dingdan='"&trim(rs("dingdan"))&"' ",conn,1,1
response.write "<font color=#FF6600>"&shopzhiwang("zonger")&"元</font>"
shopzhiwang.close
set shopzhiwang=nothing%>
</div>
</td>
<td bgcolor="#FFFFEE">
<div align="center">
<%
set shopzhiwang=server.CreateObject("adodb.recordset")
shopzhiwang.open "select feiyong from sh_action where dingdan='"&trim(rs("dingdan"))&"' ",conn,1,1
response.write "<font color=#FF6600>"&shopzhiwang("feiyong")&"元</font>"
shopzhiwang.close
set shopzhiwang=nothing%>
</div>
</td>
<td bgcolor="#FFFFEE">
<div align="center">
<%select case rs("zhuangtai")
case "1"
response.write "未作任何處理"
case "2"
response.write "用戶已經劃出款"
case "3"
response.write "服務商已經收到款"
case "4"
response.write "服務商已經發貨"
case "5"
response.write "用戶已經收到貨"
end select%>
</div>
</td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing%>
</table>
<%
end sub
sub myinfo()
%>
<table width=500 border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#33CCFF>
<tr align="center" bgcolor="#FFFFEE">
<td colspan="2" height="23"> <font color=#FF0000><b>統計信息</b></font></td>
</tr>
<%
set shopzhiwang=server.CreateObject("adodb.recordset")
shopzhiwang.open "select * from [sh_user] where username='"&request.cookies("shopzhiwang")("username")&"' ",conn,1,1
ky_point=shopzhiwang("point")
%>
<tr bgcolor="#FFFFEE">
<td width="121" align="center" height="22">用戶類型：</td>
<td height="22" align="center"><font color=red>
<%if request.cookies("shopzhiwang")("reglx")=2 then%>
VIP用戶
<%else%>
普通會員
<%end if%>
</font> <%if request.cookies("shopzhiwang")("reglx")=2 then%>
期限：<%=shopzhiwang("vipdate")%> <%end if%> </td>
</tr>
<tr bgcolor="#FFFFEE">
<td width="121" align="center" height="22"> 登錄次數：</td>
<td height="22" align="center"><%=shopzhiwang("logins")%></td>
</tr>
<tr bgcolor="#FFFFEE">
<td width="121" align="center" height="22"> 累計積分：</td>
<td height="22" align="center"><%=shopzhiwang("point")%></td>
</tr>
<%
set web7671=server.CreateObject("adodb.recordset")
web7671.open "select sum(zonger) as sum_jine from sh_action where username='"&request.cookies("shopzhiwang")("username")&"' and zhuangtai<=5",conn,1,1
%>
<tr bgcolor="#FFFFEE">
<td width="121" align="center" height="22"> 購物金額：</td>
<td height="22" align="center"><%=web7671("sum_jine")%></td>
</tr>
<%web7671.close
set web7671=nothing%>
<tr bgcolor="#FFFFEE">
<td width="121" align="center" height="22"> 預存金額：</td>
<td height="22" align="center"><%=shopzhiwang("yucun")%></td>
</tr>
<%if request.cookies("shopzhiwang")("reglx")=2 then%>
<tr bgcolor="#FFFFEE">
<td width="121" align="center" height="22"> VIP 期限：</td>
<td height="22" align="center"><%=shopzhiwang("vipdate")%></td>
</tr>
<%end if%>
<%
set web7671=server.CreateObject("adodb.recordset")
web7671.open "select count(*) as rec_count from sh_action where username='"&request.cookies("shopzhiwang")("username")&"' and zhuangtai=6",conn,1,1
%>
<tr bgcolor="#FFFFEE">
<td width="121" align="center" height="22"> 收藏商品數：</td>
<td height="22" align="center"><%=web7671("rec_count")%></td>
</tr>
<%web7671.close
set web7671=nothing%>
<%shopzhiwang.close
set shopzhiwang=nothing%>
</table>
<%
end sub
sub point()
if request.cookies("shopzhiwang")("username")="" then
response.Redirect "user.asp"
response.End
end if
%>
<table width=500 border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#33CCFF>
<tr>
<td bgcolor=#FFFFEE height="22">
<div align=center><font color=#FF0000>積分情況</font></div>
</td>
</tr>
<%
set shopzhiwang=server.CreateObject("adodb.recordset")
shopzhiwang.open "select point from [sh_user] where username='"&request.cookies("shopzhiwang")("username")&"' ",conn,1,1
ky_point=shopzhiwang("point")
shopzhiwang.close
set shopzhiwang=nothing%>
<tr>
<td height="22" align="center" bgcolor=#FFFFEE> 可用積分：<font color=#FF0000><%=ky_point%></font>
<%
set shopzhiwang=server.CreateObject("adodb.recordset")
shopzhiwang.open "select sum(zonger) as sum_jine from sh_action where username='"&request.cookies("shopzhiwang")("username")&"' and zhuangtai<=5",conn,1,1
ky_point2=shopzhiwang("sum_jine")
shopzhiwang.close
set shopzhiwang=nothing%> 累計購物金額(不含費用)：<font color=#FF0000><%=ky_point2%></font>元</td>
</tr>
<tr>
<td height=22 bgcolor=#FFFFEE align=center>獎品清單</td>
</tr>
<tr>
<td height=28 bgcolor=#FFFFEE>
<table width="100%" border="0">
<tr align="center">
<td height="22">獎品名稱</td>
<td height="22">需要積分</td>
<td height="22">操作</td>
</tr>
<%
set shopzhiwang=server.CreateObject("adodb.recordset")
shopzhiwang.open "select * from sh_award where xianshi=1",conn,1,1
while not shopzhiwang.eof%>
<tr>
<td height="22"><a href="list_award.asp?id=<%=shopzhiwang("bookid")%>" ><%=shopzhiwang("bookname")%></a></td>
<td align="center" height="22"><%=shopzhiwang("point")%></td>
<td align="center" height="22"><a href="score.asp?id=<%=shopzhiwang("bookid")%>&action=add">選擇此項</a></td>
</tr>
<%
shopzhiwang.movenext
wend
shopzhiwang.close
set shopzhiwang=nothing%>
</table>
</td>
</tr>
<%
set shopzhiwang=server.CreateObject("adodb.recordset")
shopzhiwang.open "select * from sh_action_jp where username='"&request.cookies("shopzhiwang")("username")&"' and zhuangtai=7",conn,1,1
if shopzhiwang.recordcount>0 then%>
<tr>
<td height=22 bgcolor=#FFFFEE align=center>您已選擇的獎品清單</td>
</tr>
<tr>
<td height=28 bgcolor=#FFFFEE>
<table width="100%" border="0">
<tr align="center">
<td height="22">獎品名稱</td>
<td height="22">使用積分</td>
<td height="22">操作</td>
</tr>
<%
while not shopzhiwang.eof%>
<tr>
<td height="22">
<%
set web7671=server.CreateObject("adodb.recordset")
web7671.open "select * from sh_award where bookid="&shopzhiwang("bookid"),conn,1,1
if web7671.recordcount=1 then
response.write "<a href='list_award.asp?id="&shopzhiwang("bookid")&"' >"&web7671("bookname")&"</a>"
end if
web7671.close
set web7671=nothing%>
</td>
<td align="center" height="22"><%=shopzhiwang("point")%></td>
<td align="center" height="22"><a href="score.asp?actionid=<%=shopzhiwang("actionid")%>&action=del">刪除此項</a></td>
</tr>
<%
shopzhiwang.movenext
wend%>
</table>
</td>
</tr>
<%end if
shopzhiwang.close
set shopzhiwang=nothing%>
<tr>
<td bgcolor=#FFFFEE height="22">
<div align=center><font color=#FF0000>積分兌換獎品說明</font></div>
</td>
</tr>
<tr>
<td bgcolor=#FFFFEE>
<table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td>
<%set rs=server.createobject("adodb.recordset")
rs.open "select jfhj from config ",conn,1,1
response.write rs("jfhj")
rs.close
set rs=nothing
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
end sub
sub sqvip()
if request.cookies("shopzhiwang")("username")="" then
response.Redirect "user.asp?"
elseif request.cookies("shopzhiwang")("reglx")=2 then
response.write"<SCRIPT language=JavaScript>alert('您已經是VIP用戶！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.End
end if
%>
<table width=500 border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#33CCFF>
<tr>
<td height=22 bgcolor=#FFFFEE>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -