NewFile=ServerMapPathquotaspchap06atnewfilehtmlquot#39新建一文件newfilehtml，若該文件已存在，則覆蓋它 Set a = fsCreateTextFileNewFile， TrueResponseWritequot新文件已建立quotaclose File=ServerMapPath。

2 制作單獨(dú)的HTML模板頁，動態(tài)的內(nèi)容用特定的字符作為標(biāo)記如有人用$title$標(biāo)記為網(wǎng)頁標(biāo)題，用ADODBStream或者ScriptingFileSystemObject將其模板內(nèi)容載入，然后再用替換方法把原先定好的標(biāo)記替換為動態(tài)內(nèi)容 如Replace。

ResponseWrite Html_Temp 非摸板生成靜態(tài)頁 目前已經(jīng)有很多生成html的新聞系統(tǒng)，但是都是用的模板，本函數(shù)實(shí)現(xiàn)把a(bǔ)sp頁面產(chǎn)生的html代碼保存成為一個(gè)html文件，這樣就沒有必要改動原來的頁面就可以輕松完成一個(gè)生成html的新聞。

其實(shí)很簡單的，用fso就可以 lt htmStr = quotlthtmlltheadlttitletestlttitleltheadltbody123ltbodylthtmlquotset fso = ServerCreateObjectquotScriptingFileSystemObjectquotset f = fsoCreateTextFileServerMappath。

1，下面這個(gè)例子直接利用FSO把html代碼寫入到文件中然后生成html格式的文件 lt filename=quottesthtmquotif requestquotbodyquotltquotquot then set fso = ServerCreateObjectquotScriptingFileSystemObjectquotset htmlwrite =。

lthtml ASP程序如下lt dim fso， file， file1， content set fso = ServerCrateObjectquotScriptingFileSysteObjectset file1 = fsoOpenTextFileServerMapPathquot模板quotcontent = file1ReadAllset file1 =。

txtWrite quotlthtmlltheadlttitle這是一個(gè)靜態(tài)頁面lttitleltheadltbody這里就是靜態(tài)頁面的內(nèi)容了ltbodylthtmlquot#39寫入內(nèi)容 txtClose #39OK了，就這么簡單 創(chuàng)建的純文本文件的位置根據(jù)你自己需要調(diào)整吧，寫入到。

rsquot數(shù)據(jù)庫標(biāo)題quotquotlttitlequot至于要使靜態(tài)頁面的代碼能換行，加入換行符比如quotlthtmlquotchr13chr10quotltheadquot即可，這樣生成出來的HTML頁面的代碼就錯(cuò)落有致了相信你有一定的ASP基礎(chǔ)，肯定能看得懂。

2正則得出頁面的所有超鏈接 3，替換得到靜態(tài)頁面后的超鏈接，從而使所有href=“1asp”href=“1html”4，文件生成，讀取頁面的URL，然后讀取替換后的HTML 5，1asp保存成為1html Call SaveToFile“xml。

要即時(shí)生成很簡單，但問題在于你這樣做的意義何在每人訪問一次就生成一次，如果同時(shí)多人訪問的時(shí)候即表示生成多次，嚴(yán)重涉嫌浪費(fèi)服務(wù)器資源```如果你真需要這樣做的話可以加598幫你解決，只是你的想法太不好理解了```。

設(shè)計(jì)asp文件保存成htmlasplt% Option Explicit %lthtmlltheadlttitleASP生成HTMLlttitleltstyle type=quottextcssquotlt！align_right_top textalign rightverticalalign topalign_left_10px textalign left。

ASP是用FSO生成靜態(tài)頁面的，HTMLSHTML都可以，生成的時(shí)候用指定后綴即可 FSO生成靜態(tài)機(jī)理變量記載包括模板在內(nèi)的所有代碼，然后用fso直接寫入到*html或其他文件上，就生成靜態(tài)文件了。

也不知道怎么解釋給你段代碼lt Dim id id = Requestquotidquot lt if SaveFilequotnewquotidquothtmlquot，quot。

lt function htmlencode2fStringif fStringltquotquot and not isnullfString then fString = replacefString， quotquot， quotquotfString = replacefString， quotltquot， quotltquotfString = ReplacefString， chr32， quotquotfString。

sub ASP2HTMURL，EXnameHTMLCode=Get。

if SaveFilequotindexhtmlquot，quot。

調(diào)用函數(shù)CreaterFilequotmynewshtmlquot，mystr參考資料lta href=quotitem6e9d8033f239e441ad4b5f8chtmlquot target=quot_blankquot rel=quotnofollow noopenerquot。