asp自动生成html教程的简单介绍

ResponseWrite quot成功生成文件quot ResponseWrite quotltBRquot ResponseWrite Html_Temp 非摸板生成静态页 目前已经有很多生成html的新闻系统，但是都是用的模板，本函数实现把asp页面产生的html代码保存成为一个html。

1str=quotlthtml标记内容lthtml标记quotstr=strquotlthtml标记内容lthtml标记lthtml标记数据库读取内容lthtml标记quot这种方法与是在脚本内写要生成的html内容，不太方便预览生成页面的内容，无法可视化布局页面，更。

1FCKeditor 是一个开源的文本编辑器，不能直接生成html文件，但是可以借助FCKeditor控件获取在编辑器中排版好html代码2生成HTML文件，需要用到文本写入流，利用这个类实例化一个对象，用这个对象的一个write方法方法写入html。

以下代码就是将一个ASP的动态页面生成一个HTML的静态页面，注释我已经加上了，自己看吧FileName = quotIndexquotItem_ClassidquothtmquotFilePath = ServerMapPathquotquotquot\quotFileName Html_Temp = Html_TempFilePathquot。

其实很简单的，用fso就可以 lt htmStr = quotlthtmlltheadlttitletestlttitleltheadltbody123ltbodylthtmlquotset fso = ServerCreateObjectquotScriptingFileSystemObjectquotset f = fsoCreateTextFileServerMappath。

function asp2htmlfilenamedim code code = replace replace replace get_exe_codefilename， quothughchiu_rtcode = hughchiu_rtcodequotquotquotvbcrlf， quotquot ， quotlt%quot， quotquot ， quot%\quot， quotquot #39responseWritec。

lthtml 用FSO读出模板，存入变量 PageCode 从数据库读出标题存入变量 NewsTitle 然后用Replace进行替换，如下PageCode=ReplacePageCode，quot$PageTitle$quot，NewsTitle然后再用FSO创建新网页文件将PageCode的内容写入到新建。

ASP是利用FSO的方法最常见如果要学习请下载动易新闻系统，在国内系统中算是很出色全站生成HTML 下面是一个比较简单的实例 lt #39当目标页面的包含文件即#include的页面里边存在responseEnd的时候本程序有问题 #39注意本文件。

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

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

close responsewritequot文件已成功生成quot lta href=lt%=fname%点击查看lta fname=quot你的文件路径quot在这里如果你给定的路径是 jobindexhtml，那么就会生成job为名称的文件夹，而后在其中生成文件indexhtml。

asp，修改Url=quotaspquot#39和dizhi=quotIndexhtmlquot根据你的网站目录结构来看情况修改路径~，然后再后台给个衔接lta href = quotHtmlaspquot Title=quot点击生成首页quot生成HTML首页lta。

Button1_Clickquot lthr ltaspLabel ID=quotLabel1quot runat=quotserverquot Text=quotLabelquot ltaspLabel ltdiv ltform ltbody lthtml 以上代码可以生成HTML静态页 若不明白，可追问~若满意，望采纳~。

sub ASP2HTMURL，EXnameHTMLCode=Get。

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

关键是Call GetRemoteFielsFileUrl， FolderPath， FileName 这一句，你看一下它的GetRemoteFilels这个过程到底做了什么参考资料Call GetRemoteFielsFileUrl， FolderPath， FileName。

if SaveFilequotnewlt%=id%htmlquot，quot。