FSO TXT 파일 읽 기

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

좋은 웹페이지 즐겨찾기