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