Asp Access 創(chuàng)建靜態(tài)文件/HTML

更新時(shí)間：2006年10月13日 00:00:00 作者：

作用說(shuō)明:
本代碼實(shí)現(xiàn)從 Access 提取數(shù)據(jù)以創(chuàng)建 HTML 文件, 不建文件夾.
如果文件名與要?jiǎng)?chuàng)建的文件名相同, 則覆蓋, 跟 SQL 的更新一樣的原理.

待加功能: 刪除與查找.

復(fù)制代碼代碼如下:

<%  
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
' 
' subject : Asp 創(chuàng)建靜態(tài)文件/HTML By Stabx 
' 
' writer : Stabx<shawl.qiu@gmail.com> 
' 
' blog : http://btbtd.exblog.jp/ ; 
' 
' blog/site : Phoenix.GI - P.GI / \ 綠色學(xué)院 - 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" '子查詢, 目前被認(rèn)為比恐龍還恐龍 
rs.Open sql, MM_conn_string,1 
while not rs.eof '循環(huán)創(chuàng)建查詢的全部記錄為 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>" '鏈接創(chuàng)建好的文件 

cfilename= cid_& "_"&ncid_&"_"&aid_& ".htm" '命名要?jiǎng)?chuàng)建的文件名 

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 %>