单页图文分页代码

 

Sub GetContent(Content,Num)
 
 Content=replace(Content,"'","")
 rs.open "Select * From content where c_name='"&Content&"'",conn,1,1
 if not rs.eof then
  if num>0 then
   temp=rs("c_content")
   If isnull(temp) then temp=""
   response.write(left(replace(temp,"[PageBreak]",""),Num))
  else
   temp=rs("c_content")
   if instr(temp,"[PageBreak]")>0 then
    if request("page")="" then 
     page=1
    else
     page=clng(request("page"))
    end if
    temp=split(temp,"[PageBreak]")
    response.write(temp(page-1))
    strnext="<a href='?"&FilterUrl&"&Page="&page+1&"'>下一页</a>"
    strprev="<a href='?"&FilterUrl&"&Page="&page-1&"'>上一页</a>"
    response.Write("<div align=center>")
    if page=1 then
     response.Write(strnext)
    elseif page=ubound(temp)+1 then
     response.Write(strprev)
    else
     response.Write(strprev)
     response.Write("&nbsp;&nbsp;")
     response.Write(strnext)
    end if
    response.Write("</div>")
   else
    response.Write(rs("c_content"))
   end if
  end if
 end if
 rs.close
End Sub
Function FilterUrl
 dim q
 q=request.QueryString
 Set re = New RegExp
 re.Pattern = "page=[^&]*"
 re.Global = True
 re.IgnoreCase = True
 re.MultiLine = True
 q=re.replace(q,"")
 q=replace(q,"?&","?")      '去掉第一个＆
 if right(q,1)="&" then q=left(q,len(q)-1) '去掉最后一个＆
 FilterUrl=q
End Function