翻页代码 -- Welcome to my Material Space!

[『网页特效代码*综合类*』]翻页代码

摩羯天使发布于 2006-09-09 00:56

Tags: 素材

<%
      set rs=server.CreateObject("adodb.recordset")
      if request("action")="search" then
      sql="select * from [Clf_Article] where title='"&keyword&"' order by id desc"
      else
      sql="select * from [Clf_Article] order by id desc"
      end if
      rs.open sql,conn,1,1
      if rs.recordcount=0 then
%>
<table width="100%" border="0" cellspacing="0" cellpadding="5" align="center">
<tr>
<td align=center>暂无新闻</td>
</tr>
</table>
<%
    else
       rs.PageSize =2 '每页记录条数
      iCount=rs.RecordCount '记录总数
      iPageSize=rs.PageSize
    maxpage=rs.PageCount
    page=request("page")
       if Not IsNumeric(page) or page="" then
       page=1
       else
      page=cint(page)
      end if
      if page<1 then
      page=1
      elseif page>maxpage then
      page=maxpage
      end if
      rs.AbsolutePage=Page
        if page=maxpage then
          x=iCount-(maxpage-1)*iPageSize
        else
          x=iPageSize
        end if
  %>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <%
            response.write(temp)
          %>
       <%
      For i=1 To x
        %>
           <tr onMouseOver="this.style.backgroundColor='#F8F8F8'"
onmouseout="this.style.backgroundColor=''">
<td width="12%" height="24" align="center"><%=rs("id")%></td>
<td width="59%" height="22" valign="middle"><a href="view.asp?id=<%=rs("id")%>"><%=rs("title")%></a></td>
<td width="21%" align="center"><%=rs("datetime")%></td>
<td width="8%" align="center"><font color=#F77F20><%=rs("hits")%></font></td>
</tr>
<%
      rs.movenext
     next
        %>
<tr>
<td height="2" colspan="4" align="center" background="images/dot.gif"></td>
</tr>
</table>
          </td>
</tr>
<tr>
<td valign="top">
          </td>
</tr>
</table></td>
</tr>
<tr>
<td height="41" align="center" background="images/list_13.jpg">
<%
    call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
    end if
    rs.close
    set rs=nothing
Sub PageControl(iCount,pagecount,page,table_style,font_style)
'生成上一页下一页链接
Dim query, a, x, temp
action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")

query = Split(Request.ServerVariables("QUERY_STRING"), "&")
For Each x In query
a = Split(x, "=")
If StrComp(a(0), "page", vbTextCompare) <> 0 Then
temp = temp & a(0) & "=" & a(1) & "&"
End If
Next

Response.Write("<table width=100% border=0 cellpadding=0 cellspacing=0 >" & vbCrLf )
Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR>" & vbCrLf )
Response.Write("<TD align=center height=35>" & vbCrLf )
Response.Write(font_style & vbCrLf )

if page<=1 then
Response.Write ("首页 " & vbCrLf)
Response.Write ("上页 " & vbCrLf)
else
Response.Write("<A HREF=" & action & "?" & temp & "Page=1>首页</A> " & vbCrLf)
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">上页</A> " & vbCrLf)
end if

if page>=pagecount then
Response.Write ("下页 " & vbCrLf)
Response.Write ("尾页 " & vbCrLf)
else
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">下页</A> " & vbCrLf)
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & pagecount & ">尾页</A> " & vbCrLf)
end if

Response.Write(" 页次：" & page & "/" & pageCount & "页" & vbCrLf)
Response.Write(" 共有" & iCount & "条新闻" & vbCrLf)
Response.Write(" 转到" & "<INPUT TYEP=TEXT CLASS=wenbenkuang NAME=page SIZE=2 Maxlength=5 VALUE=" & page & ">" & "页" & vbCrLf & "<INPUT CLASS=go-wenbenkuang type=submit value=GO>")
Response.Write("</TD>" & vbCrLf )
Response.Write("</TR></form>" & vbCrLf )
Response.Write("</table>" & vbCrLf )
End Sub
%>



Re:翻页代码

风雨中的水手发布于 2007-07-15 16:45

孤帆远航的意境　很不错



发表评论

昵称

主页

标题

内容

算式的解
看不清校验算式？

发表评论
昵称
主页
标题
内容
算式的解	看不清校验算式？