利用ASP+XML自动生成静态HTM
来源:互联网 发布:linux elementary os 编辑:程序博客网 时间:2024/05/21 10:12
接收表单传值生成临时XML文件,结合XSL,生成静态HTML文件。
<!--process.asp用于生成临时XML文件,并生成静态HTML文件-->
<!--#include file="conn.inc"-->
<%
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)
%>
<!--#include file="conn.inc"-->
<%
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)
%>
<!--list.asp文件列表-->
<!--#include file="conn.inc"-->
<%response.contentType="text/html"%>
<html>
<body>
<%
response.write("<table>")
set rs=server.createobject("adodb.recordset")
rs.open "select * from news ",conn,1,1
do while not rs.eof
response.write("<tr><td><a href="&rs("url")&" target='_blank'>"&rs("title")&"</a></td></tr>")
rs.movenext
loop
response.write("</table>")
%>
<!--#include file="conn.inc"-->
<%response.contentType="text/html"%>
<html>
<body>
<%
response.write("<table>")
set rs=server.createobject("adodb.recordset")
rs.open "select * from news ",conn,1,1
do while not rs.eof
response.write("<tr><td><a href="&rs("url")&" target='_blank'>"&rs("title")&"</a></td></tr>")
rs.movenext
loop
response.write("</table>")
%>
- 利用ASP+XML自动生成静态HTM
- 利用ASP+XML自动生成静态HTM
- 利用ASP+XML自动生成静态HTM
- ASP生成静态htm页面基本代码!
- ASP生成静态htm页面基本代码!
- ASP生成静态htm页面基本代码!
- ASP生成静态htm页面基本代码
- ASP生成静态htm页面基本代码!
- 利用asp 自动生成静态网页视频讲解
- 定时自动生成静态页面-(htm页面自动生成器)
- 动态ASP网站生成HTM、HTML静态网站方法
- Asp.net生成htm静态文件的两种途径
- Asp.net生成htm静态文件的两种途径
- Asp.net生成htm静态文件的两种途径
- Asp.net生成htm静态文件的两种途径
- Asp.net生成htm静态文件的两种途径
- Asp.net生成htm静态文件的两种途径
- asp网页生成静态htm文件的方法
- 打包Jar文件
- 编程语言的三个定理
- 好书共享: 《感受微软:比尔.盖茨的12个小秘密》
- 梁冬专访:做搜索行业的,是神职人员,干的事情是符合神的要求(转载)
- php中文乱码问题
- 利用ASP+XML自动生成静态HTM
- 写好代码十个秘诀
- Text Speech Engine试用小结
- 关于用户角色权限的一点想法
- 一道清华的上机题目
- ubuntu下安装oracle10g客户端
- 开始一次C++的旅行
- Windows Mobile 7.0最新消息!!
- 从追MM谈Java的23种设计模式