FSO 读出TXT文件


            <!--#include file=&quot;dbconn.asp&quot;-->

<%

 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(&quot;scripting.filesystemobject&quot;)

filepath=server.MapPath(&quot;temp&quot;) ./记录本存放的文件夹

if err.number<>0 then

response.Write &quot;目录不存在&quot;

response.End

end if

'filename=&quot;test.txt&quot; ---------test.txt为你从数据库里读出的文件名

thefile=filepath&&quot;/&quot;&filename

Set TS = FSO.OpenTextFile(thefile,1)

 do until Ts.AtEndOfStream

 Response.Write (&quot;&quot;&TS.ReadLine&&quot;&quot;)

 response.write(&quot;<br>&quot;)

 loop

Set TS = Nothing

Set FSO = Nothing

 end function

%>

<%

dim id

dim filename

id=6

Set rs=Server.CreateObject(&quot;ADODB.Recordset&quot;)

sql=&quot;select * from yuan where id=&quot;&id

rs.open sql,cn,1,1

filename=rs(&quot;fileload&quot;)

%>

<% readfile(filename) %>