<%  
        if   not   dbrs.eof   then  
        dbrsword=dbrs(6).  
        zzj=len(dbrsword)  
         
        if   zzj>2000   then  
        response.write   "接上一页<br>"  
        pagecount=int(zzj/2000)+1   '取得此篇文章的总页数  
        if   request("page")=""   then   '取得此篇文章的某一页  
        page=1  
        else  
        page=clng(request("page"))  
        end   if  
        '取得此篇文章当前页显示内容的起始处  
        wordstart=(page-1)*2000+1   '计算某一页内容的开始  
        For   i=wordstart   to   wordstart+1999  
        if   i>zzj   then  
        exit   for  
        end   if  
        word=Mid(dbrsword,i,1)  
        ascword=Asc(word)  
        If   ascword=13   Then    
        response.write   "<br>"  
        response.write   "&nbsp;&nbsp;&nbsp;&nbsp;"  
        Else  
        response.write   server.HTMLEncode(word)  
        End   If  
        Next  
        response.write   "<br>还没玩呢本篇文章共有&nbsp;&nbsp;"&pagecount&"&nbsp;&nbsp;&nbsp;页。:)........<br>"  
        for   i=1   to   pagecount  
        if   i=page   then  
        response.write   "<b>["&i&"]</b>"  
        else    
        response.write   "<a   href=book_cklr.asp?lable="&dbrs("id")&"&amp;page="&i&">["&i&"]&nbsp;</a>"  
        end   if  
        next  
        else  
        response.write   "&nbsp;&nbsp;"  
        For   i=1   to   Len(dbrsword)  
        word=Mid(dbrsword,i,1)  
        ascword=Asc(word)  
        If   ascword=13   Then    
        response.write   "<br>"  
  &