إنشاء ملفات JS مع ASP+FSO

复制代码代码如下: <!-#includefile = "conn.asp"->

<٪

setjs = server.createObject ("adodb.recordset")

sql = "selectTop10*fromarticleDerByidDesc"

setjs = conn.execute (SQL)

dowhilenotjs.eof

العنوان = JS ("العنوان")

addate = js ("addate")

foolcat = foolcat+"<li> <hhref =" "/" & js ("id") & ".

JS.Movenext

حلقة

'生成 JS 文件

foolcat = ""+foolcat+""

foolcat = "document.write ('" & foolcat & "')"

المجلد = server.mappath ("./")

setfso = server.createObject ("scripting.filesystemObject")

setFout = fso.createTextFile (FolderPath & "/top10.js")

fout.writeLineFoolcat

'关闭连接

fout.close

setFout = لا شيء

JS.Close

setjs = لا شيء

conn.close

setConn = لا شيء

٪>