用ASP+FSO生成JS文件
2018-09-06 11:04
阅读：520
复制代码 代码如下:<!--#includefile=conn.asp-->
<%
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
%>
评论
亲，登录后才可以留言！