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

2 制作单独的HTML模板页，动态的内容用特定的字符作为标记如有人用$title$标记为网页标题，用ADODBStream或者ScriptingFileSystemObject将其模板内容载入，然后再用替换方法把原先定好的标记替换为动态内容 如Replace。

ResponseWrite Html_Temp 非摸板生成静态页 目前已经有很多生成html的新闻系统，但是都是用的模板，本函数实现把asp页面产生的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这是一个静态页面lttitleltheadltbody这里就是静态页面的内容了ltbodylthtmlquot#39写入内容 txtClose #39OK了，就这么简单 创建的纯文本文件的位置根据你自己需要调整吧，写入到。

rsquot数据库标题quotquotlttitlequot至于要使静态页面的代码能换行，加入换行符比如quotlthtmlquotchr13chr10quotltheadquot即可，这样生成出来的HTML页面的代码就错落有致了相信你有一定的ASP基础，肯定能看得懂。

2正则得出页面的所有超链接 3，替换得到静态页面后的超链接，从而使所有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生成静态页面的，HTMLSHTML都可以，生成的时候用指定后缀即可 FSO生成静态机理变量记载包括模板在内的所有代码，然后用fso直接写入到*html或其他文件上，就生成静态文件了。

也不知道怎么解释给你段代码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。

调用函数CreaterFilequotmynewshtmlquot，mystr参考资料lta href=quotitem6e9d8033f239e441ad4b5f8chtmlquot target=quot_blankquot rel=quotnofollow noopenerquot。