ASP生成静态HTML文件大荟萃【一】

来源：百度文库 编辑：神马文学网 时间：2024/04/29 04:10:12
ASP生成静态HTML文件大荟萃【一】

录入的内容,自动生成html文件.

程序代码<%
filename=year(now)&month(now)&day(now)&minute(now)&".htm" '根据当前时间生成文件名
if request("body")<>"" then
set objfso = Server.CreateObject("Scripting.FileSystemObject") '创建一个fso实例
set htmout = objfso.CreateTextFile(server.mappath(""&filename&""))
htmout.write ""<br>htmout.write request.form("title") <br>htmout.write "新闻标题:"
htmout.write request.form("title")
htmout.write "
内容(body):"
htmout.write request.form("body")
htmout.write ""
htmout.close
set htmout=nothing
set objfso=nothing
end if
%>
















标题:
内容:
查看输出的文件







 

 

录入的内容,自动生成html文件.

程序代码<%
filename=year(now)&month(now)&day(now)&minute(now)&".htm" '根据当前时间生成文件名
if request("body")<>"" then
set objfso = Server.CreateObject("Scripting.FileSystemObject") '创建一个fso实例
set htmout = objfso.CreateTextFile(server.mappath(""&filename&""))
htmout.write ""<br>htmout.write request.form("title") <br>htmout.write "新闻标题:"
htmout.write request.form("title")
htmout.write "
内容(body):"
htmout.write request.form("body")
htmout.write ""
htmout.close
set htmout=nothing
set objfso=nothing
end if
%>










功能：接收表单传值生成临时XML文件，结合XSL，生成静态HTML文件。


<%
author=request.form("n_author")
title=request.form("n_title")
content=request.form("n_content")
tempXml=replace( replace( replace (now,":",""), "-", ""), " ", "") & ".xml"
dim objdom
set objdom=server.createobject("Microsoft.XMLDOM")
dim objroot
set objroot=objdom.createElement("moonpiazza")
objdom.appendchild objroot

Set objPI = objDom.createProcessingInstruction("xml","version='1.0'")
objDom.insertBefore objPI, objDom.childNodes(0)

dim objbook
set objbook=objdom.createElement("book")
objroot.appendchild objbook

set objtit=objdom.createElement("书名")
objtit.text=title
objbook.appendchild objtit

set objaut=objdom.createElement("作者")
objaut.text=author
objbook.appendchild objaut

set objpri=objdom.createElement("定价")
objpri.text=content
objbook.appendchild objpri

'生成临时XML放于TEMP文件夹下

objdom.save(server.mappath("temp/"&tempXml))

'//以下部分为生成htm部分
cHtmLFile = replace( replace( replace (now,":",""), "-", ""), " ", "") & ".htm"

cXMLFile =server.mappath("temp/"&tempXml)
cXSLFile = Server.MapPath("book.xsl")
cOutputFile = Server.MapPath("news/"&cHtmLFile)

Set oXML = Server.CreateObject("Microsoft.XMLDOM")
oXML.async = false
oXML.load(cXMLFile)

Set oXSL = Server.CreateObject("Microsoft.XMLDOM")
oXSL.async = false
oXSL.load(cXSLFile)

Set oOutput = Server.CreateObject("Microsoft.XMLDOM")
Call oXML.transformNodeToObject(oXSL, oOutput)

oOutput.save (cOutputFile)

Set oXML = Nothing
Set oXSL = Nothing
Set oOutput = Nothing

sql="INSERT INTO news(author,title,content,url) values('"&author&"','"&title&"','"&content&"','news/"&cHtmLFile&"')"

conn.execute(sql)

'生成HTM文件保存到NEWS文件夹下

Response.redirect("news/"&cHtmLFile)

%>


<%response.contentType="text/html"%>


<%
response.write("

标题:
内容:
")
set rs=server.createobject("adodb.recordset")
rs.open "select * from news ",conn,1,1
do while not rs.eof
response.write("")
rs.movenext
loop
response.write("
"&rs("title")&"
")
%>

 

 




查看输出的文件








ASP生成静态HTML文件大荟萃【一】 使用ASP生成HTML文件 实例演示:使用ASP生成HTML文件 ASP.NET生成HTML静态页的一个类 实例演示:使用ASP生成HTML文件 - 商务资源网 动态生成的ASP文件转换成静态的格式 Web 开发 / ASP 通用asp生成html代码 ASP生成HTML-另一篇 通用asp生成html代码 通用asp生成html代码 不用模板，只用ASP+FSO生成静态HTML页的一个方法（对于内容密集型页面特别适用） 巧用ASP生成PDF文件 ASP生成静态网页的方法ASP技术【推荐】 ASP生成静态网页的方法ASP技术【推荐】 通用asp生成html代码--学无止境 ASP＋模版技术生成静态HTML网页实例 - 恬悟 -- IT博客－中国最具人气的IT博客－赛迪网IT人家园 JSP生成静态HTML页面的几种方法 Asp.NET 生成静态页面并分页的代码实现 Asp.NET 生成静态页面并分页的代码00 在ASP中使用FSO组件生成HTML页面 在ASP.NET中设置html文件的访问验证 生成静态页 php生成静态页 介绍一种用ASP+模板生成Word、Excel、静态页面一种简单、灵活多变的办法[原创] ...