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