%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