📄 smallpager.asp

📁 购物系统(本版为正式商业版
💻 ASP
字号:
<!--#include file="../conn2.asp"-->
<!--#include file="set.asp"-->



<%Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM smallpaper order by id desc"
rs.open sql, conn, 1, 3
%>

<head>
<LINK 
href="css.css" type=text/css rel=stylesheet>


<style type="text/css">
<!--
.style1 {color: #000000}
-->
</style>
</head>

<body topmargin="2" leftmargin="2">
<br>
<div align="center">
  <center>
    <table width="90%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolordark="#FFFFFF" bgcolor="#CCCCCC">
      <tr bgcolor="f1f1f1"> 
        <td height="25" colspan="3" align="center" class="norightbuttonborder2"><span class="style1">社区短信小字报管理</span></td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td width="37%" height="25" align="center">标题</td>
        <td width="51%" height="25" align="center">内容</td>
        <td width="12%" height="25" align="center"><b>删除</b></td>
      </tr>
      <% 
shownum=10 
totalrecord=rs.recordcount 
rs.pagesize=shownum 
maxpage=rs.pagecount 
 
requestpage=clng(request.querystring("page")) 
 
if requestpage="" or requestpage=0 then 
   requestpage=1 
end if 
if resquestpage>maxpage then 
    resquestpage=maxpage 
end if 
 
if not requestpage=1 then 
rs.move (requestpage-1)*rs.pagesize 
end if 
for i=1 to rs.pagesize and not rs.bof%>
      <tr bgcolor="#FFFFFF"> 
        <td width="37%" height="25"> 
        <p align="center"><%=rs("title")%> </td>
        <td width="51%" height="25"> 
        <p align="center"><%=left(rs("body"),30)%>... </td>
        <td width="12%" height="25"> 
        <p align="center"><a href="del_smallpager.asp?id=<%=rs("id")%>" class="C_shenhong"><strong>删除</strong></a></p></td>
      </tr>
      <% 
rs.movenext 
if rs.eof then exit for 
next 
%>
    </table>
  </center>
</div>

<center>
<% 
if requestpage-1 mod 10=0 then 
 p=(requestpage-1) \ 10 
else 
 p=(requestpage-1) \ 10 
end if 
if requestpage=1 then 
 response.write "<font face=webdings color=""#FF0000"">9</font>" 
else 
 response.write "<a href=?page=1 title=首页><font face=webdings>9</font></a>" 
end if 
if p*10>0 then response.write "<a href=?page="&p*10&" title=上十页><font face=webdings>7</font></a>" 
response.write "<b>" 
for ii=p*10+1 to P*10+10 
   if ii=requestpage then 
  response.write "<font color=""#FF0000"">"&ii&"</font> " 
 else 
  response.write "<a href=?page="&ii&">"&ii&"</a>   " 
 end if 
 if ii=maxpage then exit for 
next 
response.write "</b>" 
if ii<maxpage then response.write "<a href=?page="&ii&" title=下十页><font face=webdings>8</font></a>" 
if requestpage=maxpage then 
 response.write "<font face=webdings color=""#FF0000"">:</font>   " 
else 
 response.write "<a href=?"&maxpage&" title=尾页><font face=webdings>:</font></a>" 
end if 
response.write"    总共有"&maxpage&"页   共"&totalrecord&"条信息"  

%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -