您正在使用 IPV4 [44.221.73.157] 访问本站,您本次已经查看了 1 页
用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器
[公益]保护绿色环境,构建和谐社会       悟空收录网      

【腾讯云】2核2G4M云服务器新老同享99元/年,续费同价      
[公益] 地球是我家,绿化靠大家      
2024年 七夕节 056
2025年 高 考 357
2025年 元 旦 200
2025年 春 节 228
 
您现在的位置:首页 >> ASP/ASP.net >> 内容
本类新增
本类热门
Asp Access 创建静态文件/HTML
内容摘要: 作用说明:本代码实现从Access提取数据以创建HTML文件,不建文件夹.如果文件名与要创建的文件名相同,则覆盖,跟SQL的更新一样的原理.待加功能:删除与查找.复制代码代码如下:%Setrs=Server.CreateObject('ADODB.Recordset')sql='selecttop10*from(selecttop3500*fromctart......
作用说明:

本代码实现从Access提取数据以创建HTML文件,不建文件夹.

如果文件名与要创建的文件名相同,则覆盖,跟SQL的更新一样的原理.

待加功能:删除与查找.

复制代码代码如下:

<%

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

版权声明:本内容来源于网络,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。
上一篇:Win7、win2008中让IIS7支持asp的方法

 

下一篇:让apache也支持asp环境的方法

发布日期:2024/5/22
手机扫二维码直达本页
发布时间:20:06:34
点  击:7
录  入:壹家怡园
相关文章
Baidu
YiJiaCMS 7.5.1 build240527(MSSQL) 闽ICP备05000814号-1
本空间由腾讯云(轻量应用服务器)提供,Cloudflare提供加速防护
运行时间载入中.....