作用說明:
本代碼實現從Access提取數據以創建HTML文件,不建文件夾.
如果文件名與要創建的文件名相同,則覆蓋,跟SQL的更新一樣的原理.
待加功能:刪除與查找.
複製代碼代碼如下:
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
'subject:Asp創建靜態文件/HTMLByStabx
'
'writer:Stabx<[email protected]>
'
'blog:http://btbtd.exblog.jp/;
'
'blog/site:Phoenix.GI-P.GI//綠色學院-GreenInstitute
'
'date:2006-5-22
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Setrs=Server.CreateObject("ADODB.Recordset")
sql="selecttop10*from(selecttop3500*fromctarticleorderbyarticleidasc)orderbyarticleiddesc"'子查詢,目前被認為比恐龍還恐龍
rs.Opensql,MM_conn_string,1
whilenotrs.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"<ahref="""&cid_&"_"&ncid_&"_"&aid_&".htm""target=""_blank"">"&cid_&"_"&ncid_&"_"&aid_&".htm</a>createdat"&now()&"<br>"'鏈接創建好的文件
cfilename=cid_&"_"&ncid_&"_"&aid_&".htm"'命名要創建的文件名
setdfso=createobject("scripting.filesystemobject")
Setchtml=dfso.CreateTextFile(server.mappath(cfilename),true)'存在即覆蓋
chtml.WriteLine("<html><head>")
chtml.WriteLine("<linkrel='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("createdbycid:"&cid_&"ncid:"&ncid_&"aid:"&aid_&"
")
aid_=clng(aid_)
chtml.WriteLine("Pagecreatedon:"&now())
chtml.WriteLine("</body></html>")
chtml.close
rs.movenext
wend
rs.close
setrs=nothing%>