<%subfsojs()%>
<%
Setfso=Server.CreateObject("Scripting.FileSystemObject")
setfd=fso.createtextfile(server.MapPath("../category.js"),true)

'开始操作
setrs=server.CreateObject("adodb.recordset")
rs.Open"select*fromdept_category",conn,1,1
str="varonecount;"&vbcrlf&"onecount=0;"&vbcrlf&"subcat=newArray();"

fori=1tors.recordcount
str=str&vbcrlf&"subcat["&(i-1)&"]=newArray('"&rs("category")&"','"&rs("parentid")&"','"&rs("categoryid")&"');"
rs.movenext
Next
str=str&vbcrlf&"onecount="&rs.recordcount&";"&vbcrlf
fd.writelinestr

%>
<%endsub%>