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

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

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

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

1，下面這個例子直接利用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這是一個靜態(tài)頁面lttitleltheadltbody這里就是靜態(tài)頁面的內容了ltbodylthtmlquot#39寫入內容 txtClose #39OK了，就這么簡單 創(chuàng)建的純文本文件的位置根據(jù)你自己需要調整吧，寫入到。

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

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

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

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

ASP是用FSO生成靜態(tài)頁面的，HTMLSHTML都可以，生成的時候用指定后綴即可 FSO生成靜態(tà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。

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