长文章分页代码

<%
Function c2u(myText) 
Dim i 
c2u = "" 
For i = 1 to Len(myText) 
c2u = c2u & "&#x" & Hex(AscW(Mid(myText, i, 1))) & ";" 
Next 
End Function 

Function cutStr(str,strlen) 
'去掉所有HTML标记 
Dim re 
Set re=new RegExp 
re.IgnoreCase =True 
re.Global=True 
re.Pattern="<(.[^>]*)>" 
str=re.Replace(str,"") 
set re=Nothing 
Dim l,t,c,i 
l=Len(str) 
t=0 
For i=1 to l 
c=Abs(Asc(Mid(str,i,1))) 
If c>255 Then 
t=t+2 
Else 
t=t+1 
End If 
If t>=strlen Then 
cutStr=left(str,i)&"..." 
Exit For 
Else 
cutStr=str 
End If 
Next 
cutStr=Replace(cutStr,chr(10),"") 
cutStr=Replace(cutStr,chr(13),"") 
End Function 

Function converttowide(str) 
Dim strlen 
Dim position 
Dim convertstr 
if isnull(str) then 
converttowide=str 
else 
position=1 
strlen=Len(str) 
For i=1 To strlen 
convertstr=convertstr+"&#x"+Hex(AscW(Mid(str,position,1)))+";" 
position=position+1 
Next 
converttowide=convertstr 
end if 
End Function 

dim topicx,usernamex,addtimex,logtextx,ispassword 
'获取ID号 
articleid=request("articleid") 
'写执行语句 
strSQL = "select * from article where articleid="&articleid&"" 
'接上面函数 
logtextx=cutStr(rs("content"),5000) 
'开始分页 
dim page,PageLength,CLength,PageCount,wen,a 
if Request("Page")<>"" then Page = CLng(Request("Page")) 
PageLength = 80 
CLength = Len(logtextx) 
PageCount = Int(Clength/PageLength) + 1 
if Page < 1 or IsNull(Page) Then Page = 1 
if Page > PageCount Then Page = PageCount 
if page=1 then 
a=1 
elseif page>1 then 
a=(Page-1)*PageLength 
end if 
wen=Mid(logtextx,a,PageLength) 
'判断 
if page="" or page=1 then 
'开始显示内容 
Response.write (c2u("内容:"))
end if 
Response.write (converttowide(wen)) 
Response.write "<br/>" 

Response.write (c2u("本文被分为")) & PageCount & (converttowide("页"))&" "&c2u("当前为"&Page&"页")&"<br/>" 

if PageCount >1 and page <> 1 then
Response.write "<a href="/"showarticle.asp?articleid="&articleid&"&Page=1"">1</a> " 
end if 
dim j 
For j=Page+1 To Page+10 
if j <= PageCount-1 then 
Response.write "<a href="/"showarticle.asp?articleid="&articleid&"&Page="&j&""">"&j&"</a> " 
end if 
next 
if PageCount >1 and Page <> PageCount then 
Response.write "<a href="/"showarticle.asp?articleid="&articleid&"&Page="&PageCount&""">"&PageCount&"</a><br/>" 
End if 
%>