單頁圖文分頁代碼

 

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