asp下用fso生成js文件的代码

时间:2022-01-27 01:39:50
  1. <%sub fsojs()%>  
  2.  <%  
  3. Set fso= Server.CreateObject("Scripting.FileSystemObject")  
  4. set fd=fso.createtextfile(server.MapPath("../category.js"),true)  
  5.  
  6. '开始操作  
  7. set rs=server.CreateObject("adodb.recordset")  
  8. rs.Open "select * from dept_category",conn,1,1  
  9. str="var onecount;"&vbcrlf&"onecount=0;"&vbcrlf&"subcat = new Array();"  
  10.  
  11. for i=1 to rs.recordcount  
  12. str=str&vbcrlf&"subcat["&(i-1)&"] = new Array('"&rs("category")&"','"&rs("parentid")&"','"&rs("categoryid")&"');"  
  13. rs.movenext  
  14. Next  
  15. str=str&vbcrlf&" onecount="&rs.recordcount&";"&vbcrlf  
  16. fd.writeline str  
  17.  
  18. %>  
  19. <%end sub%>