一聚教程网:一个值得你收藏的教程网站

热门教程

asp长文章分页代码

时间:2022-07-02 23:15:29 编辑:袖梨 来源:一聚教程网

上段时间我写了一个php的长文章分页代码用到的explode来进行分割实现的,今天我们就来讲讲asp文章分页代码以及长文章分页和asp长文章分页方法. 

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("内容:"))'www.w3sky.com
  end if
  Response.write (converttowide(wen))
  Response.write "
"
  'Response.write (converttowide("本文字数:")) & CLength &"
"
  Response.write (c2u("本文被分为")) & PageCount & (converttowide("页"))&" "&c2u("当前为"&Page&"页")&"< br/>"
  if PageCount >1 and page <> 1 then'www.w3sky.com
  Response.write "1 "
  end if
  dim j
  For j=Page+1 To Page+10
  if j <= PageCount-1 then
  Response.write ""&j&" "
  end if
  next
  if PageCount >1 and Page <> PageCount then
  Response.write ""&PageCount&"
"
  End if
  '结束

热门栏目