📄 user_inc.asp
字号:
<!--
┌─9911.com.cn────────────┐
│ 动感购物 WWW.9911.com.cn 版权所有 │
│ 动感购物2005Vb 联系：web@snsn.net │
└───────────9911.com.cn──┘
-->
<!--#include file="fuction.asp"-->
<%
'//////////////////////////订单查讯
sub dindan()
if session("username")="" then
response.Redirect "user.asp"
response.End
end if
%>
<html>
<head>
<title><%=webname%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="40">
<form name="form1" method="post" action="user.asp?action=dindan&zhuangtai=8">
开始：
<select name="year1" class="wenbenkuang">
<%for i=2005 to 2100%>
<option value="<%=i%>" <%if year(now())=i then%>selected<%end if%>><%=i%></option>
<%next%>
</select>
年
<select name="month1" class="wenbenkuang">
<%for i=1 to 12%>
<option value="<%=i%>" <%if year(date())=i then %>selected<% end if %>><%=i%></option>
<%next%>
</select>
月
<select name="day1" class="wenbenkuang">
<%for i=1 to 31%>
<option value="<%=i%>" ><%=i%></option>
<%next%>
</select>
日 到结束：
<select name="year2" class="wenbenkuang">
<%for i=2005 to 2100%>
<option value="<%=i%>" ><%=i%> </option>
<%next%>
</select>
年
<select name="month2" class="wenbenkuang">
<%for i=1 to 12%>
<option value=<%=i%> ><%=i%> </option>
<%next%>
</select>
月
<select name="day2" class="wenbenkuang">
<%for i=1 to 31%>
<option value=<%=i%> <%if year(date())=i then%>selected<%end if%>><%=i%>
</option>
<%next%>
</select>
日
<input type="submit" class="go-wenbenkuang" name="Submit3" value="统 计">
<select name="select" class="wenbenkuang" onChange="var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}" >
<base target=Right>
<option value="user.asp?action=dindan&zhuangtai=0&lx=2" selected>--货到付款--</option>
<option value="user.asp?action=dindan&zhuangtai=0&lx=2" >全部订单状态</option>
<option value="user.asp?action=dindan&zhuangtai=1&lx=2" >未作任何处理</option>
<option value="user.asp?action=dindan&zhuangtai=2&lx=2" >订单已确认，正在备货</option>
<option value="user.asp?action=dindan&zhuangtai=3&lx=2" >货已发出</option>
<option value="user.asp?action=dindan&zhuangtai=4&lx=2" >货已收到，款结清，谢谢定购 </option>
</select>
<select name="select" class="wenbenkuang" onChange="var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}" >
<base target=Right>
<option value="user.asp?action=dindan&zhuangtai=0&lx=1" selected>--款到发货--</option>
<option value="user.asp?action=dindan&zhuangtai=0&lx=1" >全部订单状态</option>
<option value="user.asp?action=dindan&zhuangtai=1&lx=1" >未作任何处理</option>
<option value="user.asp?action=dindan&zhuangtai=2&lx=1" >订单已确认，款未到</option>
<option value="user.asp?action=dindan&zhuangtai=3&lx=1" >款已到，正在备货</option>
<option value="user.asp?action=dindan&zhuangtai=4&lx=1" >货已发出</option>
<option value="user.asp?action=dindan&zhuangtai=5&lx=1" >货已收到，谢谢定购 </option>
</select>
</form>
</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">订单状态</div></td>
</tr>
<%set rs=server.CreateObject("adodb.recordset")
dim zhuangtai,lx
zhuangtai=request.QueryString("zhuangtai")
lx=request.QueryString("lx")
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(session("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(session("username"))&"' and zhuangtai<5 order by actiondate desc",conn,1,1
end select
elseif zhuangtai=8 then
day1=trim(Request.Form("year1"))&"-"&trim(Request.Form("month1"))&"-"&trim(Request.Form("day1"))
day2=trim(Request.Form("year2"))&"-"&trim(Request.Form("month2"))&"-"&trim(Request.Form("day2"))
rs.open "select distinct(dingdan),userzhenshiname,actiondate,shouhuoname,songhuofangshi,zhifufangshi,zhuangtai from shop_action where username='"&checkFFSQLStr(session("username"))&"'and (datediff(dd,actiondate,'"&day2&"')>=0) and (datediff(dd,'"&day1&"',actiondate)>=0) and zhuangtai<6 order by actiondate",conn,1,1
else
if lx=2 then
rs.open "select distinct(dingdan),userzhenshiname,actiondate,shouhuoname,songhuofangshi,zhifufangshi,zhuangtai from shop_action where username='"&checkFFSQLStr(session("username"))&"' and zhuangtai="&zhuangtai&" and zhifufangshi='货到付款' order by actiondate",conn,1,1
else
rs.open "select distinct(dingdan),userzhenshiname,actiondate,shouhuoname,songhuofangshi,zhifufangshi,zhuangtai from shop_action where username='"&checkFFSQLStr(session("username"))&"' and zhuangtai="&zhuangtai&" and zhifufangshi<>'货到付款' order by actiondate",conn,1,1
end if
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>"&formatnumber(round(snsn("zonger"),2),2)&"元</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>"&formatnumber(round(snsn("feiyong"),2),2)&"元</font>"
snsn.close
set snsn=nothing%>
</div></td>
<td > <div align="center">
<%
select case rs("zhuangtai")
case "1"
response.write "未作任何处理"
case "2"
if rs("zhifufangshi")="货到付款" then
response.write "订单已确认，正在备货"
else
response.write "订单已确认，款未到"
end if
case "3"
if rs("zhifufangshi")="货到付款" then
response.write "货已发出"
else
response.write "款已到，正在备货"
end if
case "4"
if rs("zhifufangshi")="货到付款" then
response.write "货已收到，款结清，谢谢您的定购"
else
response.write "货已发出"
end if
case "5"
response.write "货已收到，款结清，谢谢您的定购"
end select%>
</div></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing%>
</table>
<%
end sub
sub myinfo()
if session("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="7" > <b>我的统计信息</b></td>
</tr>
<%
set snsn=server.CreateObject("adodb.recordset")
snsn.open "select * from [shop_user] where username='"&checkFFSQLStr(session("username"))&"' ",conn,1,1
ky_jifen=snsn("jifen")
%>
<tr>
<td height="23" align="center" bgcolor="f1f1f1" >用户类型</td>
<td height="23" align="center" bgcolor="f1f1f1" >
登录次数 </td>
<td align="center" bgcolor="f1f1f1" >累计积分</td>
<td align="center" bgcolor="f1f1f1" >总购物金额</td>
<td align="center" bgcolor="f1f1f1" >预存款</td>
<td align="center" bgcolor="f1f1f1" >VIP期限</td>
<td align="center" bgcolor="f1f1f1" >收藏的商品数</td>
</tr>
<tr>
<td height="22" align="center" bgcolor="#FFFFFF" >
<%if session("reglx")=2 then%>
VIP用户
<%else%>
普通会员
<%end if%>
<%if session("reglx")=2 then%>
期限：<%=snsn("vipdate")%>
<%end if%></td>
<td height="22" align="center" bgcolor="#FFFFFF" ><%=snsn("logins")%></td>
<td height="22" align="center" bgcolor="#FFFFFF" ><%=snsn("jifen")%></td>
<td height="22" align="center" bgcolor="#FFFFFF" ><%
set snsn1=server.CreateObject("adodb.recordset")
snsn1.open "select sum(zonger) as sum_jine from shop_action where username='"&checkFFSQLStr(session("username"))&"' and zhuangtai<=5",conn,1,1
if snsn1("sum_jine")>=0 then
%><%=formatnumber(round(snsn1("sum_jine"),2),2)%><%
else
%>0<%
end if
snsn1.close
set snsn1=nothing%></td>
<td height="22" align="center" bgcolor="#FFFFFF" ><%=snsn("yucun")%></td>
<td height="22" align="center" bgcolor="#FFFFFF" ><%=snsn("vipdate")%></td>
<td height="22" align="center" bgcolor="#FFFFFF" ><%
set snsn1=server.CreateObject("adodb.recordset")
snsn1.open "select count(*) as rec_count from shop_action where username='"&checkFFSQLStr(session("username"))&"' and zhuangtai=6",conn,1,1
%><%=snsn1("rec_count")%><%snsn1.close
set snsn1=nothing%></td>
</tr>
<%snsn.close
set snsn=nothing%>
</table>
<%
end sub
sub jifen()
if session("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><strong><%
set snsn=server.CreateObject("adodb.recordset")
snsn.open "select jifen from [shop_user] where username='"&checkFFSQLStr(session("username"))&"' ",conn,1,1
ky_jifen=snsn("jifen")
snsn.close
set snsn=nothing%><%
set snsn=server.CreateObject("adodb.recordset")
snsn.open "select sum(zonger) as sum_jine from shop_action where username='"&checkFFSQLStr(session("username"))&"' and zhuangtai<=5",conn,1,1
ky_jie=snsn("sum_jine")
snsn.close
set snsn=nothing%>我的积分情况：</strong>我的可用积分：<%=ky_jifen%> 累计购物金额(不含费用)：<%if ky_jie>=0 then%><%=formatnumber(round(ky_jie,2),2)%><%else%>0<%end if%>元</div></td>
</tr><tr>
<td height="1" background="images/xian_001.gif"></td>
</tr>
<tr class="a1">
<td height="22" > <div align=center><strong>积分兑换奖品说明</strong></div></td>
</tr><tr>
<td height="1" background="images/xian_001.gif"></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 height="1" background="images/xian_001.gif"></td>
</tr>
<tr class="a1">
<td height=22 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>
<%
set snsn=server.CreateObject("adodb.recordset")
snsn.open "select * from shop_jiangpin where xianshi=1 and kc>0",conn,1,1
while not snsn.eof%>
<tr>
<td height="22" bgcolor="#FFFFFF"><a href="listjp.asp?id=<%=snsn("shopid")%>" target=_blank><%=snsn("shopname")%></a></td>
<td height="22" bgcolor="#FFFFFF" align="center"><%=snsn("jifen")%></td>
<td height="22" bgcolor="#FFFFFF" 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(session("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>
<td height="22" align="center" ><a href="jifen.asp?actionid=<%=snsn("actionid")%>&action=del">删除此项</a></td>
</tr>
<%
snsn.movenext
wend%>
</table></td>
</tr>
<%end if
snsn.close
set snsn=nothing%>
</table>
<%
end sub
sub sqvip()
if session("username")="" or session("reglx")=2 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 >
<br> <table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td>
<%set rs=server.createobject("adodb.recordset")
rs.open "select vipsq from shop_config ",conn,1,1
response.write rs("vipsq")
rs.close
set rs=nothing
%>
</td>
</tr>
</table>
<br></td>
</tr>
<tr>
<td height=22 bgcolor=#FFFFFF > </td>
</tr>
<tr>
<td height=28 bgcolor=#FFFFFF align=center >
<%set rs=server.createobject("adodb.recordset")
rs.open "select vipid from shop_vipcount ",conn,1,1
vipid=rs("vipid")
rs.close
%>
<%
set snsn=server.CreateObject("adodb.recordset")
snsn.open "select jifen from [shop_user] where username='"&checkFFSQLStr(session("username"))&"' ",conn,1,1
ky_jifen=snsn("jifen")
snsn.close
set snsn=nothing%><table width="95%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<%if session("reglx")=2 then%>
你已经是本站VIP会员
<%else%>
您当前积分为：<%=ky_jifen%> 申请VIP所需要积分为：<%=vipid%> </td>
</tr><tr>
<td height="1" background="images/xian_001.gif"></td>
</tr>
<tr>
<td>
<%if ky_jifen<vipid then%>
您的积分不够，暂时不能申请成为VIP会员
<%else%>
<a href="?action=vipsq">立即申请VIP会员</a>
<%end if%>
</td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -