用ASP+FSO生成JS文件
摘要:复制代码代码如下:
复制代码 代码如下:<>
<%
setjs=server.CreateObject("ADODB.RecordSet")
sql="selecttop10*fromarticleorderbyiddesc"
setjs=conn.Execute(Sql)
dowhilenotjs.eof
title=js("title")
addate=js("addate")
foolcat=foolcat+"<li><ahref=""/"&js("id")&".htm"">"&title&""&addate&"</a></li><br>"
js.movenext
loop
'生成JS文件
foolcat=""+foolcat+""
foolcat="document.write('"&foolcat&"')"
FolderPath=Server.MapPath("./")
Setfso=Server.CreateObject("Scripting.FileSystemObject")
Setfout=fso.CreateTextFile(FolderPath&"top10.js")
fout.WriteLinefoolcat
'关闭连接
fout.close
setfout=nothing
js.close
setjs=nothing
conn.close
setconn=nothing
%>
【用ASP+FSO生成JS文件】相关文章:
★ 利用AdoDb.Stream对象来读取UTF-8格式的文本文件
上一篇:
把无限级分类生成数组