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 width="16%" class="f12"> 
            <div align="center"><font color="#FFFFFF" size="2" class="f12">用户名</font></div>
          </td>
          <td width="13%" class="f12"> 
            <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 width="13%" class="f12"> 
            <div align="center"><font size="2" color="#FFFFFF">备注</font></div>
          </td>
          <td width="14%" class="f12"> 
            <div align="center"><font color="#FFFFFF"></font></div>
          </td>
        </tr>
        <%
  userids= session("uuser")
  if userids<>"" then
     session("vuser")=userids
  end if
  sql="select * from maccount where (userid='"&session("vuser")&"' and objects=N'帐目') order by actdate DESC"
   page=1
   page=Clng(Request("page"))  
    set connn=Server.CreateObject("ADODB.Connection")
   connn.open aconn    
  set acc=connn.execute("select account from account where userid='"&userids&"'")
   leave=acc("account")
   response.write "余款总计:"
  response.write leave
  response.write "元"
  set acclist=connn.execute("select 'account'=sum(counts) from maccount where userid='"&userids&"' and objects=N'帐目'")
  response.write "预付款总计:"
  response.write acclist("account")
  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
      num=0   
      while not rs.EOF 
        num=num+1
        rs.MoveNext 
      wend
      rs.AbsolutePage=page
     
      for i=1 to rs.pagesize
      
%>
        <tr> 
          <td width="16%" height="21"> 
            <div align="center"><font size="2"><%=rs("userid")%></font></div>
          </td>
          <td width="13%" height="21"> 
            <div align="center"><font size="2">预付款</font></div>
          </td>
          <td width="30%" height="21"> 
            <div align="center"><font size="2"><%=rs("actdate")%></font></div>
          </td>
          <td width="14%" height="21"> 
            <div align="center"> <font size="2"> <%=rs("counts")%> 元</font></div>
          </td>
          <td width="13%" height="21"> 
            <div align="center"><font size="2"><%=rs("demo")%></font></div>
          </td>
          <td width="14%" height="21"> 
            <div align="center"><font size="2"><a href="dells.asp?id=<%=rs("id")%>">删除</a></font></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>
  <a href="list.asp">返回</a></div>