agentlist.asp

ASP的网上商城在线支付系统

<%@LANGUAGE="VBSCRIPT"%> 

<% 

Response.Buffer = True 

Response.ExpiresAbsolute = Now() - 1 

Response.Expires = 0 

Response.CacheControl = "no-cache" 

%>

<table width="100%" border="1" cellspacing="0" cellpadding="3" bordercolor="#CCCCCC">
  <tr> 
    <td bgcolor="#5a6f74"> 
      <div align="center" class="f14"> 
        <table width="100%" border="0" cellspacing="0" cellpadding="1" height="5">
          <tr> 
            <td><img src="../images/1pc2.gif" width="1" height="1"></td>
          </tr>
        </table>
        <div align="left"><span class="f12">&nbsp;&nbsp;&nbsp;&nbsp;</span></div>
      </div>
    </td>
  </tr>
  <tr> 
    <td class="f12neo"> 
      <table width="100%" border="0" align="center">
        <tr bgcolor="#5a6f74"> 
          <td class="f12"> 
            <div align="center"></div>
            <div align="center"><font size="2" color="#FFFFFF" class="f12">项目</font></div>
          </td>
          <td width="30%" class="f12"> 
            <div align="center"><font color="#FFFFFF" size="2" class="f12">提交时间</font></div>
          </td>
          <td width="14%" class="f12"> 
            <div align="center"><font size="2" color="#FFFFFF" class="f12">金额</font></div>
          </td>
          <td class="f12"> 
            <div align="center"><font size="2" color="#FFFFFF">备注</font></div>
            <div align="center"><font color="#FFFFFF"></font></div>
          </td>
        </tr>
        <%
 dbname="dsn=admin;uid=;pwd=;"
  userids=session("uid")


  if userids<>"" then
     session("vuser")=userids
  end if
  sql="select * from account where ucode='"&session("vuser")&"' order by id DESC"

   page=1
   page=Clng(Request("page"))  
    set connn=Server.CreateObject("ADODB.Connection")
   connn.open dbname  

  set acc=connn.execute("select sum(account) as tot from account where ucode='"&session("vuser")&"'")
   leave=acc("tot")
   response.write "总计:"
  response.write leave
  response.write "元"
  set rs=Server.CreateObject("ADODB.Recordset")
  rs.Open sql,connn,3,1
 
    if rs.EOF then 
         Response.write"<center><font size='2' color='#000000'>无资料:</font></center><br>"
         
    else
     
      rs.PageSize=10
      If page < 1 Then page = 1
      If page >rs.PageCount Then page = rs.PageCount
      
      rs.AbsolutePage=page
     
      for i=1 to rs.pagesize
      
%>
        <tr> 
          <td height="7"> 
            <div align="center"></div>
            <div align="center"><font size="2">预付款</font></div>
          </td>
          <td width="30%" height="7"> 
            <div align="center"><font size="2"><%=rs("times")%></font></div>
          </td>
          <td width="14%" height="7"> 
            <div align="center"> <font size="2"> <%=rs("account")%> 元</font></div>
          </td>
          <td height="7"> 
            <div align="center"><font size="2"><%=rs("memo")%></font></div>
            <div align="center"></div>
          </td>
        </tr>
        <div align="center"> </div>
        <div align="center"><font size="2"> 
          <%
      
       
        rs.movenext
           
          if rs.EOF then  exit For
      next
   
      Response.write"<br><form name=form1   type=post><font size='2'>" 
      if rs.PageCount>1 then
         If Page <> 1 Then
            Response.Write "<A HREF=agentlist.asp?Page=1><font color='#000000'>第一页</font></A>  "
            Response.Write "<A HREF=agentlist.asp?Page="&(Page-1)&"><font color='#000000'>上一页</font></A>  " 
         End If
         If Page <> rs.PageCount Then
            Response.Write "<A HREF=agentlist.asp?Page="&(page+1)&"><font color='#000000'>下一页</font></A>  "
            Response.Write "<A HREF=agentlist.asp?Page="&rs.PageCount&" ><font color='#000000'>最后一页</font></A> "   
         End If
         Response.write"<font color='#000000'>输入页数:<input type='text' size='3' name='page'>"&_
             "页数："&Page&"/"&rs.PageCount&"</font></font>"
     end if
   Response.write"</font></form>" 
  
end if
    %>
          </font> </div>
        <div align="center"></div>
      </table>
    </td>
  </tr>
</table>
<div align="center"><br>
</div>