怎样编程生成html文件或asp文件？

vc_tapi 2002-04-23 12:07:38

我想动态生成html文件，放在dhtmlEdit中显示出来，怎么办呢？

...全文

53 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

vc_tapi 2002-04-26

打赏
举报

strTemp = "<html><head><title>下一步的学习导向</title></head>" & CR
strTemp = strTemp & "<body bgcolor=""#9693FF"">" & CR
strTemp = strTemp & "<table border=""1"" width=""100%""> " & CR
strTemp = strTemp & "<tr><td width=""16%"" rowspan=""4"">下一步的学习导向</td><td width=""15%""><p align=""center"">细化</td>" & CR
strTemp = strTemp & "<td width=""69%"">" & strSub & "</td>"
strTemp = strTemp & "</tr><tr><td width=""15%""><p align=""center"">扩展</td>" & CR
strTemp = strTemp & "<td width=""69%"">" & strBrother & "</td>"
strTemp = strTemp & "</tr><tr><td width=""15%""><p align=""center"">归纳</td>"
strTemp = strTemp & "<td width=""69%"">" & strParent & "</td>" & CR
strTemp = strTemp & "</tr><tr><td width=""15%""><p align=""center"">联想</td>" & CR
strTemp = strTemp & "<td width=""69%"">" & strRelations & "</td>"
strTemp = strTemp & "</tr></table></body></html>"

DHTMLEdit1.SaveDocument (App.Path & "\new.htm")
DHTMLEdit1.DocumentHTML = strTemp

生成的内容可以看到，为什么不能存为新文件呢？SaveDocument 的确新建了一个文件，但内容却是空的，不知为什么？

vc_tapi 2002-04-26

打赏
举报

这个问题已经解决，下面这段代码可以显示一个框架网页。
Private Sub Command1_Click()
Dim str As String

str = "<html><head><title>e-learning Show</title></head>" & vbCr
str = str & "<frameset rows=""*,25%""><frame name=""main"" target=""footnotes"" src=""contents.htm""> "
str = str & "<frame name=""footnotes"" src=""Next.htm"">" & vbCr
str = str & "<noframes><body></body></noframes></frameset></html>"

dhtmledit1.DocumentHTML = str
End Sub
以上代码可以工作了，我把一个框架网页的代码赋给dhtmledit1.DocumentHTML ，结果把这个网页显示出来了。

用dhtmledit的好处，正是看中他可以把程序中动态的内容以html的格式显示出来。上面的框架网页有两个html文件组成：contents.htm和Next.htm。我想做的是，contents.htm是已经做好的（文件名不是这个），文件名和路径放到数据库中，程序决定调哪一个。Next.htm这个网页的路径和名字是固定的，但内容由程序生成。
所以，我要编程来生成一个Next.htm文件。那么怎么做呢？

liuzhanwen 2002-04-24

打赏
举报

lovingkiss 2002-04-24

打赏
举报

要是在线编辑器dhtmlEdit就简单啦，我有自己改编过的VBScript完全的代码；

lovingkiss 2002-04-24

打赏
举报

可能你说的不是我用的那个网页上编辑文本的控件？类似于在网页上的编辑器啊；有Text域，但是没有这个属性罢了；
例如：
form.textContent.innertext=dhtmlEdit.document.all(""tbContentElement"").DocumentHTML
或许我们说的不是一样的东西吧

vc_tapi 2002-04-24

打赏
举报

lovingkiss(醉卧他乡) ：
dhtmlEdit没有Text域，不知道要把StrTemp赋给什么？
dhtmledit要的是个URL吧。

lovingkiss 2002-04-23

打赏
举报

不用生成文件的，我经常用的；
用个字符串，
Dim StrTemp as string
StrTemp="<html>"
StrTemp=StrTemp & Vbcrlf & "<Body>"
StrTemp=StrTemp & Vbcrlf & "...其它内容"
StrTemp=StrTemp & Vbcrlf & "</Body></Html>"
然后对DhtmlEdit服值就可以啦；简单得很

hardwork 2002-04-23

打赏
举报

用VB 的文件系统在硬盘上写一个临时文件，
比如说：
文件对象是fso
fso.writeln("<html>")
fso.writeln("<body>")

…………………………
………………
fso.writeln("</body>")
fso.writeln("</html>")
然后再读回来啊

lou_df 2002-04-23