濮阳杆衣贸易有限公司

主頁(yè) > 知識(shí)庫(kù) > Asp Access 創(chuàng)建靜態(tài)文件/HTML

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

熱門標(biāo)簽:金昌電話機(jī)器人價(jià)格 縣域地圖標(biāo)注打印店 個(gè)人可以辦理400電話么 怎么在地圖標(biāo)注自己 鳳臺(tái)百度地圖標(biāo)注店 修改地圖標(biāo)注 武夷山旅游地圖標(biāo)注 外呼系統(tǒng)API接口 萊西電子地圖標(biāo)注
作用說(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 : Stabxshawl.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 %>

標(biāo)簽:南京 赤峰 邢臺(tái) 涼山 楚雄 清遠(yuǎn) 通遼 上海

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《Asp Access 創(chuàng)建靜態(tài)文件/HTML》,本文關(guān)鍵詞  Asp,Access,創(chuàng)建,靜態(tài),文件,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無(wú)關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《Asp Access 創(chuàng)建靜態(tài)文件/HTML》相關(guān)的同類信息!
  • 本頁(yè)收集關(guān)于Asp Access 創(chuàng)建靜態(tài)文件/HTML的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章
    兴海县| 海丰县| 永春县| 九龙坡区| 聂荣县| 乐昌市| 醴陵市| 陇西县| 许昌县| 阿巴嘎旗| 海原县| 宾阳县| 开鲁县| 上高县| 宣化县| 黄山市| 永福县| 沙田区| 宜兰市| 宜良县| 马尔康县| 杭锦后旗| 文登市| 松滋市| 延安市| 安岳县| 宜君县| 德昌县| 清流县| 玉树县| 景泰县| 黄龙县| 靖安县| 海原县| 新田县| 兴和县| 汉中市| 龙岩市| 嘉鱼县| 甘泉县| 含山县|