<%subfsojs()%>
<%
Setfso=Server.CreateObject("Scripting.FileSystemObject")
setfd=fso.createtextfile(server.MapPath("../category.js"),true)
'开始操作
setrs=server.CreateObject("adodb.recordset")
rs.Open"select*fromdept_category",conn,1,1
str="varonecount;"&vbcrlf&"onecount=0;"&vbcrlf&"subcat=newArray();"
fori=1tors.recordcount
str=str&vbcrlf&"subcat["&(i-1)&"]=newArray('"&rs("category")&"','"&rs("parentid")&"','"&rs("categoryid")&"');"
rs.movenext
Next
str=str&vbcrlf&"onecount="&rs.recordcount&";"&vbcrlf
fd.writelinestr
%>
<%endsub%>
网站建设 IT知识 IT知识教程 asp下用fso生成js文件的代码 
最新文章
热门文章
猜你喜欢
