FSO 读出TXT文件

答案：<!--#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为你从数据库里读出的文件名
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) %>

上一个：ASP，FSO遍历目录及目录下文件
下一个：FileSystemObject 对象