你所在的位置：首页　>　网站建设技术　>　详情查看

’按标识手动分页
function manualPage(str)
pages=request.QueryString("page")
contentstr=split(str,"{$page$}")
Response.Write(ContentStr(pages))
Response.Write("

")
Response.Write("

")
end function

’按长度分页
function autoPage(str,fontnum)
if len(str)>fontnum then
if len(str) mod fontnum>0 then ’计算总页数
pagecontent=len(str)\fontnum+1
else
pagecontent=len(str)\fontnum
end if
Dim arr()
ReDim arr(pagecontent)
for m = 1 to pagecontent
if m<>pagecontent then
arr(m)= mid(str,(m*fontnum-fontnum+1),fontnum)
else
arr(m)= mid(str,(m*fontnum-fontnum+1),len(str))
end if
next
if Request.QueryString("page")<>"" then
Response.Write(arr(Request.QueryString("page")))
else
Response.Write(arr(1))
end if
Response.Write("

")
Response.Write("

")
else
Response.Write(str)
end if
end function

在页面中
                    

<% 
                     if Instr(Content,"{$page$}")=0 then ’判断是否是手工分页标志，不是就自动分页
                     call autoPage(Content,2000)
                     else
                     call manualPage(Content)
                     end if
                      %>

 

上一篇：如何防止SQL注入

下一篇：不用 url rewrite 实现asp伪静态