国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

用ASP+FSO生成JS文件

2024-05-04 10:58:50
字體：大 中 小
來源：轉載
供稿：網友

復制代碼 代碼如下:
<!--#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 
'關閉連接 
fout.close 
set fout = nothing 
js.close 
set js = nothing 
conn.close 
set conn=nothing 
%> 

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板： 文安县| 奇台县| 绍兴市| 延津县| 石阡县| 韶关市| 临夏县| 承德县| 镇平县| 萨迦县| 莎车县| 黄大仙区| 永年县| 宁海县| 大丰市| 达拉特旗| 龙胜| 太湖县| 津南区| 丰顺县| 右玉县| 河曲县| 衡阳市| 太仆寺旗| 定远县| 新邵县| 云霄县| 齐齐哈尔市| 凤山县| 循化| 关岭| 台南县| 鹤山市| 通城县| 岳阳市| 遵义县| 杭锦旗| 文水县| 琼中| 东方市| 永胜县|