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

　　<%sub fsojs()%>

　　<%

　　Set fso= Server.CreateObject("Scripting.FileSystemObject")

　　set fd=fso.createtextfile(server.MapPath("../category.js"),true)

　　'开始操作

　　set rs=server.CreateObject("adodb.recordset")

　　rs.Open "select * from dept_category",conn,1,1

　　str="var onecount;"&vbcrlf&"onecount=0;"&vbcrlf&"subcat = new Array();"

　　for i=1 to rs.recordcount

　　str=str&vbcrlf&"subcat["&(i-1)&"] = new Array('"&rs("category")&"','"&rs("parentid")&"','"&rs("categoryid")&"');"

　　rs.movenext

　　Next

　　str=str&vbcrlf&" onecount="&rs.recordcount&";"&vbcrlf

　　fd.writeline str

　　%>

　　<%end sub%>