📄 fundbrs.asp
字号:
<!--#include file ="../profile/checkuser.asp"-->
<HTML>
<HEAD>
<TITLE>交易信息</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<STYLE type=text/css>TD {
FONT-SIZE: 9pt; FONT-FAMILY: "宋体"
}
.e_8 {
FONT-SIZE: 8pt; FONT-FAMILY: "Verdana"
}
.select {
COLOR: #000000; BACKGROUND-COLOR: #ffffcc
}
.input {
BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; BORDER-LEFT: #000000 1px solid; COLOR: #ff0000; BORDER-BOTTOM: #000000 1px solid; BACKGROUND-COLOR: #ffffff
}
.x18 {
LINE-HEIGHT: 18pt
}
</STYLE>
<script language="javascript" src="calender.js"></script>
<META content="MSHTML 6.00.2600.0" name=GENERATOR>
</HEAD>
<BODY text=#000000 vLink=#cc0000 aLink=#990099 link=#0066ff bgColor=#ffffff leftMargin=0 topMargin=0>
<TABLE cellSpacing=0 cellPadding=1 width=640 align=center bgColor=#000000
border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 bgColor=#ffffff border=0>
<TBODY>
<TR bgColor=#ffb41d>
<TD colSpan=3 height=12>
<div align="center"><img src="../images/enuologo.gif" width="468" height="60"></div>
</TD>
</TR>
<TR>
<TD colSpan=3><IMG height=1
src="../images/paycenter_02.gif"
width=640></TD>
</TR>
<TR>
<TD vAlign=top bgColor=#ffffff height=406><IMG height=35
src="../images/paycenter_03.gif" width=475>
<TABLE cellSpacing=0 cellPadding=8 width=400 align=center
border=0 height="488">
<TBODY>
<TR>
<TD><IMG height=21
src="../images/paycenter-bar_02.gif"
width=400></TD>
</TR>
<TR>
<TD valign="top">
<TABLE cellSpacing=0 cellPadding=1 width="100%" align=center
bgColor=#993300 border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=1 cellPadding=3 width="100%" border=0>
<TBODY>
<TR>
<TD>
<%
Set Con=Server.CreateObject("ADODB.Connection")
Con.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../database/yino.mdb")
set rs=server.createobject("adodb.recordset")
sql="select * from main where username='"&user&"'"
rs.open sql,Con,1,1
usedmoney=rs("usedmoney")
totalmoney=rs("totalmoney")
rs.close
Con.close
dim pgIndex,pgNum,dealnum
if request("pageIndex")<>"" then
pgIndex=request("pageIndex")
else
pgIndex=1
end if
Set Con=Server.CreateObject("ADODB.Connection")
Con.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../database/yino.mdb")
set rs=server.createobject("adodb.recordset")
sql="select * from deal where dealobj='"&user&"' and isdispose=1"
rs.open sql,Con,1,1
dealnum=rs.recordcount
pgnum=dealnum\5+1
%>
<P><B><FONT color=#ffffff>资金明细查询</FONT></B></P>
</TD>
<TD colSpan=4 align="right"><font color="#FFFFFF">目前第<%=pgIndex%>页 共<%=pgNum%>页 <%=dealnum%>条业务纪录</font></TD>
</TR>
<TR>
<TD width="28%" bgColor=#ffffff>
<P align=right>代理ID号：</P>
</TD>
<TD bgColor=#ffffff width="13%"> <%=user%></TD>
<TD bgColor=#ffffff
colSpan=3 align="right">剩余资金：<%=totalmoney-usedmoney%>元</TD>
</TR>
<TR>
<TD bgColor=#ffffff colSpan=5>
<TABLE width="100%" border=0>
<TBODY>
<TR>
<TD align=left width="50%">交费列表：</TD>
<!--TD align=right width="50%">总计：<%=usedmoney%>元</TD-->
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
<TR>
<TD width="28%" bgColor=#ffffff>
<P align=center>日期</P>
</TD>
<TD width="13%" bgColor=#ffffff>
<P align=center>金额</P>
</TD>
<TD width="26%" bgColor=#ffffff>
<P align=center>交易种类</P>
</TD>
<TD width="16%" bgColor=#ffffff>
<P align=center> </P>
</TD>
<TD width="17%" bgColor=#ffffff align="center">状态</TD>
</TR>
<%
count=0
do while not rs.eof
count=count+1
if count>(pgIndex-1)*5 and count<=pgIndex*5 then
%>
<TR>
<TD width="28%" bgColor=#ffffff>
<P align=center><%=year(rs("dealdate"))%>年<%=month(rs("dealdate"))%>月<%=day(rs("dealdate"))%>日</P>
</TD>
<TD width="13%" bgColor=#ffffff>
<P align=right><%=rs("dealworth")%>元</P>
</TD>
<TD width="26%" bgColor=#ffffff>
<P align=center><%=rs("dealtype")%></P>
</TD>
<TD width="16%" bgColor=#ffffff>
<P align=center><a href="../manage/seeoper.asp?id=<%=rs("id")%>">详情</a></P>
</TD>
<TD width="17%" bgColor=#ffffff align="center">
<%
isdredge=rs("isdredge")
if isdredge=1 then
%>
开通
<%
else
%>
禁用
<%
end if
%>
</TD>
</TR>
<%
rs.movenext
else if count<=(pgIndex-1)*5 then
rs.movenext
else
exit do
end if
end if
loop
rs.close
Con.close
%>
<TR>
<TD colspan="5">
<table width="100%" border="0" cellspacing="0" cellpaddi="0">
<tr>
<td height="20" align="right" class="td_stytle">
<%
pagelist=request("pagelist")
if pagelist="" then
pagelist=0
else
pagelist=pagelist
end if
dim gotopage
gotopage=pagelist*14
if pagelist>0 then
%>
<a href="fundbrs.asp?pagelist=<%=pagelist-1%>&pageIndex=<%=pgIndex%>"><font color=white>上一页</font></a>
<%
end if
do while gotopage<pgNum
gotopage=gotopage+1
if gotopage>(pagelist+1)*14 then exit do
%>
<a href="fundbrs.asp?pagelist=<%=pagelist%>&pageIndex=<%=gotopage%>"><font color=white><%=gotopage%></font></a>
<%
loop
if pgNum>(pagelist+1)*14 then
%>
<a href="fundbrs.asp?pagelist=<%=pagelist+1%>&pageIndex=<%=pgIndex%>"><font color=white>更多</font></a>
<%
end if
%>
</td>
</tr>
</table>
</TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=1 cellPadding=3 width="100%" border=0>
<TBODY>
<TR bgcolor="#FFFFFF">
<TD colSpan=4 height="20"><b></b></TD>
</TR>
<TR>
<TD colSpan=4 height="20"><b><font color="#FFFFFF">会员汇款纪录</font></b></TD>
</TR>
<TR>
<TD width="24%" bgColor=#ffffff align="center"> 代理ID号
</TD>
<TD bgColor=#ffffff width="25%" align="center">预付款数额</TD>
<TD bgColor=#ffffff align="center" width="28%">支票号</TD>
<TD bgColor=#ffffff align="center" width="23%">处理日期</TD>
</TR>
<%
Set Con=Server.CreateObject("ADODB.Connection")
Con.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../database/yino.mdb")
set rs=server.createobject("adodb.recordset")
sql="select * from main where username='"&user&"'"
rs.open sql,Con,1,1
if rs.eof and rs.bof then
response.redirect "../profile/errorpage.asp?id=unknow"
else
userID=rs("ID")
rs.close
end if
sql="select * from premoney where userID=" & userID & " order by adddate DESC"
rs.open sql,Con,1,1
do while not rs.eof
%>
<TR>
<TD width="24%" bgColor=#ffffff align="center"> <%=user%>
</TD>
<TD bgColor=#ffffff width="25%" align="center"><%=rs("prevalue")%>元</TD>
<TD bgColor=#ffffff align="center" width="28%"> <%=rs("cheque")%></TD>
<TD bgColor=#ffffff align="center" width="23%"><%=year(rs("adddate"))%>年<%=month(rs("adddate"))%>月<%=day(rs("adddate"))%>日</TD>
</TR>
<%
rs.movenext
loop
rs.close
Con.close
%>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="41">
<tr>
<td align="center">
<input type="button" name="bt2" value="返回" onclick=window.open("../main.asp","_self")>
</td>
</tr>
</table>
</TD>
</TR>
</TBODY>
</TABLE>
</TD>
<TD width=1 bgColor=#000000 rowSpan=2><IMG height=407
src="../images/paycenter_04.gif" width=1></TD>
<TD vAlign=top align=middle width=164 bgColor=#ffb41d rowSpan=2>
<P><IMG height=7
src="../images/paycenter_05_01.gif"
width=164></P>
<table border="1" cellpadding="0" cellspacing="0" width="100%" bordercolordark="#CCCCCC" bordercolorlight="#000000" height="235">
<tr>
<td width="236" class="font" height="27" bgcolor="#FFFFCC"> <img border="0" src="../images/hand.gif" width="20" height="15"><img border="0" src="../images/link1.jpg" width="88" height="21"></td>
</tr>
<tr>
<td class="font" height="204" width="236"> <span style="background-color: #FF0000"><font color="#FFFFCC">总部电话：</font></span><br>
010-68133624(3线)<br>
<span style="background-color: #FF0000"><font color="#FFFFCC">总部传真：</font></span><br>
010-68253386<br>
<span style="background-color: #FF0000"><font color="#FFFFCC">昼夜值班：</font></span><br>
13911056652<br>
<span style="background-color: #0000FF"><font color="#FFFFFF">业务部：</font></span><br>
<a href="mailto:info@e-icann.com?subject=来自网站的反馈">info@e-icann.com</a><br>
<span style="background-color: #0000FF"><font color="#FFFFFF">技术部：</font></span><br>
<a href="mailto:master@e-icann.com?subject=来自网站的技术咨询">master@e-icann.com</a><br>
<span style="background-color: #0000FF"><font color="#FFFFFF">客户投诉：</font></span><br>
<a href="mailto:gao@e-icann.com?subject=来自网站的投诉">gao@e-icann.com</a>
</td>
</tr>
</table>
</TD>
</TR>
<TR>
<TD colSpan=3 height=1><IMG height=1
src="../images/paycenter_07.gif"
width=640></TD>
</TR>
<TR>
<TD><IMG height=18
src="../images/paycenter_08.gif"
width=475></TD>
<TD width=1><IMG height=18
src="../images/paycenter_09.gif" width=1></TD>
<TD><IMG height=18
src="../images/paycenter_10.gif"
width=164></TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -