用ASP+FSO生成JS文件
更新時(shí)間：2006年11月16日 00:00:00 作者：
復(fù)制代碼 代碼如下:
<!--#include file="conn.asp"-->
<%
set js = server.CreateObject("ADODB.RecordSet")
sql="select top 10 * from article order by id desc"
set js = conn.Execute (Sql)
do while not js.eof
title=js("title")
addate=js("addate")
foolcat = foolcat + "<li><a href=""/"& js("id")&".htm"">" &title&" "&addate&"</a></li><br>"
js.movenext
loop
'生成JS文件
foolcat = "" + foolcat + ""
foolcat = "document.write('" & foolcat & "')"
FolderPath = Server.MapPath("./")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(FolderPath&"\top10.js")
fout.WriteLine foolcat
'關(guān)閉連接
fout.close
set fout = nothing
js.close
set js = nothing
conn.close
set conn=nothing
%>
<%
set js = server.CreateObject("ADODB.RecordSet")
sql="select top 10 * from article order by id desc"
set js = conn.Execute (Sql)
do while not js.eof
title=js("title")
addate=js("addate")
foolcat = foolcat + "<li><a href=""/"& js("id")&".htm"">" &title&" "&addate&"</a></li><br>"
js.movenext
loop
'生成JS文件
foolcat = "" + foolcat + ""
foolcat = "document.write('" & foolcat & "')"
FolderPath = Server.MapPath("./")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(FolderPath&"\top10.js")
fout.WriteLine foolcat
'關(guān)閉連接
fout.close
set fout = nothing
js.close
set js = nothing
conn.close
set conn=nothing
%>
相關(guān)文章
利用FSO取得BMP，JPG，PNG，GIF文件信息...2006-10-10
用XML+FSO+JS實(shí)現(xiàn)服務(wù)器端文件的
用XML+FSO+JS實(shí)現(xiàn)服務(wù)器端文件的...2006-10-10
用asp來生成xml文件，一開始我用fso,只用了寫，同時(shí)把讀文件的辦法也給大家2008-10-10
奇妙的文件系統(tǒng)對(duì)象組件...2006-10-10
遍歷目錄以及目錄下文件的函數(shù)...2006-10-10
一個(gè)實(shí)用的FSO－實(shí)時(shí)統(tǒng)計(jì)在線人數(shù)
一個(gè)實(shí)用的FSO－實(shí)時(shí)統(tǒng)計(jì)在線人數(shù)...2006-10-10
遍歷目錄以及目錄下文件的函數(shù)...2006-10-10
怎樣讀取一個(gè)文本文件的內(nèi)容?...2006-10-10
一個(gè)實(shí)用的FSO－實(shí)時(shí)統(tǒng)計(jì)在線人數(shù)
一個(gè)實(shí)用的FSO－實(shí)時(shí)統(tǒng)計(jì)在線人數(shù)...2006-10-10
硬盤文件搜索代碼（ASP類）...2006-10-10