asp下用fso生成js文件的代碼
更新時(shí)間：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)
'開(kāi)始操作
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)
'開(kāi)始操作
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%>
相關(guān)文章
Asp函數(shù)介紹(37個(gè)常用函數(shù))
下面的函數(shù)是asp中經(jīng)常用的到呢，大家可以收藏一下經(jīng)常查詢(xún)下2008-11-11
ASP向Excel導(dǎo)數(shù)據(jù)(圖片)終結(jié)版 ASP操作Excel
ASP向Excel導(dǎo)數(shù)據(jù)(圖片)終結(jié)版 ASP操作Excel，需要的朋友可以參考下。2009-11-11
關(guān)于網(wǎng)站文件自動(dòng)備份程序的一點(diǎn)思考
關(guān)于網(wǎng)站文件自動(dòng)備份程序的一點(diǎn)思考...2006-12-12
ASP.NET?MVC+EntityFramework圖片頭像上傳功能實(shí)現(xiàn)
這篇文章主要介紹了ASP.NET?MVC+EntityFramework圖片頭像上傳功能實(shí)現(xiàn)，本文通過(guò)實(shí)例代碼給大家介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值,需要的朋友可以參考下2023-12-12![一個(gè)改進(jìn)的ASP生成SQL命令字符串類(lèi)的代碼[已測(cè)]](http://img.jbzj.com/images/xgimg/bcimg4.png)
一個(gè)改進(jìn)的ASP生成SQL命令字符串類(lèi)的代碼[已測(cè)]
網(wǎng)上找資料發(fā)現(xiàn)的，但是調(diào)試的時(shí)候發(fā)現(xiàn)有一些問(wèn)題，改了一下，還有一定的問(wèn)題，但是可以做一般使用了。沒(méi)有考慮數(shù)據(jù)類(lèi)型的問(wèn)題，還有SQL Server 和access的區(qū)別，以后有時(shí)間再改進(jìn)吧，不知道效率怎么樣。如果有朋友改進(jìn)，也麻煩給我發(fā)一份2011-12-12
這篇文章主要介紹了ASP中限制某些字符留言評(píng)論,原理就是通過(guò)instr函數(shù)查找。感覺(jué)很簡(jiǎn)單，寫(xiě)起來(lái)還是有點(diǎn)手生，感覺(jué)阿會(huì)南2014-07-07
編寫(xiě)通用的asp防注入程序...2007-03-03
本類(lèi)部分借鑒 walkmanxml數(shù)據(jù)緩存類(lèi)，使用更為方便 歡迎各位交流進(jìn)步2008-12-12
這篇文章主要介紹了.Net部署Docker-v指令使用，本文給大家介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值，需要的朋友可以參考下2023-04-04
飛云寫(xiě)的防CC攻擊的ASP程序插件 打包下載...2007-07-07