ASP 生成静态新闻列表
来源:风之相随blog 时间:2009-03-03 12:25:00
<!--#include file="conn/conn.asp"-->
<%
set Newslist =server.createobject("adodb.recordset")
PSQL= "select * from News where show =true and ClassID=53 order by Tuijian desc ,id desc"
Newslist.Open PSQL,conn,0,2,1
Newslist.PageSize = 25 '这里设定每页显示的记录数
totalpage=Newslist.pagecount
totallist=Newslist.PageSize
'===================设置页面内分页链接=============================
for j=1 to totalpage
if j=1 then
textname="Index.html"
else
textname="Index-"&j&".html"
end if
textnamelink=textname
listpagelink=listpagelink&"<a href='"&textnamelink&"'>"&j&"</a> "
Next
'===================设置页面内分页链接==========================
for i=1 to totalpage
whichpage=i
Newslist.AbsolutePage=whichpage
howmanyinfo=0
'开始读列表
for l=1 to totallist
if Newslist.EOF or Newslist.BOF then exit for
ContentList=ContentList&"<a href='"&Newslist("classid")&"' target='_blank'>"&Newslist("title")&"</a><br>"
Newslist.movenext
next
ContentList="<table width='100%' border='0' cellpadding='0' cellspacing='0' >"&ContentList&"<br><center>"&listpagelink&"</center></table>"
for t=1 to totalpage
'创建要生成的各文件名
if t=1 then
textname="Index.html"
else
textname="Index-"&t&".html"
end if
Next
DocumentPath=all_tree&"/"&textName '生成静态页全路径!
'创建要生成的各文件名
Folder="./news" '定义父文件夹名称##########################
All_tree=server.mappath(Folder) '静态也的文件路径!
TemplatePath="templates/0529.dwt"
'************************************************************************
Dim fso,htmlwrite
Set fso=Server.CreateObject("Scripting.FileSystemObject") '创建文件系统对象
Set htmlwrite=fso.OpenTextFile(Server.MapPath(TemplatePath)) '打开网页模板文件,读取模板内容
strOut=htmlwrite.ReadAll
htmlwrite.close
'===================模板内容转换========================
'************************************************************************
strTitle="迅风工作室,网站设计,软件开发,网页设计,程序定制,程序修改"
strContent=ContentList
strOut=Replace(strOut,"$title$",strTitle)
strOut=Replace(strOut,"$list$",strContent)
strOut=replace(strOut,"$keyword$",strkeyword)
'************************************************************************
'===================模板内容转换完成====================
Set htmlwrite=fso.CreateTextFile(DocumentPath,true) '创建要生成的静态页
htmlwrite.WriteLine strOut '写入网页内容
htmlwrite.close
response.write "正在生成第"&i&"个页面!<br>"
next
'释放文件系统对象
set htmlwrite=Nothing
set fso=Nothing
%>