asp下用fso生成js文件的代码
更新时间：2008年06月24日 23:47:54 作者：
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%>
<%
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中经常用的到呢，大家可以收藏一下经常查询下2008-11-11
ASP向Excel导数据(图片)终结版 ASP操作Excel
ASP向Excel导数据(图片)终结版 ASP操作Excel，需要的朋友可以参考下。2009-11-11
关于网站文件自动备份程序的一点思考...2006-12-12
ASP.NET MVC+EntityFramework图片头像上传功能实现
这篇文章主要介绍了ASP.NET MVC+EntityFramework图片头像上传功能实现，本文通过实例代码给大家介绍的非常详细，对大家的学习或工作具有一定的参考借鉴价值,需要的朋友可以参考下2023-12-12![一个改进的ASP生成SQL命令字符串类的代码[已测]](//img.jbzj.com/images/xgimg/bcimg4.png)
网上找资料发现的，但是调试的时候发现有一些问题，改了一下，还有一定的问题，但是可以做一般使用了。没有考虑数据类型的问题，还有SQL Server 和access的区别，以后有时间再改进吧，不知道效率怎么样。如果有朋友改进，也麻烦给我发一份2011-12-12
这篇文章主要介绍了ASP中限制某些字符留言评论,原理就是通过instr函数查找。感觉很简单，写起来还是有点手生，感觉阿会南2014-07-07
编写通用的asp防注入程序...2007-03-03
本类部分借鉴 walkmanxml数据缓存类，使用更为方便 欢迎各位交流进步2008-12-12
这篇文章主要介绍了.Net部署Docker-v指令使用，本文给大家介绍的非常详细，对大家的学习或工作具有一定的参考借鉴价值，需要的朋友可以参考下2023-04-04
飞云写的防CC攻击的ASP程序插件 打包下载...2007-07-07
![一个改进的ASP生成SQL命令字符串类的代码[已测]](http://img.jbzj.com/images/xgimg/bcimg4.png)
最新评论