asp下用fso生成js文件的代码
2008-06-24 23:47
615 查看
<%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%>
<%
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%>
相关文章推荐
- asp下用fso生成js文件的代码
- asp.net+js 实现无刷新上传解析csv文件的代码
- ASP FSO删除文件(后台删除时候可加上此代码连同删除其中的文件)
- ASP.net动态加载JS代码与CSS文件
- asp利用fso给文件夹和文件改名的代码
- asp中FSO复制文件代码
- Asp.net生成JS文件调用乱码解决方法
- asp.net生成缩略图并支持文件上传实现代码
- ...后台代码中如何调用 javascript 函数的问题! - ASP.NET专题(按钮事件中调用JS文件中函数)
- asp.net后台代码动态引用添加JS和css文件
- asp.net后台代码动态添加JS文件和css文件的引用
- asp中FSO复制文件代码
- ...后台代码中如何调用 javascript 函数的问题! - ASP.NET专题(按钮事件中调用JS文件中函数)
- asp.net动态生成js文件
- Asp.net(C#)读取数据库并生成JS文件制作首页图片切换效果(附demo源码下载)
- asp利用fso给文件夹和文件改名的代码
- 用ASP动态生成JS表单验证代码
- asp.net+ajaxfileupload.js 实现文件异步上传代码分享
- ASP中如何将代码生成的文件设为只读
- asp中FSO复制文件代码