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

发布时间：2023-05-24 13:50:45 所属栏目：Asp教程来源：

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

<%sub fsojs()%>

<%

Set fso= Server.CreateObject("Scripting.FileSystemObject")

set fd=fso.createtextfile(server.MapPath("../category.js"),true)

'开始

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

（编辑：聊城站长网）

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