rlist.asp

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

<%@LANGUAGE="VBSCRIPT"%> 

<% 

Response.Buffer = True 

Response.ExpiresAbsolute = Now() - 1 

Response.Expires = 0 

Response.CacheControl = "no-cache" 

%>
<div align="center"><a href="manager.asp"><b><font size="2" color="#000000">返回</font></b></a><br>
</div>
<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="18%" class="f12"> 
            <div align="center"></div>
            <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="39%" class="f12"> 
            <div align="center"><font size="2" color="#FFFFFF">备注</font></div>
          </td>
          <td width="16%" class="f12"> 
            <div align="center"><font size="2" color="#FFFFFF">操作</font></div>
          </td>
        </tr>
        <%
 dbname="dsn=admin;uid=;pwd=;"
   id=request("id")
   response.write id
   company=trim(request("company"))
    if  id<>"" and company<>"" then
	 sql="select * from info where  (ucode='"&id&"' and userid='"&session("ucode")&"') and memo like '"&company&"%'  order by id desc"
	 else
	  if id="" then
	  sql="select * from info where  userid='"&session("ucode")&"' and memo like '%"&company&"%'  order by id desc"
	  else 
	  sql="select * from info where  ucode='"&id&"' and userid='"&session("ucode")&"'  order by id desc"
	  end if
	  end if
   page=1
   page=Clng(Request("page"))  
    set connn=Server.CreateObject("ADODB.Connection")
   connn.open dbname  
  
  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 width="18%" height="21"> 
            <div align="center"></div>
            <div align="center"><font size="2"><%=rs("times")%></font></div>
          </td>
          <td width="13%" height="21"> 
            <div align="center"> <font size="2"> <%=rs("account")%> </font></div>
          </td>
          <td height="21"> 
            <div align="center"><font size="2"><%=rs("memo")%></font></div>
          </td>
          <td height="21"> 
            <div align="center"><font size="2" color="#000000"><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>
</div>