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

申請(qǐng)免費(fèi)試用、咨詢電話：400-8352-114

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

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