作家
登录

Asp Access 创建静态文件/HTML

作者: 来源:www.28hudong.com 2013-03-30 08:58:12 阅读 我要评论

作用说明: 本代码实现从 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 %>

  推荐阅读

  Response.Flush的使用心得

很多时候我们写的asp程序会因为做很多操作,所以会花上一分钟甚至几分钟时间。为了使软件使用者能够耐心的等待程序的执行,我们经常会希望有一个进度条来表示程序执行的状态。或者最起码要显示一个类似: “数据载>>>详细阅读


本文标题:Asp Access 创建静态文件/HTML

地址:http://www.17bianji.com/kaifa2/ASP/33058.html

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)