服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|JAVA教程|ASP教程|

服务器之家 - 编程语言 - ASP教程 - 用ASP+FSO生成JS文件

用ASP+FSO生成JS文件

2019-10-31 13:22asp教程网 ASP教程

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

 

延伸 · 阅读

精彩推荐