国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表
主站蜘蛛池模板： 铜山县| 日照市| 虹口区| 文山县| 玉龙| 平乡县| 工布江达县| 西充县| 衡阳县| 东乌珠穆沁旗| 资溪县| 彰化县| 商水县| 贡山| 巧家县| 安国市| 义乌市| 贵港市| 云南省| 屏东市| 新疆| 富蕴县| 大城县| 南开区| 和平区| 扶绥县| 潢川县| 揭东县| 婺源县| 吉隆县| 九江县| 高雄市| 库尔勒市| 平山县| 德庆县| 榆中县| 永昌县| 耒阳市| 芜湖县| 阿克陶县| 兴宁市|