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%>

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!