<>

<%

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) %>