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

<
设置FSO = server.createobject（脚本。FileSystemObject ）
设置FD = fso.createtextfile（server.mappath（， /范畴。JS），真的）

启动操作
集= server.createobject（ADODB。记录集）
，打开选择*从dept_category
str =无功onecount；vbcrlfonecount = 0；vbcrlfsubcat =新的数组（）；

我rs.recordcount = 1
STR = strvbcrlfsubcat {（i-1）} =新的数组（RS（类），RS（ParentID），，RS（CategoryID））；
移到下一项
下一个
STR = strvbcrlfonecount =rs.recordcount ；vbcrlf
fd.writeline STR

%>