第二种方法应该如何写呀,帮我修改一下,谢谢!!!
dim Maxpagelen,page,content,PageNumber,ArticleID
dim contentlen
dim BeginPoint,EndPoint
Maxpagelen=1000
contentlen=len(strout(content))
page=request.QueryString("page")
if contentlen<=Maxpagelen then 
   response.Write content
else 
    if page="" then
      page=1
   else
      page=Cint(page)
   end if    
   if pageNumber*MaxPagelen<contentlen then
      PageNumber=PageNumber+1
   end if
   PageNumber=int(contentlen/Maxpagelen)+1
   if page<1 then page=1
   if page>PageNumber then page=PageNumber
   if page=1 then
      BeginPoint=1
   else
     BeginPoint=MaxPagelen*(page-1)+1
   end if
   if page=PageNumber then
     EndPoint=contentlen
   else
     EndPoint=MaxPagelen*page 
     if EndPoint>=ContentLen then
       EndPoint=ContentLen
     end if
   end if
     content=Mid(content,BeginPoint,EndPoint-BeginPoint)  
     response.Write content
end if
if pagenumber>1 then
                      response.write"共有"&pagenumber&"页" 
                       for i=1 to PageNumber
  if i=pagenumber then
  if i<>page then
     response.Write "<a href=?zixunid=" & zixunid &"&page=" & i & "> "& i &"</a>"
     else
     response.write"<font color='#FF0000'> "&i&"</font>"
     end if
     else
     if i<>page then
          response.Write "<a href=?zixunid=" & zixunid &"&page=" & i & "> "& i &"</a>"
     else
     response.write"<font color='#FF0000'> "&i&"</font>"
     end if
     end if
  Next
  end if