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

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

作者: 来源: 时间: 17-11-23 15:48:44

<%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%>
11
22
33
隐藏区块

会员注册

本功能为预留功能,暂不支持注册 ^_^

Login

社交帐号登陆

使用以下任意帐号可登陆本站

Close section
Close

联系我们

关于5UCMS 您有任何需求 均可以留言给我们