前两天在给自己的一个网站(www.cfsoft.com.cn)做一个文章发布程序，为了使网站更容易被搜索网站收录所以将内容都生成为静态页。
一、xxfb表结构如下：
type 类型，在我的网站中用来区分几个栏目，我那里有一个技术，一个新闻。
pagetitle页面标题
keywords页面关键字
description页面mata里的描述
doctitle 文章标题
doctext文章内容
thedate发布时间
orderid排序代号
commend标注是否为推荐文章
二、每一个类型定义一个list_加类型名的目录模板页面，一个temp_加类型名的文章模板页面.
三、以下为静态页生成主体程序：
| 以下为引用的内容： If Trim(request(flag))=BUILD Then '---生成目录------ sql=select distinct type from xxfb Set objrs=conn.execute(sql) While Not objrs.eof url = siteurl&/admin/list_&Trim(objrs(type))&.asp set http=Server.createobject(Msxml2.XMLHTTP) Http.open GET,url,false Http.send() set objStream = Server.CreateObject(ADODB.Stream) objStream.type = 1 objStream.open objstream.write http.responseBody objstream.saveToFile server.mappath(/&Trim(objrs(type))&/&Trim(objrs(type))&.htm),2 objstream.close Set objstream=Nothing objrs.movenext Wend Set objrs=Nothing
sql=select * from xxfb order by thedate desc Set objrs=conn.execute(sql) While Not objrs.eof url = siteurl&/admin/temp_&Trim(objrs(type))&.asp?id=&Trim(objrs(id)) set http=Server.createobject(Msxml2.XMLHTTP) Http.open GET,url,false Http.send() set objStream = Server.CreateObject(ADODB.Stream) objStream.type = 1 objStream.open objstream.write http.responseBody objstream.saveToFile server.mappath(/&Trim(objrs(type))&/&Trim(objrs(id))&.htm),2 objstream.close Set objstream=Nothing objrs.movenext wend Response.Write 生成静态网页成功！ End if |