如何执行一个ASP功能,将一个asp页面执行过的生成html代码保存为html文件。

sfhq 2002-05-17 10:25:24
有一个动态的asp文件,生成联动菜单,执行效率比较慢,用运行此页面再将此页面html的源代码另存为HTML页面的方法可以提高执行效率,现在想自动生成此HTML页面,不用再另存为的放式。我自己想的方法是向同名的HTML页面写入生成的代码,用textstream对象,有没有人实现过,希望得到您的帮助。
...全文
137 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
sfhq 2002-05-22
<%
set MyFileObject=server.createobject("Scripting.FileSystemObject")
set MyTextFile=MyFileObject.CreateTextFile("c:\test\test.htm")

MyTextFile.WriteLine("<html>")
MyTextFile.WriteLine("<head>")
MyTextFile.WriteLine("</head>")
MyTextFile.WriteLine("<body>")
……
MyTextFile.WriteLine("</body>")
MyTextFile.WriteLine("</html>")
MyTextFile.close
%>
唉,苦命啊,就是这样就可以写出来了,谢谢大家了,所以把代码贴出来给大家看看。
回复
coffee_cn 2002-05-17
Function newsTextFun(strTitle,strTime,strContent,strPic,strTemplate)
strNews = "<HTML><HEAD><TITLE>" & strTitle & "</TITLE></HEAD><BODY>"

If strTemplate = "0" Then
strNews = strNews & "<DIV ALIGN='CENTER'><TABLE BORDER='0' CELLPADDING='0' CELLSPACING='0' WIDTH='96%'><TR>"
strNews = strNews & "<TD WIDTH='100%'>"
strNews = strNews & "<P ALIGN='CENTER'><B>" & strTitle & "</B></P>"
strNews = strNews & "<P ALIGN='CENTER' STYLE='FONT-SIZE:13PX;'>" & strTime & "</P>"
strNews = strNews & "<P ALIGN='CENTER'><IMG SRC='IMAGES\" & strPic &"' ALT='ZOOM OUT'></IMG></P>"
strNews = strNews & strContent
strNews = strNews & "</TD></TR></TABLE></DIV>"

' ****** ADD THE FOOT BAR ************
'strNews = strNews & "<BR><DIV ALIGN='RIGHT'><TABLE BORDER='0' CELLPADDING='0' CELLSPACING='0' WIDTH='96%'><TR>"
'strNews = strNews & "<TD WIDTH='100%' ALIGN='RIGHT'><P ALGIN='RIGHT' STYLE='FONT-SIZE:13PX;'>"
'strNews = strNews & "【<A HREF='sendme.asp?newsTitle='" & strTitle &"'><FONT COLOR='BLACK'>发到信箱</FONT></A>】  "
'strNews = strNews & "【<A HREF='#' ONCLICK='javascript:window.print();'><FONT COLOR='BLACK'>打印文档</FONT></A>】  "
'strNews = strNews & "【<A HREF='send.asp?newsTitle='" & strTitle & "'><FONT COLOR='BLACK'>推荐朋友</FONT></A>】  "
'strNews = strNews & "【<A HREF='#' ONCLICK='javascript:window.close();'><FONT COLOR='BLACK'>关闭窗口</FONT></A>】  "
'strNews = strNews & "</P></TD></TR></TABLE></DIV>"
ElseIf strTemplate = "1" Then

ElseIf strTemplate = "2" Then

ElseIf strTemplate = "3" Then

ElseIf strTemplate = "4" Then

Else

End IF
strNews = strNews & "</BODY></HTML>"
newsTextFun = strNews
End Function

newsText = newsTextFun(newsTitle,newsTime,newsContent,newsPic,newsTemplate)
Set fso = CreateObject("Scripting.FileSystemObject")
Set out = fso.CreateTextFile(strNewsFile)
out.Write newsText
out.Close
set out = Nothing
回复
silentlamb 2002-05-17
不是很复杂呀,就用标准的fso操作就可以了,先用一个字符串对象保存生成的内容,然后写入到一个file中就行了,用textstream对象不如直接用file方便
回复
sfhq 2002-05-17
同意你的看法,但是现在需要短时间解决这个问题,我也想用ASP实现,当作一个功能的实现方式,现在再去动原代码,时间上也来不及了。
回复
freezwy 2002-05-17
建议使用JS数组来解决这个问题,效果非常好,你使用STREAM也不能提高很多的。
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2002-05-17 10:25
社区公告
暂无公告