showpage.asp

一个功能非常强大的新闻发布系统,里面的技术都是采用最新的,支持当前最流行的网站风格,是大家非常值得学习的一个网站.

 <% 
sub showpage()
page=clng(request("page"))		 
Set rs=Server.CreateObject("ADODB.RecordSet") 
if owen1<>"" and owen2 <>"" then
sql="select * from news where BigClassName='"&owen1&"' and SmallClassName='"&owen2&"' order by id desc"
rs.Open sql,conn,1,1
elseif owen1<>"" then
sql="select * from news where BigClassName='"&owen1&"' order by id desc"
rs.Open sql,conn,1,1
end if
if rs.eof and rs.bof then
response.Write("暂时没有记录")
else 
%>
<table>
           <tr> 
          <td height="2" colspan="2" bgcolor="#6699cc"> </td>
        </tr>
        <% 
rs.PageSize=20
if page=0 then page=1 
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page  
for j=1 to rs.PageSize 
%>
        <tr> 
          <td height="24" align="center" >◎</td>
          <td height="24" colspan="2" style="BORDER-bottom: #999999 1px dotted"> <% if rs("imagenum")<>"0" then response.write "<img src='images/news.gif' border=0 alt='图片新闻'>" end if %>
            <a href="onews.asp?id=<%= RS("id") %>" target="_blank"><%= RS("TITLE") %></a>　<font color="#999999">[<%= RS("infotime") %>]   
            (阅读<font color="#ff0000"><%= RS("hits") %></font>次) </font></td>
        </tr>
        <%
rs.movenext
if rs.eof then exit for
next
%>
        <tr valign="bottom"> 
            <td height="50" colspan="3" align="center" > 
          <form method=Post action="otype.asp?owen1=<%= owen1 %>&owen2=<%= owen2 %>">  
              <%if Page<2 then      
    response.write "首页 上一页&nbsp;"
  else
    response.write "<a href=otype.asp?owen1="&owen1&"&owen2="&owen2&"&page=1>首页</a>&nbsp;"
    response.write "<a href=otype.asp?owen1="&owen1&"&owen2="&owen2&"&page=" & Page-1 & ">上一页</a>&nbsp;"
  end if
  if rs.pagecount-page<1 then
    response.write "下一页 尾页"
  else
    response.write "<a href=otype.asp?owen1="&owen1&"&owen2="&owen2&"&page=" & (page+1) & ">"
    response.write "下一页</a> <a href=otype.asp?owen1="&owen1&"&owen2="&owen2&"&owen2="&owen2&"&page="&rs.pagecount&">尾页</a>"
  end if
   response.write "&nbsp;页次：<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 "
    response.write "&nbsp;共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页"
   response.write " 转到：<input type='text' name='page' size=4 maxlength=10 class=input value="&page&">"
   response.write " <input class=input type='submit'  value=' Goto '  name='cndok'></span></p>"     
%>
           </form>  </td> 
         
        </tr>
<% 
end if
rs.close
set rs=nothing
end sub
%>