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

asp下使用fso生成js代码的方法

<%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=str&vbcrlf&"subcat["&(i-1)&"] = new Array('"&rs("category")&"','"&rs("parentid")&"','"&rs("categoryid")&"');" 
rs.movenext 
Next 
str=str&vbcrlf&" onecount="&rs.recordcount&";"&vbcrlf 
fd.writeline str 

%> 
<%end sub%>