asp下使用fso生成js代码的方法<%sub fsojs()%>
<%
Establecer fso= Server.CreateObject(Scripting.FileSystemObject)
establecer fd=fso.createtextfile(servidor.MapPath(../categoría.js),verdadero)
'开始操作
establecer rs=servidor.CreateObject(adodb.recordset)
rs.Open seleccione * de dept_category,conn,1,1
str=var onecount;&vbcrlf&onecount=0;&vbcrlf&subcat = new Array();
para i=1 a rs.recordcount
str=str&vbcrlf&subcat[&(i-1)&] = new Array('&rs(categoría)&','&rs(parentid)&','&rs(categoría)&');
rs.movenext
Próximo
str=cadena&vbcrlf& onecount=&rs.recordcount&;&vbcrlf
cadena fd.writeline
%>
<%fin del sub%>