服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|Java教程|ASP教程|编程技术|正则表达式|C/C++|IOS|C#|Swift|Android|JavaScript|易语言|

服务器之家 - 编程语言 - ASP教程 - asp下用fso生成js文件的代码

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

2019-09-24 10:29asp代码网 ASP教程

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

  1. <%sub fsojs()%>  
  2.  <%  
  3. Set fso= Server.CreateObject("Scripting.FileSystemObject")  
  4. set fd=fso.createtextfile(server.MapPath("../category.js"),true)  
  5.  
  6. '开始操作  
  7. set rs=server.CreateObject("adodb.recordset")  
  8. rs.Open "select * from dept_category",conn,1,1  
  9. str="var onecount;"&vbcrlf&"onecount=0;"&vbcrlf&"subcat = new Array();"  
  10.  
  11. for i=1 to rs.recordcount  
  12. str=str&vbcrlf&"subcat["&(i-1)&"] = new Array('"&rs("category")&"','"&rs("parentid")&"','"&rs("categoryid")&"');"  
  13. rs.movenext  
  14. Next  
  15. str=str&vbcrlf&" onecount="&rs.recordcount&";"&vbcrlf  
  16. fd.writeline str  
  17.  
  18. %>  
  19. <%end sub%>  

延伸 · 阅读

精彩推荐