用ASP+FSO生成JS文件_FSO专题

复制代码 代码如下:

<!--#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 
%> 

时间： 2024-09-10 05:33:19

用ASP+FSO生成JS文件_FSO专题的相关文章

用ASP+FSO生成JS文件

asp+|fso|js <!--#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(&q

asp下用fso生成js文件的代码_应用技巧

<%sub fsojs()%>  <% Set fso= Server.CreateObject("Scripting.FileSystemObject") set fd=fso.createtextfile(server.MapPath("../category.js"),true) '开始操作 set rs=server.CreateObject("adodb.recordset") rs.Open "select

asp下用fso生成js文件的代码

<%sub fsojs()%>  <% Set fso= Server.CreateObject("Scripting.FileSystemObject") set fd=fso.createtextfile(server.MapPath("../category.js"),true) '开始操作 set rs=server.CreateObject("adodb.recordset") rs.Open "select

FSO 读出TXT文件_FSO专题

<!--#include file="dbconn.asp"--> <% function ReadFile(filename) on error resume next err.clear 'ASP的一种校错方法 Const ForReading = 2 Const Create = false Dim FSO DIM TS DIM filepath DIM thefile Dim content '---------------操作地址 Set FSO=serve

如何使用FSO搜索硬盘文件_FSO专题

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% dim st st=timer() '************************************************************* '*************搜索硬盘文件的类SearchFile ************* '*************调用方法: ************* '*************Set new

Asp.net(C#)读取数据库并生成JS文件制作首页图片切换效果(附demo源码下载)_实用技巧

本文实例讲述了Asp.net(C#)读取数据库并生成JS文件制作首页图片切换效果的方法.分享给大家供大家参考,具体如下: using System; using System.Collections.Generic; using System.Linq; using System.Web; using System.Web.UI; using System.Web.UI.WebControls; using System.Text; using System.IO; public partial

ASP+FSO生成的网页文件默认编码格式以及转换成UTF-8编码方法_应用技巧

具体特征如下: 1.通过模板实现俄文正常. 2.通过后台数据库生成的静态俄文信息,后台显示正常, 前台乱码. 3.英文正常. 和该主题相关的类似或不同表达 FSO写UTF-8编码文件 FSO怎么才能生成utf-8编码的文件 FSO生成的文件默认是什么编码格式 如何转换成UTF-8编码 FSO生成静态网页的问题 ASP中用FSO生成文件代码如下 复制代码 代码如下: function createfile(sfilename,scontent) set fso=server.CreateObjec

不用模板只用ASP+FSO生成静态HTML页的一个方法_应用技巧

不用模板,只用ASP+FSO生成静态HTML页的一个方法(对于内容密集型页面特别适用)  转载请注明:转自http://goaler.xicp.net FSO生成静态HTML文件的时候替换模板标签一直是一个很麻烦的问题,至少我是这么认为的,还要别外做一个模板,麻烦!,我今天看见有一个方法可以解决这个问题 如一个正常的index.asp页面,并且用ASP代码调出数据库中的内容,另建一个makehtml.asp的页面,加入一个textarea域,假设为name="body",将index.

不用模板只用ASP+FSO生成静态HTML页的一个方法

不用模板,只用ASP+FSO生成静态HTML页的一个方法(对于内容密集型页面特别适用)  转载请注明:转自http://goaler.xicp.net FSO生成静态HTML文件的时候替换模板标签一直是一个很麻烦的问题,至少我是这么认为的,还要别外做一个模板,麻烦!,我今天看见有一个方法可以解决这个问题 如一个正常的index.asp页面,并且用ASP代码调出数据库中的内容,另建一个makehtml.asp的页面,加入一个textarea域,假设为name="body",将index.