用ASP+FSO组成JS文件

用ASP+FSO组成JS文件：

代码如下:<!--#include file="conn.asp"--> 

<% 

set js = server.CreateObject("ADODB.RecordSet") 

sql="select top 10 * from article order by id desc" 

set js = conn.Execute (Sql) 

do while not js.eof 

    title=js("title") 

addate=js("addate") 

foolcat = foolcat + "<li><a href=""/"& js("id")&".htm"">" &title&" "&addate&"</a></li><br>"  

js.movenext 

loop 

'生成JS文件 

foolcat = "" + foolcat + "" 

foolcat = "document.write('" & foolcat & "')" 

FolderPath = Server.MapPath("./") 

Set fso = Server.CreateObject("Scripting.FileSystemObject") 

Set fout = fso.CreateTextFile(FolderPath&"/top10.js") 

fout.WriteLine foolcat 

'关闭连接 

fout.close 

set fout = nothing 

js.close 

set js = nothing 

conn.close 

set conn=nothing 

%> 

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!