前兩天在給自己的一個網站(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 |
新聞熱點
疑難解答
