录入的内容,自动生成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 "<html><head><title>"
htmout.write request.form("title")
htmout.write "</title></head><body>新闻标题:"
htmout.write request.form("title")
htmout.write "<br>内容(body):"
htmout.write request.form("body")
htmout.write "</body></html>"
htmout.close
set htmout=nothing
set objfso=nothing
end if
%>
<form name="form1" method="post" action="">
<table width="300" border="0" align="center">
<tr>
<td align="right">标题:</td>
<td colspan="2"><input name="title" size=18></td>
</tr>
<tr>
<td align="right">内容:</td>
<td colspan="2"><textarea name="body"></textarea></td>
</tr>
<tr>
<td align="right"> </td>
<td><input type="submit" name="Submit" value="生成"></td>
<td><a href="<%=filename%>" target="_blank">查看输出的文件</a></td>
</tr>
</table>
<br>
<br>
<br>
</form>
录入的内容,自动生成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 "<html><head><title>"
htmout.write request.form("title")
htmout.write "</title></head><body>新闻标题:"
htmout.write request.form("title")
htmout.write "<br>内容(body):"
htmout.write request.form("body")
htmout.write "</body></html>"
htmout.close
set htmout=nothing
set objfso=nothing
end if
%>
<form name="form1" method="post" action="">
<table width="300" border="0" align="center">
<tr>
<td align="right">标题:</td>
<td colspan="2"><input name="title" size=18></td>
</tr>
<tr>
<td align="right">内容:</td>
<td colspan="2"><textarea name="body"></textarea></td>
</tr>功能:接收表单传值生成临时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>")
%>
<tr>
<td align="right"> </td>
<td><input type="submit" name="Submit" value="生成"></td>
<td><a href="<%=filename%>" target="_blank">查看输出的文件</a></td>
</tr>
</table>
<br>
<br>
<br>
</form>