前兩天在給自己的一個(gè)網(wǎng)站(www.cfsoft.com.cn)做一個(gè)文章發(fā)布程序，為了使網(wǎng)站更容易被搜索網(wǎng)站收錄所以將內(nèi)容都生成為靜態(tài)頁(yè)。
一、xxfb表結(jié)構(gòu)如下：
type 類型，在我的網(wǎng)站中用來(lái)區(qū)分幾個(gè)欄目，我那里有一個(gè)技術(shù)，一個(gè)新聞。
pagetitle頁(yè)面標(biāo)題
keywords頁(yè)面關(guān)鍵字
description頁(yè)面mata里的描述
doctitle 文章標(biāo)題
doctext文章內(nèi)容
thedate發(fā)布時(shí)間
orderid排序代號(hào)
commend標(biāo)注是否為推薦文章
二、每一個(gè)類型定義一個(gè)list_加類型名的目錄模板頁(yè)面，一個(gè)temp_加類型名的文章模板頁(yè)面.
三、以下為靜態(tài)頁(yè)生成主體程序：
| 以下為引用的內(nèi)容： 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 "生成靜態(tài)網(wǎng)頁(yè)成功！" End if |
新聞熱點(diǎn)
疑難解答
圖片精選
