%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=strvbcrlf"subcat["(i-1)"] = new Array('"rs("category")"','"rs("parentid")"','"rs("categoryid")"');"
rs.movenext
Next
str=strvbcrlf" onecount="rs.recordcount";"vbcrlf
fd.writeline str

%>
%end sub%>