利用ASP+XML自动生成静态HTM

原创 2004年09月16日 10:47:00

昨晚花了两个小时时间做了一个小例子。功能:接收表单传值生成临时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)

%>

<!--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>")
%>

利用ASP+XML自动生成静态HTM

接收表单传值生成临时XML文件,结合XSL,生成静态HTML文件。!--process.asp用于生成临时XML文件,并生成静态HTML文件-->!--#include file="conn.inc"...
  • ycyangcai
  • ycyangcai
  • 2007年07月28日 12:28
  • 777

利用ASP+XML自动生成静态HTM

用于生成临时XML文件,并生成静态HTML文件-->author=request.form("n_author")title=request.form("n_title")content=reques...
  • jeremychin
  • jeremychin
  • 2004年11月26日 14:10
  • 767

一段asp查询xml的代码,实现了无刷新查询,模糊查询功能。

不刷新页面查询的方法 function loadinsel() {   var employeeid,employeelastname;          //分别存放雇员ID和雇员名字   root...
  • HHH3000
  • HHH3000
  • 2004年09月27日 10:17
  • 2427

静态页htm传参数 .

//从转向过来的URL中截取参数 开始 function SplitUrl(key) { var fstr=key; var getstr=''; var url=document.URL.toS...
  • xintingandzhouyang
  • xintingandzhouyang
  • 2011年07月10日 12:54
  • 231

asp网页生成静态htm文件的方法

目前生成静态的ASP大概有三种例子:1将下面存为一个ASP文件即可,IIS只要开启了FSO就可以测试运行:filename="test.htm" 设置生成的文件名if request("body")s...
  • SDTerminator
  • SDTerminator
  • 2007年11月25日 18:57
  • 1752

js静态页面间的传值

一:JavaScript静态页面值传递之URL篇 能过URL进行传值.把要传递的信息接在URL上. 例子: 参数传出页面Post.htm—>   function Post(...
  • huangshunle
  • huangshunle
  • 2012年03月07日 21:16
  • 4238

静态页htm传参数

//从转向过来的URL中截取参数 开始function SplitUrl(key){ var fstr=key; var getstr='';var url=document.URL.toString...
  • owner188
  • owner188
  • 2010年06月07日 22:59
  • 130

静态页htm传参数

//从转向过来的URL中截取参数 开始function SplitUrl(key){ var fstr=key; var getstr=;var url=document.URL.toString()...
  • 21aspnet
  • 21aspnet
  • 2007年03月22日 22:17
  • 3130

定时自动生成静态页面-(htm页面自动生成器)

由于自己公司有服务器,而公司的网站首页的庞大,造成了下载实在太慢,将其转换为htm静态页面则成为必然,然而又不想经常的人为进行更新,所以做了这个小软件,如果您有和我一样需求的话,不妨拿去试试。目前功能...
  • try530
  • try530
  • 2006年09月16日 02:29
  • 14184

利用IIS 404自动生成静态页

文件: 404_Install.ashx[code=c#]using System;using System.Web;using System.Net;using System.IO;using Sy...
  • bingo_
  • bingo_
  • 2010年09月21日 22:19
  • 317
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:利用ASP+XML自动生成静态HTM
举报原因:
原因补充:

(最多只允许输入30个字)