[求助]求个高手帮我ＨＴＭＬ分页． - ASP技术论坛

问题点数：0 回复次数：9

[求助]求个高手帮我ＨＴＭＬ分页．

如下的网址要实现HTML分页,不知应在哪里加代码:http://caiyakang.xicp.net/article/index.html 有两种要实现的功能: 1:对FSO生成长文章后进行自动分页处理. 如，用日期生成一篇文章为2005831307575.html 文章很长会自动分成下一页，2005831307575_1.html 2:对FSO生成很多文章后要实现,分页. 如:显示所有文章的第一页为index.html下一页index_2.html,在下一页index_3.html 请求有做过这样分页的来帮帮我

搜索更多相关主题的帖子: ＨＴＭＬ　

第 2 楼

得分:0

风讯在哪里下
我也想找个自已研究,但是一直找不到.找了很多文章,但不知应把代码放哪里.

中国人的财富网:http://www..cn/

第 3 楼

得分:0

本人诚心想要个分页，有人帮我吗

中国人的财富网:http://www..cn/

第 4 楼

得分:0

这么一点也要钱,郁闷.

中国人的财富网:http://www..cn/

第 5 楼

得分:0

如果真的要钱的话,请版主把贴子删了,
还是要谢谢各位的帮忙.

中国人的财富网:http://www..cn/

第 6 楼

得分:0

资料是找了很多，就是不知放哪里好

<%
If(Request.QueryString("Page")="") Then
Page=1
Else
Page=Request.QueryString("Page")
End If

SQL="Select ID,LTitle,LPostTime,LHits From Log_List Order By ID DESC"
Set Rs = Server.CreateObject("Adodb.RecordSet")
Rs.Open SQL,Conn,1,1
If(Rs.EOF) Then
strList="没有内容"
Else
Rs.pagesize=30
Rs.AbsolutePage=Page
TotalPage=Rs.PageCount
For i=0 To rs.pagesize-1 显示具体的数据内容了,i+(page*13-13)+1 这个解决分页后显示具体的编号
If Rs.eof Then Exit For
strList = strList & i+(Page*13-13)+1 & ":<A href="&Rs(0)&".html>"&Rs(1)&"</a><br>"
Rs.movenext
Next
If(Int(Page)=1) Then
PageFirst="[首页"
Else
PageFirst="[<a href=""Index_1.html"">首页</a>"
End If

If(Int(Page)=1)Then
PageBack=" 上一页 "
Else
PageBack=" <a href=""Index_"&Page-1&".html"">上一页</a> "
End If

If(Int(Page)=TotalPage)Then
PageNext=" 下一页 "
Else
PageNext=" <a href=""Index_"&Page+1&".html"">下一页</a> "
End If

If(Int(Page)=TotalPage)Then
PageLast="尾页]"
Else
PageLast="<a href=""Index_"&TotalPage&".html"">尾页</a>]"
End If

AbsPage="第<select onchange=""window.location=Index_+this.options[this.selectedIndex].value+.html"">"
For j=1 To TotalPage
AbsPage=AbsPage&"<option value="&j
If(Cstr(j)=Cstr(Page))Then
AbsPage=AbsPage&" selected"
End If
AbsPage=AbsPage&">"&j&"</option>"
Next
AbsPage=AbsPage&"</select>页"

PageNav=PageFirst&PageBack&PageNext&PageLast&AbsPage
End If

TempContent=Conn.Execute("Select TempContent From Templet Where TempID=1")(0)
TempContent=replace(TempContent,"$ArticleList$",strList)
TempContent=replace(TempContent,"$PageNav$",PageNav)
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Fout = FSO.CreateTextFile(Server.MapPath("Article/Index_"&Page&".html"))
Fout.Write TempContent
Fout.Close
%>
<%If(Int(Page)<Int(TotalPage))Then%>
<html>
<head><title>完成</title>
<meta http-equiv="refresh" content="0;url=CreateHtml_List.asp?Page=<%=Page+1%>">
</head>
<body>
第<font color=red><b><%=Page%></b></font>页生成完毕！
</body>
</html>
<%Else%>
生成文章分类完毕，共生成<font color=red><b><%=TotalPage%></b></font>页
<%End If%>

中国人的财富网:http://www..cn/

第 7 楼

得分:0

超长文章自动分页,用ASP和JS实现：
/* written by Jaron ,2002-07-15 */
/* 原出处：MVPCN Blog (http://blog.) */
/* 转载请注明出处和保留此版权信息*/
/* 欢迎使用SiteManager网站管理系统 http://demo. */

原文出处: http://blog.

这两天看到有朋友提出文章自动分页的问题,贴出我原来系统中的一部分代码,供大家参照,看是否有需要改进的地方或有更好的建议,其实偶们公司最近的项目都是用c#,ASP已经很少用了...
这里只贴出了一部分代码,有兴趣的朋友,可以在
http://demo. 测试,管理端 http://demo. 帐号和密码都是 demo

生成后的页面的演示:
---------------
http://demo.
http://demo.
http://demo.
http://demo.

JavaScript脚本部分
======================
以下是代码片段：
function submitPostIfRame(mode){
var sMarkup = doc_html.getHTML(); //从html编辑器中取数据
with(document.forms[0]){
doc_html.document.open();
doc_html.document.write(sMarkup);
doc_html.document.close();
doc_html.document.body.innerHTML = sMarkup;
var oBody=doc_html.document.body;
var oHTML="";
for(var i=0;i if(i!=oBody.childNodes.length-1){
if(oBody.childNodes[i].nodeType==3){
oHTML+=oBody.childNodes[i].nodeValue+"";
}else{
oHTML+=oBody.childNodes[i].outerHTML+"";
}
}else{
if(oBody.childNodes[i].nodeType==3){
oHTML+=oBody.childNodes[i].nodeValue;
}else{
oHTML+=oBody.childNodes[i].outerHTML;
}
}
}
news_content.value = oHTML
}
return true;
}

ASP脚本部分
===============
以下是代码片段：
Function calculate_pagination(strContent, pSize)
On Error Resume Next
Dim aCon, intfor, intCount, strTemp, strTemp2
aCon = Split(strContent, "", -1, 1)
intCount = UBound(aCon)
strTemp = ""
strTemp2 = ""
Page = 1
For intfor = 0 To intCount
strTemp = strTemp & aCon(intfor)
strTemp2 = strTemp2 & RemoveHTML(aCon(intfor))
strTemp2 = strTemp2 & aCon(intFor)
If Len(strTemp2) >= pSize Then
Page = Page + 1
strTemp = ""
strTemp2 = ""
End If
Next
If strTemp2 <> "" Then Page = Page - 1
calculate_pagination = Page
If Err.Number <> 0 Then
calculate_pagination = 1
Err.Clear
End If
End Function
Function get_page_text(strContent, pagenum, totalpage, pSize)
aCon = Split(strContent, "", -1, 1)
intCount = UBound(aCon)
strTemp = ""
strTemp2 = ""
Page = 1
For intfor = 0 To intCount
strTemp = strTemp & aCon(intfor)
strTemp2 = strTemp2 & RemoveHTML(aCon(intfor))
strTemp2 = strTemp2 & aCon(intFor)
If Len(strTemp2) >= pSize Then
If pagenum = Page Then
get_page_text = strTemp
Exit For
End If
Page = Page + 1
strTemp = ""
strTemp2 = ""
End If
Next
If strTemp2 <> "" And pagenum > Page - 1 Then get_page_text = strTemp
End Function
看不懂

中国人的财富网:http://www..cn/

第 8 楼

得分:0

这是我的用FSO生成文件后的标题列表,好像怎么样也不能和上面分页的代码结合起来

javastr="<style></style>" javastr=javastr+"<table width=\"100%\" border=\"0\">"  <% typeid=request("id") sql="select * from article where typeid=("&typeid&") order by dateandtime desc" set rs=conn.execute(sql) %> <%if rs.bof and rs.eof then%> document.write("暂时没有任何内容") <%else%> <% i=0 do while not rs.eof %> javastr=javastr+"<tr><td>" javastr=javastr+"<font color=\"#0066cc\">○ </font><a href='../<%=rs("path")%>/<%=rs("N_Fname")%>'><%=rs("title")%></a>" javastr=javastr+"</td></tr>" <%i=i+1 rs.movenext loop end if %> <%rs.close set rs =nothing conn.close set conn=nothing %> javastr=javastr+"</table>" document.write(javastr)

中国人的财富网:http://www..cn/

第 9 楼

得分:0

顶，分数能拿回来吗。
我想了一下，想问一下，别人的分页
比如1.html下一页2.html,在下一页3.html.......100.html，
这些静态的ＨＴＭＬ，我个人认为是已经生成的分页了，并不是动态分页的，也就是说文件夹里面就存在这些分页分多少个页文件夹里面就有多少个页面？，
如果谁有做过来发表一下意见，现在是讨论．

[此贴子已经被作者于2005-8-5 21:52:04编辑过]

中国人的财富网:http://www..cn/

第 10 楼

得分:0

好的，谢谢你，那种分页和首页，好像都是静态生成的，并不是动态的。
完全是生成静态的。

中国人的财富网:http://www..cn/