FSO 讀出TXT文件
更新時間：2006年10月28日 00:00:00 作者：
<!--#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=server.createobject("scripting.filesystemobject")
filepath=server.MapPath("temp") ./記錄本存放的文件夾
if err.number<>0 then
response.Write "目錄不存在"
response.End
end if
'filename="test.txt" ---------test.txt為你從數(shù)據(jù)庫里讀出的文件名
thefile=filepath&"/"&filename
Set TS = FSO.OpenTextFile(thefile,1)
do until Ts.AtEndOfStream
Response.Write (""&TS.ReadLine&"")
response.write("<br>")
loop
Set TS = Nothing
Set FSO = Nothing
end function
%>
<%
dim id
dim filename
id=6
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from yuan where id="&id
rs.open sql,cn,1,1
filename=rs("fileload")
%>
<% readfile(filename) %>
<%
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=server.createobject("scripting.filesystemobject")
filepath=server.MapPath("temp") ./記錄本存放的文件夾
if err.number<>0 then
response.Write "目錄不存在"
response.End
end if
'filename="test.txt" ---------test.txt為你從數(shù)據(jù)庫里讀出的文件名
thefile=filepath&"/"&filename
Set TS = FSO.OpenTextFile(thefile,1)
do until Ts.AtEndOfStream
Response.Write (""&TS.ReadLine&"")
response.write("<br>")
loop
Set TS = Nothing
Set FSO = Nothing
end function
%>
<%
dim id
dim filename
id=6
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from yuan where id="&id
rs.open sql,cn,1,1
filename=rs("fileload")
%>
<% readfile(filename) %>
相關文章
怎樣讀取一個文本文件的內(nèi)容?...2006-10-10
處理驅(qū)動器和文件夾...2006-10-10
利用FSO取得BMP，JPG，PNG，GIF文件信息...2006-10-10
ASP中FSO的神奇功能 - 權(quán)限許可...2006-10-10
FSO+遞歸生成文件列表(xml)...2006-10-10
用asp實現(xiàn)的代碼批量修改程序，fso相關...2006-10-10
FSO的強大功能...2006-10-10
ASP中FSO的神奇功能 - 簡介...2006-10-10
ASP常用的函數(shù)...2006-10-10
列出指定目錄下的所有文件和目錄...2006-10-10