哪位高手帮忙解答下asp VB生成html文件的具体过程?谢谢了

答案:2 悬赏:0 手机版

解决时间 2021-07-25 21:52

提问者网友：人生佛魔见
2021-07-25 10:03

最佳答案

五星知识达人网友：过活
2021-07-25 10:17

如果只是输出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
%>

如果你运行时出现什么语句未结束问题，你可以把里的空去掉。
重新进行换行。

全部回答

1楼网友：洎扰庸人
2021-07-25 11:28

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对象

已经很简单

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息