前兩天在給自己的一個網站(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 |