?? user_inc.asp
字號:
<%
sub dindan()
if request.Cookies("bjx")("username")="" then
response.Redirect "user.asp"
response.End
end if
%>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td width="100%" align="right">
<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=dindan&zhuangtai=0" selected>==請選擇查訊狀態==</option>
<option value="user.asp?action=dindan&zhuangtai=0" >全部訂單狀態</option>
<option value="user.asp?action=dindan&zhuangtai=1" >未作任何處理</option>
<option value="user.asp?action=dindan&zhuangtai=2" >用戶已經劃出款</option>
<option value="user.asp?action=dindan&zhuangtai=3" >服務商已經收到款</option>
<option value="user.asp?action=dindan&zhuangtai=4" >服務商已經發貨</option>
<option value="user.asp?action=dindan&zhuangtai=5" >用戶已經收到貨</option>
</select>
</td>
</tr>
</table>
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#cccccc">
<tr bgcolor="#cccccc" align="center">
<td><strong><font color="#ffffff">訂單號</font></strong></td>
<td><strong><font color="#ffffff">貨款</font></strong></td>
<td><strong><font color="#ffffff">費用</font></strong></td>
<td><strong><font color="#ffffff">訂單狀態</font></strong></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 BJX_action where username='"&request.Cookies("bjx")("username")&"' and zhuangtai<6 order by actiondate desc",conn,1,1
case ""
rs.open "select distinct(dingdan),userzhenshiname,actiondate,shouhuoname,songhuofangshi,zhifufangshi,zhuangtai from BJX_action where username='"&request.Cookies("bjx")("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 BJX_action where username='"&request.Cookies("bjx")("username")&"' and zhuangtai="&zhuangtai&" order by actiondate",conn,1,1
end if
do while not rs.eof
%>
<tr bgcolor="#FFFFFF" align="center">
<td>
<a href="dingdan.asp?dan=<%=trim(rs("dingdan"))%>" target="_blank"><%=trim(rs("dingdan"))%></a></div>
</td>
<td >
<%dim bjx,rs2
'////
set bjx=server.CreateObject("adodb.recordset")
bjx.open "select sum(zonger) as zonger from BJX_action where dingdan='"&trim(rs("dingdan"))&"' ",conn,1,1
response.write "<font color=#FF6600>"&bjx("zonger")&"元</font>"
bjx.close
set bjx=nothing%>
</td>
<td>
<%
set bjx=server.CreateObject("adodb.recordset")
bjx.open "select feiyong from BJX_action where dingdan='"&trim(rs("dingdan"))&"' ",conn,1,1
response.write "<font color=#FF6600>"&bjx("feiyong")&"元</font>"
bjx.close
set bjx=nothing%>
</td>
<td>
<%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%>
</td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing%>
</table><br>
<%
end sub
sub myinfo()
if request.Cookies("bjx")("username")<>"" then
%>
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#cccccc">
<tr align="center">
<td colspan="2"><strong><font color=#FFFFFF>我的統計信息</font></strong></td>
</tr>
<%
set bjx=server.CreateObject("adodb.recordset")
bjx.open "select * from Dv_User where username='"&request.Cookies("bjx")("username")&"' ",conn,1,1
ky_jifen=bjx("jifen")
%>
<tr bgcolor="#ffffff" align="center">
<td width="50%">用戶類型：</td>
<td width="50%"><font color=red>
<%if request.Cookies("bjx")("reglx")=2 then%>
VIP用戶
<%else%>
普通會員
<%end if%>
</font>
<%if request.Cookies("bjx")("reglx")=2 then%>
期限：<%=bjx("vipdate")%>
<%end if%></td>
</tr>
<tr bgcolor="#ffffff" align="center">
<td>登錄次數：</td>
<td><%=bjx("logins")%></td>
</tr>
<tr bgcolor="#ffffff" align="center">
<td>累計積分：</td>
<td><%=bjx("jifen")%></td>
</tr>
<%
set bjx1=server.CreateObject("adodb.recordset")
bjx1.open "select sum(zonger) as sum_jine from BJX_action where username='"&request.Cookies("bjx")("username")&"' and zhuangtai<=5",conn,1,1
%>
<tr bgcolor="#ffffff" align="center">
<td>總購物金額：</td>
<td><%=bjx1("sum_jine")%></td>
</tr>
<%bjx1.close
set bjx1=nothing%>
<tr bgcolor="#ffffff" align="center">
<td><font color="#FF0000">預存款：</font></td>
<td><%=bjx("yucun")%></td>
</tr>
<%if request.Cookies("bjx")("reglx")=2 then%>
<tr bgcolor="#ffffff" align="center">
<td>VIP期限：</td>
<td><%=bjx("vipdate")%></td>
</tr>
<%end if%>
<%
set bjx1=server.CreateObject("adodb.recordset")
bjx1.open "select count(*) as rec_count from BJX_action where username='"&request.Cookies("bjx")("username")&"' and zhuangtai=6",conn,1,1
%>
<tr bgcolor="#ffffff" align="center">
<td>收藏的商品數：</td>
<td><%=bjx1("rec_count")%></td>
</tr>
<%bjx1.close
set bjx1=nothing%>
<%bjx.close
set bjx=nothing%>
</table>
<%else%>
<table width="90%" height="60" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#cccccc">
<tr>
<td bgcolor="#FFFFFF"><div align="center">請登陸后操作</div></td>
</tr>
</table>
<%end if%>
<br>
<%
end sub
sub jifen()
if request.Cookies("bjx")("username")="" then
response.Redirect "user.asp"
response.End
end if
%>
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#cccccc">
<tr align="center">
<td><strong><font color=#FFFFFF>積分兌換獎品說明</font></strong>
</td>
</tr>
<tr bgcolor="#FFFFFF" align="center">
<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 BJX_config ",conn,1,1
response.write rs("jfhj")
rs.close
set rs=nothing
%>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="center"><strong><font color=#FFFFFF>我的積分情況</font></strong>
</td>
</tr>
<tr bgcolor="#FFFFFF" align="center">
<td>
<table width="95%" height="24" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<%
set bjx=server.CreateObject("adodb.recordset")
bjx.open "select jifen from Dv_User where username='"&request.Cookies("bjx")("username")&"' ",conn,1,1
ky_jifen=bjx("jifen")
bjx.close
set bjx=nothing%>
<td width="50%">我的可用積分：<font color=#FF0000><%=ky_jifen%></font></td>
<%
set bjx=server.CreateObject("adodb.recordset")
bjx.open "select sum(zonger) as sum_jine from BJX_action where username='"&request.Cookies("bjx")("username")&"' and zhuangtai<=5",conn,1,1
ky_jifen=bjx("sum_jine")
bjx.close
set bjx=nothing%>
<td width="50%">累計購物金額(不含費用)：<font color=#FF0000><%=ky_jifen%></font> 元</td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="center"><strong><font color=#FFFFFF>積分與預存款換算</font></strong></td>
</tr>
<tr bgcolor="#FFFFFF" align="center">
<td>
<table width="100%" height="24" border="0" cellspacing="0" cellpadding="0" align="center">
<tr><form name="form2" method="post" action="huansuan.asp">
<td>
把
<input name="jifen" type="text" id="jifen" size="10">
積分換算成預存款
<input type="submit" name="Submit" value="換算">
<input name="act" type="hidden" id="act" value="jifen">
</td></form>
<form name="form2" method="post" action="huansuan.asp">
<td>
把
<input name="cunkuan" type="text" id="cunkuan" size="10">
元預存款換算成積分
<input type="submit" name="Submit" value="換算">
<input name="act" type="hidden" id="act" value="cunkuan">
</td></form>
</tr>
<tr>
<td colspan="2"><div align="center"><font color="#FF0000">換算:1元=2積分</font></div></td>
<%
set bjx=server.CreateObject("adodb.recordset")
bjx.open "select sum(zonger) as sum_jine from BJX_action where username='"&request.Cookies("bjx")("username")&"' and zhuangtai<=5",conn,1,1
ky_jifen=bjx("sum_jine")
bjx.close
set bjx=nothing%>
</tr>
</table>
</td>
</tr>
<tr align="center">
<td align=center><strong><font color=#FFFFFF>獎品清單</font></strong></td>
</tr>
<tr bgcolor="#FFFFFF" align="center">
<td>
<table width="95%" border="0">
<tr align="center">
<td height="24">獎品名稱</td>
<td height="24">需要積分</td>
<td height="24">操作</td>
</tr>
<%
set bjx=server.CreateObject("adodb.recordset")
bjx.open "select * from BJX_jiangpin where xianshi=1",conn,1,1
while not bjx.eof%>
<tr>
<td height="24"><div align="center"><a href="listjp.asp?id=<%=bjx("bookid")%>" ><%=bjx("bookname")%></a></div></td>
<td align="center" height="24"><%=bjx("jifen")%></td>
<td align="center" height="24"><a href="jifen.asp?id=<%=bjx("bookid")%>&action=add">選擇此項</a></td>
</tr>
<%
bjx.movenext
wend
bjx.close
set bjx=nothing%>
</table>
</td>
</tr>
<%
set bjx=server.CreateObject("adodb.recordset")
bjx.open "select * from BJX_action_jp where username='"&request.Cookies("bjx")("username")&"' and zhuangtai=7",conn,1,1
if bjx.recordcount>0 then%>
<tr align="center">
<td><strong><font color=#FFFFFF>您已選擇的獎品清單</font></strong></td>
</tr>
<tr bgcolor="#FFFFFF" align="center">
<td>
<table width="95%" border="0">
<tr align="center">
<td height="24">獎品名稱</td>
<td height="24">使用積分</td>
<td height="24">操作</td>
</tr>
<%
while not bjx.eof%>
<tr>
<td height="24">
<div align="center">
<%
set bjx1=server.CreateObject("adodb.recordset")
bjx1.open "select * from BJX_jiangpin where bookid="&bjx("bookid"),conn,1,1
if bjx1.recordcount=1 then
response.write "<a href='listjp.asp?id="&bjx("bookid")&"' >"&bjx1("bookname")&"</a>"
end if
bjx1.close
set bjx1=nothing%>
</div></td>
<td align="center" height="24"><%=bjx("jifen")%></td>
<td align="center" height="24"><a href="jifen.asp?actionid=<%=bjx("actionid")%>&action=del">刪除此項</a></td>
</tr>
<%
bjx.movenext
wend%>
</table>
</td>
</tr>
<%end if
bjx.close
set bjx=nothing%>
</table><br>
<%
end sub
sub sqvip()
if request.Cookies("bjx")("username")="" or request.Cookies("bjx")("reglx")=2 then
response.Redirect "user.asp"
response.End
end if
%>
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#cccccc">
<tr align=center>
<td><strong><font color=#FFFFFF>申請VIP說明</font></strong></td>
</tr>
<tr>
<td bgcolor=#FFFFFF>
<table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td>
<% set rs=server.createobject("adodb.recordset")
rs.open "select vipsq from BJX_config ",conn,1,1
response.write rs("vipsq")
rs.close
set rs=nothing
%>
</td></tr>
</table></td></tr></table><br>
<%
end sub
sub viphd()
if request.Cookies("bjx")("username")="" or request.Cookies("bjx")("reglx")=0 then
response.Redirect "user.asp"
response.End
end if
%>
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#cccccc">
<tr align=center>
<td><strong><font color=#FFFFFF>VIP活動說明</font></strong></td>
</tr>
<tr>
<td bgcolor=#FFFFFF>
<table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td>
<%set rs=server.createobject("adodb.recordset")
rs.open "select viphd from BJX_config ",conn,1,1
response.write rs("viphd")
rs.close
set rs=nothing
%>
</td></tr>
</table></td></tr></table><br>
<%
end sub
sub shoucang()
if request.Cookies("bjx")("username")="" then
response.Redirect "user.asp"
response.End
end if
%>
<script language="JavaScript">
<!--
var newWindow = null
function windowOpener(loadpos)
{
newWindow = window.open(loadpos,'newwindow','width=450,height=350,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -