<!--#include file="conn.asp"--> 
<% 
set js = server.CreateObject("ADODB.RecordSet") 
sql="select * from ad where state=-1" 
set js = conn.Execute (Sql)  

do while not js.eof
 content=js("content") 
foolcat = content  

foolcat = "document.write(""" & foolcat & """)" 
response.Write(foolcat&chr(13))
FolderPath = Server.MapPath("./") 
Set fso = Server.CreateObject("Scripting.FileSystemObject") 
Set fout = fso.CreateTextFile(FolderPath&"\js\"&js("id")&".js") 
fout.WriteLine foolcat
 js.movenext 
loop
'关闭连接 
fout.close 
set fout = nothing 
js.close 
set js = nothing 
conn.close 
set conn=nothing 
%>