最近朋友網站需要將網站產生靜態,但有時候產生靜態會出現問題,特多整理了一些方法, 大家可以依照自己網站需求選擇。 1.ASP兩種簡單的產生靜態首頁的方法
為什麼要產生靜態首頁?
1.如果你首頁讀取的資料庫次數比較多,速度很慢,而且佔用很多伺服器資源。使用靜態頁面訪問速度當然快多了
2.搜尋引擎容易搜尋到
3.如果程式出問題,也能保證首頁能存取。
4、其他的太多,自己想:)
應用方式:
如果你的首頁是index.asp,你可以產生index.htm (預設存取順序必須是index.htm,index.asp)。這樣訪客第一次造訪到你的網站的時候打開的是index.htm 。你可以把網站首頁的連結做成index.asp,這樣從網站任何一個頁面點擊首頁的連結出現的就是index.asp,這樣保證的資訊更新的及時性(畢竟index.htm需要每次手動更新)。
方法一:
直接將首頁檔案包含在表單文字方塊中,將首頁程式碼最為資料提交,然後產生靜態頁面。
程式碼如下:
複製代碼代碼如下:
<%
'------------------------------------------------- -----------
'使用表單提交產生靜態首頁的程式碼
'確保你的空間支援FSO,且首頁代碼內容較少
'------------------------------------------------- -----------
dim content
content=Trim(Request.Form(content))
if content<> then
call makeindex()
end if
sub makeindex()
Set Fso = Server.CreateObject(Scripting.FileSystemObject)
Filen=Server.MapPath(index.htm)
Set Site_Config=FSO.CreateTextFile(Filen,true, False)
Site_Config.Write content
Site_Config.Close
Set Fso = Nothing
Response.Write(<script>alert('已經成功產生首頁!')</script>)
end sub
%>
<form name=form1 method=post action=>
<textarea name=content>
<!-- #i nclude file=index.asp -->
</textarea>
<br>
<input type=submit name=Submit value=提交>
</form>
缺點:
1、如果首頁包含<@ ..>標記,會提示出錯。
2.如果首頁代碼較長,用表單無法提交過去(表單資料長度有一定的限制)。
解決方案:
1.去掉index.asp中的<@ >標記
2.使用eWebEditor,提交支援大數據(能自動分割)
優點:
可以在生成時對內容進行即時修改。
方法二:
直接使用XMLHTTP取得index.asp的程式碼
複製代碼代碼如下:
<%
'------------------------------------------------- ---------
'使用XMLHTTP產生靜態首頁的程式碼
'Curl 為你的首頁位址,確保你的空間支援FSO
'------------------------------------------------- ----------
dim read,Curl,content
Curl=http://www.xx0123.com/index.asp
read=getHTTPPage(Curl)
if read<> then
content=read
call makeindex()
end if
sub makeindex()
Set Fso = Server.CreateObject(Scripting.FileSystemObject)
Filen=Server.MapPath(index.htm)
Set Site_Config=FSO.CreateTextFile(Filen,true, False)
Site_Config.Write content
Site_Config.Close
Set Fso = Nothing
Response.Write(<script>alert('已經成功產生首頁!')</script>)
end sub
Function getHTTPPage(url)
dim http
set http=Server.createobject(Microsoft.XMLHTTP)
Http.open GET,url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,GB2312)
set http=nothing
if err.number<>0 then err.Clear
End function
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject(adodb.stream)
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
%>
2.模板分離批量生成
模板檔案中要替換的內容均以{...}括起來
為力求簡潔,去掉了錯誤處理程式碼(replace中要來替換的字串參數不能為null值,當然fso也應該做錯誤檢查)。
複製代碼代碼如下:
<%
' ------------------------------------------------- -------------------------------------------------- ------------------
' 出自: kevin fung http://www.yaotong.cn
' 作者: kevin fung 落伍者ID:kevin2008,轉載時請保持原樣
' 時間: 2006/07/05落伍者論壇先發
' ------------------------------------------------- -------------------------------------------------- -------------------
Dim start '此變數為指標將要指向的記錄集位置,透過參數動態取得
Dim Template '模板檔案將以字串讀入該變量
Dim content '替換後的字串變數
Dim objConn '連線對象
Dim ConnStr '連接字串
Dim sql '查詢語句
Dim cnt:cnt = 1 '本輪循環計數器初始化
start = request(start) '取得本輪指標的開始位置
If IsNumeric(start) Then start = CLng(start) Else start=1
If start=0 Then start = 1 '如果start
ConnStr = Provider = Microsoft.Jet.OLEDB.4.0;Data Source = & Server.MapPath(DataBase.mdb)
sql = select * from table_name
Set objConn = Server.CreateObject(ADODB.Connection)
objConn.Open ConnStr
set rs = Server.CreateObject(ADODB.Recordset)
rs.open sql,objConn,1,1 '開啟資料集
rs.AbsolutePosition = start '最關鍵的一步,將指標指向start,start透過參數動態獲得
Template = getTemplate(Server.MapPath(template.html))' template.html為模板文件,透過函數getTemplate讀入到字串,模板文件中要替換的內容均以{...}括起來
While Not rs.eof And cnt<= 500 '500是設定一次請求生成頁面的循環次數,根據實際情況修改,如果太高了,記錄集很多的時候會出現超時錯誤
content = Replace(Template,{filed_name_1},rs(filed_name_1)) '以欄位值取代範本內容
content = Replace(content,{filed_name_2},rs(filed_name_2))
.....
content = Replace(content,{filed_name_n},rs(filed_name_n))
genHtml content,Server.MapPath(htmfiles/&rs(id)&.html) '將替換之後的Template字串產生HTML文檔,htmfiles為儲存靜態文件的目錄,請手動建立
cnt = cnt + 1 '計數器加1
start = start + 1 '指標變數遞增
rs.movenext
wend
If Not rs.eof Then '透過刷新的方式進行下一輪請求,並將指標變數start傳遞到下一輪
response.write <meta http-equiv='refresh' content='0;URL=?start=&start&'>
Else
response.write 產生HTML檔完畢!
End if
rs.Close()
Set rs = Nothing
objConn.Close()
Set objConn = Nothing
Function getTemplate(template)'讀取模板的函數,傳回字串,template為檔名
Dim fso,f
set fso=CreateObject(Scripting.FileSystemObject)
set f = fso.OpenTextFile(template)
getTemplate=f.ReadAll
f.close
set f=nothing
set fso=Nothing
End Function
Sub genHtml(content,filename)'將替換後的內容寫入HTML文檔,content為替換後的字串,filename為產生的檔案名
Dim fso,f
Set fso = Server.CreateObject(Scripting.FileSystemObject)
Set f = fso.CreateTextFile(filename,true)'如果檔案名稱重複將覆蓋舊文件
f.Write content
f.Close
Set f = Nothing
set fso=Nothing
End Sub
%>