<!--#include file="../login/pwk.asp"-->
<!--#include file="../../conn/Conn.asp"-->
<!--#include file="../../conn/news_lb.asp" -->
<!--#include file="../../conn/fso.asp"-->
<meta http-equiv="Content-Type" content="text/html;
charset=gb2312">
<%
If(Request.QueryString("Page")="") Then
Page=1
Else
Page=Request.QueryString("Page")
Page_index=Request.QueryString("Page")
End If
lbid=request("lbid")
xlbid=request("xlbid")
SQL="Select * From news where lbid="&lbid&" and
xlbid="&xlbid&" Order By ID DESC"
Set Rs = Server.CreateObject("Adodb.RecordSet")
Rs.Open SQL,Conn,1,1
dim lbid_f,xlbid_f
lbid_f=""
xlbid_f=""
lbid_f=rs("lbid")
xlbid_f=rs("xlbid")
If(Rs.EOF) Then
strList="没有内容"
Else
strlist="<table width=100% border=0 cellpadding=0
cellspacing=3>"
Rs.pagesize=25
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 &"<tr><td height=25 valign=middle>"&
i+(Page*13-13)+1 & " : <A href='/html/"&Rs("html")&"'
target=_blank><span
class=font_b_u>"&Rs("bt")&"</span></a> <font
color=#6666CC
size=0>("&rs("ly")&","&month(rs("sj"))&"月"&day(rs("sj"))&"日,"&rs("rq")&"次)</font></td></tr>"
Rs.movenext
Next
strList = strList&"</table>"
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
'//所在位置
listwz="您的位置: <a href=/shop/index.asp><font
color=#FFFFFF>首页</font></a> >> <span
class=link_u>"&news_lb(request("lbid"),0)&"</span> >>
<span
class=link_u>"&replace(news_lb(request("lbid"),xlbid_f),",","")&"</span>"
title=my_name&"
-"&news_lb(request("lbid"),0)&"-"&replace(news_lb(request("lbid"),xlbid_f),",","")
wz_lb=replace(news_lb(request("lbid"),xlbid_f),",","")
'//生成文件夹
Dim lbFSO
Set lbFSO =
Server.CreateObject("Scripting.FileSystemObject")
If
lbFSO.FolderExists(Server.MapPath("\html\index\"&lbid_f&""))
Then
Else
lbFSO.CreateFolder(Server.MapPath("\html\index\"&lbid_f&""))
End If
Set lbFSO = Nothing
Dim xlbFSO
Set xlbFSO =
Server.CreateObject("Scripting.FileSystemObject")
If
xlbFSO.FolderExists(Server.MapPath("\html\index\"&lbid_f&"\"&xlbid_f&""))
Then
Else
xlbFSO.CreateFolder(Server.MapPath("\html\index\"&lbid_f&"\"&xlbid_f&""))
End If
Set xlbFSO = Nothing
'//文件夹生成结束
'//生成列表文件
TempContent=Conn.Execute("Select demo From news_demo
Where ID=2")(0)'//获取模板
TempContent=replace(TempContent,"$ArticleList$",strList)'//替换模板内容
TempContent=replace(TempContent,"$PageNav$",PageNav)
TempContent=replace(TempContent,"$listwz$",listwz)
TempContent=replace(TempContent,"$title$",title)
TempContent=replace(TempContent,"$wz_lb$",wz_lb)
'Set FSO =
Server.CreateObject("Scripting.FileSystemObject")
'Set Fout =
FSO.CreateTextFile(Server.MapPath("\html\index\"&rs("lbid")&"\"&rs("xlbid")&"\Index_"&Page&".html"))
'Fout.Write TempContent
'Fout.Close
'//注意lbid_f的地址，容易出错！
wj="../../html/index/"&lbid_f&"/"&xlbid_f&"/Index_"&Page&".html"
nr=TempContent
shencheng wj,nr
'//生成列表文件结束
%>
<%If(Int(Page)<Int(TotalPage))Then%>
<html>
<head><title>完成</title>
<meta http-equiv="refresh"
content="0;url=slbhtml.asp?Page=<%=Page+1%>&lbid=<%=lbid%>&xlbid=<%=xlbid%>">
</head>
<body>
第<font color=red><b><%=Page%></b></font>页生成完毕！
</body>
</html>
<%Else
response.Write "<script
language='javascript'>alert('生成文章分类完毕，共生成["&TotalPage&"]页！');window.location.href='lb_gl.asp';</script>"
response.End
End If
%>
该文章转载自[弹指科技-网站快速建站-www.make-web.cn]：http://www.make-web.cn/news/2008825193832.htm
留言模块加载ing...
设计说明：ASP生成静态页面分页列表平面设计,威迪广告公司为您提供设计欣赏,创意生活,设计欣赏,当代艺术,数字娱乐,平面设计,视觉,平面,fireworks,教程,书籍,封面,设计,标志,广告,作品,图片,下载多元化的信息交流咨询，杭州ASP生成静态页面分页列表视觉引导式的宣传方法让人过目难忘。将光线巧妙地运用在书籍的投影上，视觉,平面,fireworks,教程,封面,设计似乎书籍由内向外透着一股亮光。书上的窗户和灯泡都是设计欣赏将书从平面转换到空间的一个过渡，这些过渡让人们更想探寻亮光后面的另个空间。ASP生成静态页面分页列表平面设计的文化招贴中两本书直接交叉，纯粹的制造出标志,广告,作品,图片,下载一种立体空间感. 文章添加时间:2008-9-15,文件大小：34.73 KB，最近更新时间：2008-10-28 23:22:39 返回TOP↑
本站文章搜集自网络；共享网络，共享快乐，我为人人，人人为我;如果您知道本站未知来源文章请告知本站谢谢!文中及留言观点不代表本站；本站转载内容只是为了更好的交流；若侵犯了您的版权请联系E-mail：
，本站核实后立即处理！
减小字体
增大字体
