俺找到了！

如显示新闻内容的ASP文件都要至少收集id 的值，如果你的最终显示的新闻串的值为 s 的话 调用方法就是： <%=kellyPage(s)%> function kellyPage(str) str=replace(server.htmlencode(str),chr(13),"<br>") dim p,i,arr,returns,show,tolp,star,endstar const countbr=20 '每页显示的行数 if request.QueryString("docp")="" then p=1 else p=cint(request.QueryString("docp")) if p<1 then p=1 end if arr=split(str,"<br>") returns="" for i=(p-1)*countbr to p*countbr if i>ubound(arr) then exit for returns=returns&arr(i)&"<BR>" next returns=returns&"<br><br><br><br>" if p>1 then returns=returns&"<a href="""&request.ServerVariables("URL")&"?id="&request.QueryString("id")&"&docp="&(cint(p)-1)&""">上一页</a> " end if if ubound(arr) mod countbr<>0 then tolp=ubound(arr)\countbr+1 else tolp=ubound(arr)\countbr end if set arr=nothing star=1:endstar=1 if p>5 then star=cint(p)-5 if cint(star)<>1 then returns=returns&".. " end if if cint(star)+9>tolp then endstar=tolp else endstar=cint(star)+9 end if for i=star to endstar if i=cint(p) then returns=returns&"[<b><font color=red>"&i&"</font></b>] " else returns=returns&"[<a href="""&request.ServerVariables("URL")&"?id="&request.QueryString("id")&"&docp="&i&""">"&i&"</a>] " end if next if endstar<tolp then returns=returns&".. " if p<tolp then returns=returns&"<a href="""&request.ServerVariables("URL")&"?id="&request.QueryString("id")&"&docp="&(cint(p)+1)&""">下一页</a>" end if kellyPage=returns end function

[此贴子已经被作者于2005-10-24 15:51:23编辑过]