文章分页代码
来源:互联网 发布:linux版qq 编辑:程序博客网 时间:2024/06/12 23:12
<%
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
%>
- 文章分页代码
- 长文章分页代码
- 文章分页思路代码
- 文章分页代码
- asp.net 大文章分页代码(c#)
- 网上找的文章分页类代码
- 纯JS长文章分页代码
- php长文章分页代码一例
- 文章分页
- 文章分页
- ASP实现长文章自动分页的函数代码
- 根据自增量ID,分页,文章管理,部分代码
- 求asp.net长文章分页 代码(手动输入分页符)
- java+jstl 单篇文章分页和列表页面的分页 代码
- java+jstl 单篇文章分页和列表页面的分页 代码
- ASP文章分页
- 文章分页显示
- asp 长文章分页
- 批量自动重建索引
- C#中windows程序使用播放功能
- String的split方法的使用
- 在windows 下用C实现的一个多播的简单例子。
- BPO概念的理解
- 文章分页代码
- asp调用SQL Server存储过程
- JavaScript函数小集锦
- 刘积仁:BPO的世界也是平的
- 离开SANYO的灵魂烙印
- C++的iostream标准库介绍
- 接触DWR
- [转] little endian和big endian的概念解释,判定与用途
- 常用的javascript验证函数