bbrpayrecord.asp

. 缓存处理技术

<!-- #include file="top_cnbbr.asp" -->
<!-- #include file="chksession.asp" -->
<!--#include file="inc/mypage.asp"-->
<!--#include file="inc/jumpmenu.asp"-->
<!--#include file="inc/SelectAll.asp"-->
<!--#include file="inc/DelConfirm.asp"-->

<!--#include file="Cnbbr_UserCenter_Left.asp" -->
<%
Dim Cur_UserName
Cur_UserName=Request.Cookies(Super_user)("uName")

  sql="select * from users where regid="& Request.Cookies(super_user)("uid")
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,1,1
  CnbbrConnTimes
  if Rs.Eof then Call AlertInfo("出错了，用户不存在或者还没有登陆！","index.asp",1)

Response.Write CNbbr_Head
     With Response
	.Write "<table width="""& Sys_BodyCenterWidth &""" border=""0"" cellspacing=""0"" cellpadding=""0""  align=""center"" class=""td"">" & Vbcrlf
	.Write "  <tr>" & Vbcrlf
	.Write "   <td width=""150"" align=""left"" valign=""top"" class=td>" & Vbcrlf
	 Disp_CnbbrCenterLeft
	.Write "   </td>" & Vbcrlf
	.Write "   <td align=""left"" valign=""top"" class=td>" & Vbcrlf

	Dim SiteMenu_Width,SiteMenu_Left,SiteMenu_Right
	SiteMenu_Width="98%"
	SiteMenu_Left="BBRhome.asp|[menu]|个人面板||[menu]||BBRpayRecord.asp|[menu]|查看个人充值记录"
	SiteMenu_Right=""
	Response.Write CnbbrSiteMenu(SiteMenu_Width,SiteMenu_Left,SiteMenu_Right)

	Dim rsm,NewMsg
	set rsm=server.createobject("adodb.recordset")
	sql="select msg.msgid,msg.content,msg.reply,msg.writerid,auctions.aucid as aucid2,auctions.aucitemtitle from msg left join auctions on auctions.aucid = msg.aucid where ownerid="&rs("regid")&" and msgstatus=0"
	rsm.open sql,conn,1,1
	CnbbrConnTimes
	if RsM.Eof then
	   NewMsg=0
	else
	   NewMsg=Rsm.RecordCount
	End if
	rsm.close
	set rsm=nothing

%>


<table cellpadding=0 cellspacing=1 width=98% border=0 align=center class=tablebg>
<form action=del.asp name=payform method=post>
<tr class=titletd>
<td width=100% align=center colspan=7><b>用户 <%=Cur_UserName%> 在线支付订单查询</b></td>
</tr>
<tr class=td>
<td width=100% align=right colspan=7>
<select name=sqlkey OnChange="jumpmenu('payform','sqlkey','_self')">
<option value="">选择显示选项</option>
<option value="<%=request.ServerVariables("HTTP_PATHINFO")%>?sqlkey=OnlyPayed">只显示已支付订单</option>
<option value="<%=request.ServerVariables("HTTP_PATHINFO")%>?sqlkey=OnlyNoPayed">只显示未支付订单</option>
<option value="<%=request.ServerVariables("HTTP_PATHINFO")%>?sqlkey=all">显示全部用户订单</option>
</select>
<!--
&nbsp;&nbsp;<b>全部删除</b> <input type=CheckBox name=allbox value="Check All" OnClick="CheckAll('payform'); DelConfirm('payform',this);""> &nbsp;
 -->
</td>
</tr>
<%
if request("sqlkey")="OnlyPayed" then
   sql="select * from cnbbrpay where cnbbrStatus=1 and cnbbrfromname='"& Cur_UserName &"' order by cnbbraddtime desc"
elseif request("sqlkey")="OnlyNoPayed" then
   sql="select * from cnbbrpay where cnbbrStatus=0 and cnbbrfromname='"& Cur_UserName &"' order by cnbbraddtime desc"
else
   sql="select * from cnbbrpay where cnbbrfromname='"& Cur_UserName &"' order by cnbbraddtime desc"
end if
Dim MP,RsPayRecord
set MP= New mypage
set RsPayRecord = MP.Execute(Sql,conn,jsPerPage)
CnbbrConnTimes
if RsPayRecord.bof or RsPayRecord.eof then
   response.write"<tr class=td><td align=center colspan=7 >出错了，还没有用户的此项订单记录。</td></tr>"
else
   response.write"<tr class=Titletd>"&_
	"<td width=10% align=center>订单ID</td>"&_
	"<td width=25% align=center>订单编号</td>"&_
	"<td width=15% align=center>付款用户</td>"&_
	"<td width=10% align=center>支付状态</td>"&_
	"<td width=10% align=center>支付金额</td>"&_
	"<td width=25% align=center>订购日期</td>"&_

	"</tr>"
   do while not RsPayRecord.eof
	i=1
     	response.write"<tr class=td>"&_
		"<td width=10% align=center>"&_
		RsPayRecord("paylistid")&_
		"</td>"&_
		"<td width=25% align=center>"&_
		RsPayRecord("cnbbrid")&_
		"</td>"&_
		"<td width=15% align=center>"&_
		RsPayRecord("cnbbrfromname")&_
		"</td>"&_
		"<td width=10% align=center>"
	if RsPayRecord("cnbbrStatus")=1 then
		response.write"<font color=red>已支付</font>"
	else
	        response.write"未支付"
	end if
	response.write"</td>"&_
		"<td width=10% align=center>"&_
		FormatCurrency(RsPayRecord("cnbbrpaymoney"),2)&_
		"</td>"&_
		"<td width=25% align=center>"&_
		RsPayRecord("cnbbraddtime")&_
		"</td>"&_
		"</tr>"
   RsPayRecord.movenext
   loop
end if
response.write"<input type=hidden name=act value=pay>"
response.Write "<tr>" & Vbcrlf
Response.Write "</form>" & Vbcrlf
response.Write "<td colspan=7 width=100% align=center>"& Vbcrlf
response.Write "<table cellpadding=0 cellspacing=0 width=100% align=center border=0 class=bg_aaaaaa style=""border: 1px #dfdfdf solid;"">" & vbcrlf
response.Write "<tr class=td><td width=100% align=center>"
response.Write MP.PageDispaly()
response.Write "</td></tr>" & vbcrlf
response.Write "</table>" & vbcrlf
response.Write "</td>"& vbcrlf
response.Write "</tr>" & Vbcrlf
response.Write"</table>" & vbcrlf

RsPayRecord.close
set RsPayRecord=nothing

	.Write "    </td>" & Vbcrlf
	.Write "   </tr>" & Vbcrlf
	.Write "  </tbody>" & Vbcrlf
	.Write "</table>" & Vbcrlf
    End With

Response.Write CNbbr_Bottom 
%>