viewmoney.asp

一对一校友录多班级而且非常漂亮http://free.cnyys.com/my/yhe/DEFAULT.ASP

<!--#include file="head.asp"-->
<style type="text/css">
<!--
.样式1 {color: #FFFFFF}
-->
</style>

<TABLE style="BORDER-RIGHT: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid" 
cellSpacing=0 cellPadding=0 width=778 align=center bgColor=#ffffff>
  <TBODY>
  <TR vAlign=top>
    <TD>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" align=center 
      bgColor=#ffffff border=0>
        <TBODY>
        <TR>
          <TD height=8 bgColor=#f4f4f4></TD></TR>
          <TD>
 <TABLE id=AutoNumber3 style="BORDER-COLLAPSE: collapse" 
            cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                <TD height=26 vAlign=top bgcolor="#E7EFDE">
                  <TABLE id=AutoNumber5 style="BORDER-COLLAPSE: collapse" 
                  borderColor=#111111 cellSpacing=0 cellPadding=3 width="100%" 
                  border=0>
                    <TBODY>
                    <TR>
                      <TD class=6 width=495 background=image/type_bg.gif 
                      height=30><IMG height=12 src="image/type01.gif" width=12 
                        align=absMiddle> <a href="index.asp">网站首页</a> - <span style="color: #FF6699">交易列表</span></TD>
                      <TD width=100 background=image/type_bg.gif>
                        <DIV align=center><IMG 
                       src="image/more.gif" 
                    border=0></DIV></TD></TR>
                    </TBODY>
                  </TABLE></TD>
              </TR>
              <TR>
                <TD vAlign=top height=26><table width="100%"  border="0">
                  <tr bgcolor="#0099FF">
                    <td width="21%" background="image/b.gif"><div align="center" class="样式1" style="color: #CC3300">赠送者</div></td>
                    <td width="22%" background="image/b.gif"><div align="center" class="样式1" style="color: #CC3300">接受者</div></td>
                    <td width="15%" background="image/b.gif"><div align="center" class="样式1" style="color: #CC3300">金额</div></td>
                    <td width="42%" background="image/b.gif"><div align="center" class="样式1" style="color: #CC3300">交易日期</div></td>
                  </tr>
				  <%dim rs,sql,tt,rr,cur,rowcount
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from mo order by date desc"
cur=request.form("cur")
if cur="" then
cur=1
end if
rs.pagesize=20
rs.open sql,conn,1,1
if rs.eof then
response.write "<tr> <td>还没有交易</td></tr>"
else
rs.absolutepage=cint(cur)
rowcount=0
	do While not rs.eof and rowcount<rs.pagesize
set rt=Server.CreateObject("Adodb.Recordset")
set re=Server.CreateObject("Adodb.Recordset")
rt.open "select name from user where username='"&rs("sender")&"'",conn,1,1
re.open "select name from user where username='"&rs("accept")&"'",conn,1,1%>                                
 <tr>
                    <td><div align="center"><%=rt("name")%></div></td>
                    <td><div align="center"><%=re("name")%></div></td>
                    <td><div align="center"><%=rs("money")%></div></td>
                    <td><div align="center"><%=rs("date")%></div></td>
                  </tr>                              
				<%rowcount=rowcount+1
				Rs.movenext
	loop

end if%>         
                  <tr>
                    <td colspan="4">&nbsp;</td>
                    </tr>
                </table><table width="98%"  border="0">
  <tr><form name="form2" method="post" action=""><TD align=left background="image/b.gif" bgcolor="#009AFF"><span class="style2 样式1"><span style="color: #CC3300">共<%=rs.recordcount%>条　 分<%=rs.pagecount%>页</span><span style="color: #CC3300">　　每页显示20条　当前页次：</span><%=cur%>/<%=rs.pagecount%>　　　　　　　　　　　　　　　　　<span style="color: #CC0000">    转到: 
                      <select name="cur" size="1" onchange="javascript:submit()">
    <%for i = 1 to rs.pagecount%>              
      <option value="<%=i%>" <%if i=cint(cur) then%> selected <%end if%>>第<%=i%>页 </option>   
      <%next%>   
                      </select>
                      <%
  rs.close
	 set rs=nothing%>
    </span></span></td>
  </form>
  </tr>
</table>
                  </TD>
              </TR>
              </TBODY>
 </TABLE></TD></TR></TABLE></TD></TR></TBODY></TABLE>
<!--#include file="bottom.asp"--></BODY></HTML>