ASP数字分页代码-fucuihong-ChinaUnix博客

keywords=request(keywords)
keywords=replace(keywords,"'","")
keywords=replace(keywords,"%20","")
keywords=replace(keywords,"and","")
keywords=replace(keywords,"or","")
keywords=replace(keywords," ","")
keywords=replace(keywords,"select","")
keywords=replace(keywords,"update","")
keywords=replace(keywords,"delete","")
keywords=keywords
End Function
response.write"keywords"
%>
<%
'**************
'分页导航栏函数
'输出wzpage值
'**************
Function pagination(pagecount)
   Dim wzpage,wzpagecount,pagenum,boardid
   boardid = Request.QueryString("board_id")
   If boardid = 0 Then boardid = 1
       If Len(Request.QueryString("page"))<>0 Then
          wzpage = clng(Request.QueryString("page"))
         Else
          wzpage =1
       End If
       If wzpage <= 0 Then wzpage =1
       pagenum = (wzpage \ 10)*10+1
       If wzpage mod 10 = 0 Then pagenum = (wzpage \ 10)*10-9
       If wzpage > 10 Then
         Response.Write ("")
            Response.Write ("9")
   Response.Write ("7")
            Response.Write ("")
    End If
       For pagenum = pagenum To pagenum + 9
           If pagenum = wzpage Then
                  Response.Write ("")
                  Response.Write (" ["& pagenum &"] ")
                  Response.Write ("")
        Else
                  Response.Write (" ")
                  Response.Write ("["& pagenum &"]")
                  Response.Write (" ")
   End If
         If pagenum >= pagecount Then Exit For
       Next
     If wzpage < (pagecount - (pagecount \ 10)) Then
         Response.Write ("")
            Response.Write ("8")
   Response.Write (":")
            Response.Write ("")
   End If
End Function
%>

<%
dim getstring, sq
getstring = clng(request.querystring("board_id"))
if getstring = 0 then getstring = 1

'******************************************
'取文章总数及每页重复显示条数，准备分页
'wzcount 文章总数
'wzrep 重复显示条数
'wzpage 分页参数id
'wzpagecount 总页数
'******************************************
dim wzcount,wzrep,wzpage,wzpagecount,wzpagerep,boardstr
wzrep = 2
'rssql = "select count(id) from `table1`"
'rs.open rssql,conn,0,1,&h0001
if request("cord")=1 then
sq="select count(id) from lyb where name like '%"&request("keywords")&"%'"
elseif request("cord")=2 then sq="select count(id) from lyb where ln like '%"&request("keywords")&"%'"
end if
wzcount = conn.execute (sq,0,1)(0)
'rs.close
wzpagecount = abs(int(-abs(wzcount/wzrep)))
wzpage = clng(request.querystring("page"))
if len(wzpage) = 0 or wzpage = 0 then wzpage = 1
%>

search

<% dim sql
set rs=server.CreateObject("adodb.recordset")
'取文章列表
if request("cord")=1 then
sql="select * from lyb where name like '%"&trim(request("keywords"))&"%' order by time desc"
elseif request("cord")=2 then sql="select * from lyb where ln like '%"&trim(request("keywords"))&"%' order by time desc"
end if
rs.open sql,conn,1,1,&h0001
'显示文章标题列表
if rs.eof and rs.bof then%>

没有找到相关的信息!

<% else
rs.absoluteposition=rs.absoluteposition+((abs(wzpage)-1)*wzrep)
'根据分页参数获取当前页面纪录
dim i
for i = 0 to wzrep-1
if rs.eof then exit for
%>
<% if not rs.eof then%>

<%=rs("name")%>

<%
rs.movenext
end if
next
end if
%>

共<%= wzcount%>条 <%= wzrep%>/页共<%= wzpagecount%>页
<%= pagination(wzpagecount)%>

<%end if%>

阅读(113406) | 评论(2) | 转发(0) |

上一篇：程序人生成长发展中的一些感悟

下一篇：打开记事本、画图、计算器等的快捷方式

给主人留下些什么吧！~~

chinaunix网友2009-07-23 17:59:02

11111111111111111111111111111111111111111111111111111