用户中心  购物篮
会员登陆  收藏夹
  精灵电子元件网购商城是专业的电子元件批发、零售、网购服务的网站,本商城主要在线销售小家电产品,电子制作小产品,网上购物流行商品,以及数码产品和电脑产品家电维修配件电子元件等等,提供个人以及团体网上最实惠、最安全的购物环境,奉献给广大的网上购物消费者最贴心的服务和最实惠的商品。精灵电子元件物商城的网上购物:价格最低!质量最好!服务最优! 电子元件邮购 小电器,家用电器,网上购物,购物商城。 精灵电子
     星期五
 您的位置: 杭州精灵电子>>ASP+XML自动生成静态HTM
   后您也可以发表文章的哦ASP+XML自动生成静态HTM

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

 
发布人:admin 发布时间:2006年11月10日 已被浏览 1065
上一篇彩电专用防雷器
下一篇芯片做在玻璃上
友情链接: 电子制作实验室 互易中国 淘宝店 神州宏网 波茵电子 耐王科技淘宝店 电子套件DIY
查ip手机 百度搜索 51单片机论坛 立创EDA开源 
客服:286124798@qq.com  点击这里给我发消息 旺旺: 点击这里给我发消息
© 杭州精灵电子  页面执行时间 109.375 毫秒 访问量:23583277 
本站淘宝店地址:http://shop34111169.taobao.com/  杭州电子市场
   浙ICP备17031801号