哪位高手帮忙解答下asp VB生成html文件的具体过程?谢谢了
2个回答
展开全部
如果只是输出HTML，直接用response.write就可以。 如果要ASP生成静态的HTML文件，一般要FSO组件。以下供参考：
Template.htm ：/*--这是猪猪超级分文件线--*/
<html>
<head>
<title>$title$ by aspid.cn</title>
</head>
<body>
$body$
</body>
</html>
testTempLate.asp ：
/*--这是猪猪超级分文件线--*/
<%@language=vbscript codepage=936 %>
<%
'***************************************************
'函数名：IsObjInstalled
'作 用：检查组件是否已经安装
'参 数：strClassString ----组件名
'返回值：True ----已经安装
' False ----没有安装
'***************************************************
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
Dim ObjInstalled
ObjInstalled=IsObjInstalled("Scripting.FileSystemObject")
If ObjInstalled=false Then
response.Write"<br><li>你的服务器不支持 FSO(Scripting.FileSystemObject)! </li>"
ELSE
Dim fso,htmlwrite
Dim strTitle,strContent,strOut
'// 创建文件系统对象
Set fso=Server.CreateObject("Scripting.FileSystemObject")
'// 打开网页模板文件，读取模板内容
Set htmlwrite=fso.OpenTextFile(Server.MapPath("Template.htm"))
,// Template.htm文件和本文件放在同一目录文件下
strOut=htmlwrite.ReadAll
htmlwrite.close
strTitle="生成的网页标题"
strContent="生成的网页内容"
'// 用真实内容替换模板中的标记
strOut=Replace(strOut,"$title$",strTitle)
strOut=Replace(strOut,"$body$",strContent)
'// 创建要生成的静态页
Set htmlwrite=fso.CreateTextFile(Server.MapPath("test.htm"),true)
'// 写入网页内容
htmlwrite.WriteLine strOut
htmlwrite.close
Response.Write "生成静态页成功！"
'// 释放文件系统对象
set htmlwrite=Nothing
set fso=Nothing
END IF
%>
如果你运行时出现什么语句未结束问题，你可以把里的空去掉。
重新进行换行。
Template.htm ：/*--这是猪猪超级分文件线--*/
<html>
<head>
<title>$title$ by aspid.cn</title>
</head>
<body>
$body$
</body>
</html>
testTempLate.asp ：
/*--这是猪猪超级分文件线--*/
<%@language=vbscript codepage=936 %>
<%
'***************************************************
'函数名：IsObjInstalled
'作 用：检查组件是否已经安装
'参 数：strClassString ----组件名
'返回值：True ----已经安装
' False ----没有安装
'***************************************************
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
Dim ObjInstalled
ObjInstalled=IsObjInstalled("Scripting.FileSystemObject")
If ObjInstalled=false Then
response.Write"<br><li>你的服务器不支持 FSO(Scripting.FileSystemObject)! </li>"
ELSE
Dim fso,htmlwrite
Dim strTitle,strContent,strOut
'// 创建文件系统对象
Set fso=Server.CreateObject("Scripting.FileSystemObject")
'// 打开网页模板文件，读取模板内容
Set htmlwrite=fso.OpenTextFile(Server.MapPath("Template.htm"))
,// Template.htm文件和本文件放在同一目录文件下
strOut=htmlwrite.ReadAll
htmlwrite.close
strTitle="生成的网页标题"
strContent="生成的网页内容"
'// 用真实内容替换模板中的标记
strOut=Replace(strOut,"$title$",strTitle)
strOut=Replace(strOut,"$body$",strContent)
'// 创建要生成的静态页
Set htmlwrite=fso.CreateTextFile(Server.MapPath("test.htm"),true)
'// 写入网页内容
htmlwrite.WriteLine strOut
htmlwrite.close
Response.Write "生成静态页成功！"
'// 释放文件系统对象
set htmlwrite=Nothing
set fso=Nothing
END IF
%>
如果你运行时出现什么语句未结束问题，你可以把里的空去掉。
重新进行换行。
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
<%content="文件内容" '文件的内容 set fso = Server.CreateObject("Scripting.FileSystemObject") '设置FSO对象set fout = fso.CreateTextFile(server.mappath(1.html)) '设置一个对象fout创建文件
fout.write content '把文件内容写入文件
response.write "生成成功！" '给用户返回生成成功的信息
response.end
fout.close '关闭fout对象
set fout=Nothing '清空fout对象
set fso=Nothing '清空FSO对象%>已经很简单
fout.write content '把文件内容写入文件
response.write "生成成功！" '给用户返回生成成功的信息
response.end
fout.close '关闭fout对象
set fout=Nothing '清空fout对象
set fso=Nothing '清空FSO对象%>已经很简单
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
