<%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 thenResponse.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 %>

评论