用ASP+FSO生成JS文档
发布时间：2023-09-25 14:30:32 所属栏目：Asp教程 来源：
导读：复制代码 代码如下:
<!--#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 whil
<!--#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 whil
|
复制代码 代码如下: <!--#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 %> （编辑：汽车网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
推荐文章
站长推荐
