asp網(wǎng)站生成靜態(tài)頁面的方法

申請免費試用、咨詢電話：400-8352-114

　　ASP簡介：ActiveServerPage的縮寫，意思是“動態(tài)服務器頁面”。ASP是微軟公司開發(fā)的代替CGI腳本程序的一種應用,它可以與數(shù)據(jù)庫和其它程序進行交互，是一種簡單、方便的編程工具。ASP的網(wǎng)頁文件后綴名是.asp，現(xiàn)在常用于各種動態(tài)網(wǎng)站中。 ASP缺點： 1：網(wǎng)站查詢，添加，刪掉，都要打開對象。打開對象過多，網(wǎng)站反應速度快。 2：網(wǎng)站安全性差，常受到病毒的入侵。但也有網(wǎng)站安全性做的好的網(wǎng)站：如鄭州木魚網(wǎng)絡等。 但是如果網(wǎng)站生成靜態(tài)頁面，那么它的弊端就完全沒有了。網(wǎng)站生成靜態(tài)頁面的優(yōu)點： 1：網(wǎng)站不用讀取數(shù)據(jù)庫，打開速度快。 2：網(wǎng)站不與數(shù)據(jù)庫進行交互，安全性高。 3：便于優(yōu)化，對搜索引擎友好。 下面簡單的介紹一下ASP生成靜態(tài)頁面的方法 MyFolder=server.mappath(File_root&Doc_dir&"") IfNOTfs.folderexists(MyFolder)then response.write"Create"&MyFolder&"..." fs.createfolder(MyFolder) EndIf 上面的意思是獲取路徑，如果沒有，將建立一個。 FileName="head.htm" EditFile=Server.MapPath(Path)&""&FileName SetFileObj=fs.GetFile(EditFile) SetFileStreamObj=FileObj.OpenAsTextStream(1) header=LoadFile(EditFile) 加載頭部文件 FileName="foot.htm" EditFile=Server.MapPath(Path)&""&FileName SetFileObj=fs.GetFile(EditFile) SetFileStreamObj=FileObj.OpenAsTextStream(1) footer=LoadFile(EditFile) 加載底部文件 FileName="index.htm" EditFile=Server.MapPath(Path)&""&FileName SetFileObj=fs.GetFile(EditFile) SetFileStreamObj=FileObj.OpenAsTextStream(1) index_template=LoadFile(EditFile) 加載首頁文件 IfInStr(File_Str,"asp網(wǎng)站生成靜態(tài)頁面的方法")>0then Temp_Str=trade(page_title) File_Str=Replace(File_Str,"asp網(wǎng)站生成靜態(tài)頁面的方法",Temp_Str) endif 替換title IfInStr(File_Str,"鄭州網(wǎng)站制作，鄭州做網(wǎng)站，網(wǎng)站優(yōu)化，網(wǎng)站技術")>0then Temp_Str=trade(keywords) File_Str=Replace(File_Str,"鄭州網(wǎng)站制作，鄭州做網(wǎng)站，網(wǎng)站優(yōu)化，網(wǎng)站技術",Temp_Str) endif 替換keywords IfInStr(File_Str,"木魚網(wǎng)絡是鄭州一家從事中高端網(wǎng)站制作的網(wǎng)站建設公司，在鄭州做網(wǎng)站多年，提供鄭州網(wǎng)站制作，鄭州做網(wǎng)站，鄭州網(wǎng)站優(yōu)化，網(wǎng)站轉(zhuǎn)靜態(tài)化。木魚網(wǎng)絡鄭州網(wǎng)站建設公司的首選。asp網(wǎng)站生成靜態(tài)頁面的方法")>0then Temp_Str=trade(description) File_Str=Replace(File_Str,"木魚網(wǎng)絡是鄭州一家從事中高端網(wǎng)站制作的網(wǎng)站建設公司，在鄭州做網(wǎng)站多年，提供鄭州網(wǎng)站制作，鄭州做網(wǎng)站，鄭州網(wǎng)站優(yōu)化，網(wǎng)站轉(zhuǎn)靜態(tài)化。木魚網(wǎng)絡鄭州網(wǎng)站建設公司的首選。asp網(wǎng)站生成靜態(tài)頁面的方法",Temp_Str) endif 替換description FunctionLoadFile(ByValFile) DimobjStream OnErrorResumeNext SetobjStream=Server.CreateObject("ADODB.Stream") WithobjStream .Type=2 .Mode=3 .Open .LoadFromFileFile IfErr.Number<>0Then Response.Write"出錯，文件不存在" Err.Clear Response.End EndIf .Charset="utf-8" .Position=2 LoadFile=.ReadText .Close EndWith SetobjStream=Nothing EndFunction 最后用這個函數(shù)讀取和寫入生成。 這只是其中的一段代碼。設計到程序的整體思想。要想完全理解網(wǎng)站生成靜態(tài)頁面的思想。必須下一番苦功。

　　鄭州做網(wǎng)站 http://www.muyu666.com