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

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