Asp批量生成HTML,,在程序中分开单个生成,输出

Asp批量生成HTML,,在程序中分开单个生成,输出,   
  有一段<script>function   onDownloadDone(downDate){showImport.innerHTML=downDate}oDownload.startDownload   
  ('test.asp?id="&rs("id")&"',onDownloadDone)</script>   
  在程序中怎么用呢,   
  do   while   not   rs.eof   
  .......   
        filepath="/house/list"&rs("id")&".htm"     
        Set   fout   =   fso.CreateTextFile(Server.MapPath(filepath))   
          fout.writeline   okfile   
          fout.close         
  set   fso=nothing   
  set   fout=nothing   
  rs.movenext   
  loop   
  怎么和那段<srcript>......</script>联在一起应用呢,   
  如果用一般的方法生成时间太长了的啊,,应用到这<srcript>.....</script>单个生成就会更快的啊,,不会怎么应用,,大哥们帮帮忙,,,,,