?? user_inc.asp
字號:
<!--
┌─ o91.com───────────────┐
│ 動感購物商務平臺WWW.SNSN.NET版權所有 │
│ 設計：模糊視線13855119911 QQ：9912515 │
└────────────────────┘
-->
<!--#include file="fuction.asp"-->
<%
'//////////////////////////訂單查訊
sub dindan()
if request.cookies("snsn")("username")="" then
response.Redirect "user.asp"
response.End
end if
%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td width="55%"> 我 的 訂 單</td>
<td width="49%">
<div align="right">
<select name="zhuangtai" class="wenbenkuang" onChange="var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}" >
<option value="user.asp?action=dindan&zhuangtai=0" selected>--請選擇查訊狀態(tài)--</option>
<option value="user.asp?action=dindan&zhuangtai=0" >全部訂單狀態(tài)</option>
<option value="user.asp?action=dindan&zhuangtai=1" >未作任何處理</option>
<option value="user.asp?action=dindan&zhuangtai=2" >用戶已經(jīng)劃出款</option>
<option value="user.asp?action=dindan&zhuangtai=3" >服務商已經(jīng)收到款</option>
<option value="user.asp?action=dindan&zhuangtai=4" >服務商已經(jīng)發(fā)貨</option>
<option value="user.asp?action=dindan&zhuangtai=5" >用戶已經(jīng)收到貨</option>
</select>
</div>
</td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC" class="table-zuoshang">
<tr bgcolor="f1f1f1" class="a1">
<td height="23" > <div align="center">訂單號</div></td>
<td > <div align="center">貨款</div></td>
<td > <div align="center">費用</div>
<td > <div align="center">訂單狀態(tài)</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 shop_action where username='"&checkFFSQLStr(request.cookies("snsn")("username"))&"' and zhuangtai<6 order by actiondate desc",conn,1,1
case ""
rs.open "select distinct(dingdan),userzhenshiname,actiondate,shouhuoname,songhuofangshi,zhifufangshi,zhuangtai from shop_action where username='"&checkFFSQLStr(request.cookies("snsn")("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 shop_action where username='"&checkFFSQLStr(request.cookies("snsn")("username"))&"' and zhuangtai="&zhuangtai&" order by actiondate",conn,1,1
end if
do while not rs.eof
%>
<tr bgcolor="#FFFFFF">
<td height="23" bgcolor="#FFFFFF" > <div align="center"><a href="javascript:;" onClick="javascript:window.open('dingdan.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 > <div align="center">
<%dim snsn,rs2
'////
set snsn=server.CreateObject("adodb.recordset")
snsn.open "select sum(zonger) as zonger from shop_action where dingdan='"&trim(rs("dingdan"))&"' ",conn,1,1
response.write "<font color=#FF6600>"&snsn("zonger")&"元</font>"
snsn.close
set snsn=nothing%>
</div></td>
<td > <div align="center">
<%
set snsn=server.CreateObject("adodb.recordset")
snsn.open "select feiyong from shop_action where dingdan='"&trim(rs("dingdan"))&"' ",conn,1,1
response.write "<font color=#FF6600>"&snsn("feiyong")&"元</font>"
snsn.close
set snsn=nothing%>
</div></td>
<td > <div align="center">
<%select case rs("zhuangtai")
case "1"
response.write "未作任何處理"
case "2"
response.write "用戶已經(jīng)劃出款"
case "3"
response.write "服務商已經(jīng)收到款"
case "4"
response.write "服務商已經(jīng)發(fā)貨"
response.write "用戶已經(jīng)收到貨"
end select%>
</div></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing%>
</table>
<%
end sub
sub myinfo()
if request.cookies("snsn")("username")="" then
response.Redirect "user.asp"
response.End
end if
%>
<table width=98% border=0 align=center cellpadding=0 cellspacing=1 bgcolor="#CCCCCC" class="table-zuoshang">
<tr align="center" bgcolor="#FFFFFF" class="a1">
<td height="23" colspan="3" > <b>我的統(tǒng)計信息</b></td>
</tr>
<%
set snsn=server.CreateObject("adodb.recordset")
snsn.open "select * from [shop_user] where username='"&checkFFSQLStr(request.cookies("snsn")("username"))&"' ",conn,1,1
ky_jifen=snsn("jifen")
%>
<tr>
<td width="121" height="22" align="center" bgcolor="f1f1f1" >用戶類型：</td>
<td width="106" height="22" align="center" bgcolor="f1f1f1" >
<%if request.cookies("snsn")("reglx")=2 then%>
VIP用戶
<%else%>
普通會員
<%end if%>
</td>
<td width="133" height="22" align="center" bgcolor="f1f1f1" >
<%if request.cookies("snsn")("reglx")=2 then%>
期限：<%=snsn("vipdate")%>
<%end if%>
</td>
</tr>
<tr>
<td width="121" height="22" align="center" bgcolor="#FFFFFF" >
登錄次數(shù)：</td>
<td width="106" height="22" align="center" bgcolor="#FFFFFF" ><%=snsn("logins")%></td>
<td width="133" height="22" bgcolor="#FFFFFF" > </td>
</tr>
<tr>
<td width="121" height="22" align="center" bgcolor="#FFFFFF" >
累計積分：</td>
<td width="106" height="22" align="center" bgcolor="#FFFFFF" ><%=snsn("jifen")%></td>
<td width="133" height="22" bgcolor="#FFFFFF" > </td>
</tr>
<%
set snsn1=server.CreateObject("adodb.recordset")
snsn1.open "select sum(zonger) as sum_jine from shop_action where username='"&checkFFSQLStr(request.cookies("snsn")("username"))&"' and zhuangtai<=5",conn,1,1
%>
<tr>
<td width="121" height="22" align="center" bgcolor="#FFFFFF" >
總購物金額：</td>
<td width="106" height="22" align="center" bgcolor="#FFFFFF" ><%=snsn1("sum_jine")%></td>
<td width="133" height="22" bgcolor="#FFFFFF" > </td>
</tr>
<%snsn1.close
set snsn1=nothing%>
<tr>
<td width="121" height="22" align="center" bgcolor="#FFFFFF" >
預存款：</td>
<td width="106" height="22" align="center" bgcolor="#FFFFFF" ><%=snsn("yucun")%></td>
<td width="133" height="22" bgcolor="#FFFFFF" > </td>
</tr>
<%if request.cookies("snsn")("reglx")=2 then%>
<tr>
<td width="121" height="22" align="center" bgcolor="#FFFFFF" >
VIP期限：</td>
<td width="106" height="22" align="center" bgcolor="#FFFFFF" ><%=snsn("vipdate")%></td>
<td width="133" height="22" bgcolor="#FFFFFF" > </td>
</tr>
<%end if%>
<%
set snsn1=server.CreateObject("adodb.recordset")
snsn1.open "select count(*) as rec_count from shop_action where username='"&checkFFSQLStr(request.cookies("snsn")("username"))&"' and zhuangtai=6",conn,1,1
%>
<tr>
<td width="121" height="22" align="center" bgcolor="#FFFFFF" >
收藏的商品數(shù)：</td>
<td width="106" height="22" align="center" bgcolor="#FFFFFF" ><%=snsn1("rec_count")%></td>
<td width="133" height="22" bgcolor="#FFFFFF" > </td>
</tr>
<%snsn1.close
set snsn1=nothing%>
<%snsn.close
</table>
<%
end sub
sub jifen()
if request.cookies("snsn")("username")="" then
response.Redirect "user.asp"
response.End
end if
%>
<table width=98% border=0 align=center cellpadding=0 cellspacing=0 class="table-zuoshang">
<tr class="a1">
<td height="22"> <div align=center>我的積分情況</div></td>
</tr>
<%
set snsn=server.CreateObject("adodb.recordset")
snsn.open "select jifen from [shop_user] where username='"&checkFFSQLStr(request.cookies("snsn")("username"))&"' ",conn,1,1
ky_jifen=snsn("jifen")
snsn.close
set snsn=nothing%>
<tr>
<td bgcolor=#FFFFFF height="22" > 我的可用積分：<%=ky_jifen%></td>
</tr>
<%
set snsn=server.CreateObject("adodb.recordset")
snsn.open "select sum(zonger) as sum_jine from shop_action where username='"&checkFFSQLStr(request.cookies("snsn")("username"))&"' and zhuangtai<=5",conn,1,1
ky_jifen=snsn("sum_jine")
snsn.close
set snsn=nothing%>
<tr>
<td bgcolor=#FFFFFF height="22" > 累計購物金額(不含費用)：<%=ky_jifen%>元</td>
</tr>
<tr>
<td bgcolor=#FFFFFF height="22" > <div align=center></div></td>
</tr>
<tr class="a1">
<td height="22" > <div align=center>積分兌換獎品說明</div></td>
</tr>
<tr>
<td > <table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td>
<%set rs=server.createobject("adodb.recordset")
rs.open "select jfhj from shop_config ",conn,1,1
response.write rs("jfhj")
rs.close
set rs=nothing
%>
</td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor=#FFFFFF > </td>
</tr>
<tr class="a1">
<td height=22 bgcolor=<%=flbgbk%> align=center >獎品清單</td>
</tr>
<tr>
<td height=28 bgcolor=#FFFFFF> <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr align="center" bgcolor="f1f1f1">
<td height="22" >獎品名稱</td>
<td height="22" >需要積分</td>
<td height="22" >操作</td>
</tr>
<%
set snsn=server.CreateObject("adodb.recordset")
snsn.open "select * from shop_jiangpin where xianshi=1",conn,1,1
while not snsn.eof%>
<tr bgcolor="#FFFFFF">
<td height="22" ><a href="listjp.asp?id=<%=snsn("shopid")%>" target=_blank><%=snsn("shopname")%></a></td>
<td height="22" align="center" ><%=snsn("jifen")%></td>
<td height="22" align="center" ><a href="jifen.asp?id=<%=snsn("shopid")%>&action=add">選擇此項</a></td>
</tr>
<%
snsn.movenext
wend
snsn.close
set snsn=nothing%>
</table></td>
</tr>
<%
set snsn=server.CreateObject("adodb.recordset")
snsn.open "select * from shop_action_jp where username='"&checkFFSQLStr(request.cookies("snsn")("username"))&"' and zhuangtai=7",conn,1,1
if snsn.recordcount>0 then%>
<tr class="a1">
<td height=22 bgcolor=<%=flbgbk%> align=center >您已選擇的獎品清單</td>
</tr>
<tr>
<td height=28 bgcolor=#FFFFFF> <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr align="center">
<td height="22" bgcolor="f1f1f1" >獎品名稱</td>
<td height="22" bgcolor="f1f1f1" >使用積分</td>
<td height="22" bgcolor="f1f1f1" >操作</td>
</tr>
<%
while not snsn.eof%>
<tr bgcolor="#FFFFFF">
<td height="22" >
<%
set snsn1=server.CreateObject("adodb.recordset")
snsn1.open "select * from shop_jiangpin where shopid="&snsn("shopid"),conn,1,1
if snsn1.recordcount=1 then
response.write "<a href='listjp.asp?id="&snsn("shopid")&"' target=_blank>"&snsn1("shopname")&"</a>"
end if
snsn1.close
set snsn1=nothing%>
</td>
<td height="22" align="center" ><%=snsn("jifen")%></td>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -