• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    Asp Access 创建静态文件/HTML
    作用说明: 
    本代码实现从 Access 提取数据以创建 HTML 文件, 不建文件夹.
    如果文件名与要创建的文件名相同, 则覆盖, 跟 SQL 的更新一样的原理.

    待加功能: 删除与查找. 
    复制代码 代码如下:


    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '
    ' subject : Asp 创建静态文件/HTML By Stabx
    '
    ' writer : Stabxshawl.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 %>
    上一篇:access数据库的一些少用操作,ASP,创建数据库文件,创建表,创建字段,ADOX
    下一篇:如何在 Access 2003 和 Access 2002 中创建 DSN 的连接到 SQLServer 对链接表
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    Asp Access 创建静态文件/HTML Asp,Access,创建,静态,文件,