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) %>
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
NTFS 권한 으로 FlashGet 팝 업 광고 차단필자 가 인터넷 에 접속 할 때 IE 는 항상 팝 업 창 이 나타 나 IE 를 닫 아 도 근절 할 수 없다.플 래 쉬 겟(인터넷 익 스프 레 스)의 광고 시스템 이 가 져 온 것 이 었 다.FlashGet 의 광고 ...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.