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

也想出现在这里？点击联系我~

1. <%subfsojs()%>
2. <%
3. Setfso=Server.CreateObject("Scripting.FileSystemObject")
4. setfd=fso.createtextfile(server.MapPath("../category.js"),true)
6. '开始操作
7. setrs=server.CreateObject("adodb.recordset")
8. rs.Open"select*fromdept_category",conn,1,1
9. str="varonecount;"&vbcrlf&"onecount=0;"&vbcrlf&"subcat=newArray();"
11. fori=1tors.recordcount
12. str=str&vbcrlf&"subcat["&(i-1)&"]=newArray('"&rs("category")&"','"&rs("parentid")&"','"&rs("categoryid")&"');"
13. rs.movenext
14. Next
15. str=str&vbcrlf&"onecount="&rs.recordcount&";"&vbcrlf
16. fd.writelinestr
18. %>
19. <%endsub%>