1+1=

<% 
set js = server.CreateObject("ADODB.RecordSet") 
sql="select * from ad where id="&request("id") 
set js = conn.Execute (Sql)  
content=js("content") 
foolcat = content  

'生成JS文件 
foolcat = "" + foolcat + "" 
'foolcat=txt.ReadLine
foolcat=replace(foolcat,"/","//")
foolcat=replace(foolcat,"'","/'")
'关键下面的代码一定要写上.
foolcat=replace(foolcat,Chr(13)&Chr(10) ,"")

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