大家讨论一下，ASP生成静态页面的问题吧，谁说的好，马上给分，一百

liqiang9118 2005-05-30 08:28:53

比如一个新闻管理系统，我们通过表单输入，然后插入进数据库，然后前台分别读取数据库，通过?id=多少多少的值来读取

现在很流行写html静态文件的形式来生成文件链接，

我对这块了解不够

比如news.asp是新闻页面，该页面，就是列出所有的新闻标题来；还有个是read.asp页面，他是点了新闻后的新闻内容页面

那我要专业做个生成新闻标题链接和新闻内容的程序吧！

我知道是用写文件类，先建立个文件，然后把news.asp read.asp的内容，写到这个文件里

但是我还是有点不太明白，就是各个文件的链接如何处理，还有就是news.asp read.asp，应该是写他们执行后，在页面里生成的内容吧，这写文件，如果写成静态的html呢？

还请各位朋友多多交交我

我可以免费给你赠送域名和空间

交个朋友吧！大家一起聊聊这个话题，我保证给分的

QQ：81832527

...全文

152 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

Mapleleaf123 2005-05-31

打赏
举报

Set fso = server.CreateObject("scripting.filesystemobject")
Set f1 = fso.OpenTextFile(server.MapPath("1.htm"), 2, true)
f1.Write("<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN' 'http://www.w3.org/TR/html4/loose.dtd'>")
f1.Write("<html>")
f1.Write("<head>")
f1.Write("<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>")
f1.Write("<title></title>")
f1.Write("</head>")
f1.Write("<body leftMargin=0 topMargin=0>")
f1.Write("生成测试..."&now())
f1.Write("</body>")
f1.Write("</html>")
f1.Close
Set fso = Nothing
每次提交文章后就触发这个，生成一个静态页面，并把生成这个页面的页面名写入数据库（这个名字我上面没有写好），等生成NEWTITLE的那页链接用得着....

liuweihug 2005-05-30

打赏
举报

我有一个源代码的
好像是在第一次点击的时候
生成一个html文件
以后就可以访问这个文件

butcher2002 2005-05-30

打赏
举报

'***********************************
'** 函数：Publish() **
'** 作用：将文档内容生成HTML文件 **
'** 参数：无 **
'***********************************
Sub Publish()
On Error Resume Next
If CanPublish = False then
alert("请先指定要生成的文档")
Exit Sub
End if
FilterValue = title.Value
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider= Microsoft.Jet.OLEDB.4.0; Data Source="&DBL
Set objRecordset = CreateObject("ADODB.Recordset")
objRecordset.CursorLocation = adUseClient
objRecordset.Open "select news_title,news_main from [news] where news_kill=0 and news_id="&FilterValue&" order by news_id desc" , objConnection, adOpenStatic, adLockOptimistic
objRecordSet.MoveFirst
strHTML = objRecordSet.Fields.Item("news_main")
Set objFS = CreateObject("Scripting.FileSystemObject")
strSaveFileName =FileSave
If strSaveFileName = "" Then
Exit Sub
End If
If objFS.FolderExists(strSaveFileName) = false then '判断该文件夹是否存在
objFS.CreateFolder(strSaveFileName) '新建文件夹
End If
strTmpName = objRecordSet.Fields.Item("news_title")&".htm"
Set objScript = objFS.CreateTextFile(strSaveFileName&"\"&strTmpName)
objScript.WriteLine "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>"
objScript.WriteLine "<style type='text/css'>"
objScript.WriteLine "BODY {"
objScript.WriteLine "font-size: 9pt;"
objScript.WriteLine "}"
objScript.WriteLine "TD {"
objScript.WriteLine "font-size: 9pt;"
objScript.WriteLine "}"
objScript.WriteLine "</style>"
objScript.WriteLine "<body>"
objScript.WriteLine strHTML
objScript.WriteLine "</body>"
objScript.Close
Set f = objFS.GetFolder(strSaveFileName)
s = UCase(f.Path)
MyVar = MsgBox("文件生成完毕"&chr(13)&chr(13)&s,vbInformation,VP)
objRecordSet.Close
objConnection.Close
End Sub

我写的将数据库指定字段生成HTML文件再添加一个链接就可以了~

zzhhww 2005-05-30

打赏
举报

不知道啊~~~没做过这个,帮你顶

liqiang9118 2005-05-30

打赏
举报

body=request.form("body") '这是
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath("./xxx.html"))
fout.Write request("body")
fout.close
set fout=nothing
set fso=nothing

网上找的代码是这个的，是通过表单显示，然后这个提交生成的，

但是这个提交生成的也是这个asp文件本生的代码啊，也会包括ＡＳＰ代码

我们要生成静态的HTML,应该是ＡＳＰ编译后，在ＩＥ浏览器后，通过查看源代码，得到的ＨＴＭＬ代码吧！！

这如何通过写文件的方式，写入ＡＳＰ编译后，生成ＨＴＭＬ源代码的效果呢？？？？？？？？？？？？

liqiang9118 2005-05-30