ASP + FSO 로 JS 파일 생 성

1092 단어

     
  
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 + "
  • " &title&" "&addate&"

  • "  
    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 
    %> 

    좋은 웹페이지 즐겨찾기