Asp Access 创建静态文件/HTML

204 阅读 0 评论 135 点赞

我是靠谱客的博主重要唇彩，最近开发中收集的这篇文章主要介绍Asp Access 创建静态文件/HTML，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

作用说明:
本代码实现从 Access 提取数据以创建 HTML 文件, 不建文件夹.
如果文件名与要创建的文件名相同, 则覆盖, 跟 SQL 的更新一样的原理.

待加功能: 删除与查找.

复制代码代码如下:

<%  
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
' 
' subject : Asp 创建静态文件/HTML By Stabx 
' 
' writer : Stabx<shawl.qiu@gmail.com> 
' 
' blog : http://btbtd.exblog.jp/ ; 
' 
' blog/site : Phoenix.GI - P.GI / \ 绿色学院 - Green Institute 
' 
' date : 2006-5-22 
' 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
Set rs = Server.CreateObject("ADODB.Recordset") 
sql = "select top 10 * from (select top 3500 * from ctarticle order by articleid asc) order by articleid desc" '子查询, 目前被认为比恐龙还恐龙 
rs.Open sql, MM_conn_string,1 
while not rs.eof '循环创建查询的全部记录为 HTML 文件 
cid_=rs("classid") 
ncid_=rs("nclassid") 
aid_=rs("articleid") 
adt_=rs("dateandtime") 
tt_=rs("title") 
ct_=rs("content") 
'em_=htmlToText(rs("email")) 
'ht_=rs("hits") 
'url_=rs("url") 
'src_=rs("www") 
'au_=htmlToText(rs("writer")) 

response.write "<a href=""" & cid_ & "_"&ncid_&"_"&aid_&".htm"" target=""_blank"">"&cid_ & "_"&ncid_&"_"&aid_& ".htm</a> created at " & now() & "<br>" '链接创建好的文件 

cfilename= cid_& "_"&ncid_&"_"&aid_& ".htm" '命名要创建的文件名 

set dfso = createobject("scripting.filesystemobject") 
Set chtml = dfso.CreateTextFile(server.mappath(cfilename), true)'存在即覆盖 
chtml.WriteLine("<html><head>") 
chtml.WriteLine("<link rel='stylesheet' type='text/css' href='../css/css_first/ctarticle.css'>") 
chtml.WriteLine("<title>"&sitename_&" "&tt_&"</title>") 
chtml.WriteLine("</head><body>") 
chtml.WriteLine("title: " & tt_& "<p/>" ) 
chtml.WriteLine("content: " & ct_& "<p/>" ) 
chtml.WriteLine("created by cid:"&cid_&" ncid:"&ncid_&" aid:"&aid_&" 
") 
aid_=clng(aid_) 
chtml.WriteLine("Page created on: " & now ()) 
chtml.WriteLine("</body></html>") 
chtml.close 
rs.movenext 
wend 
rs.close 
set rs=nothing %>