<!-#포함 파일 = dbconn.asp->
<%
함수 readfile (파일 이름)
다음에 오류가 재개됩니다
err.clear
'ASP에서 오류 수정 방법
const forreading = 2
const create = false
희미한 fso
희미한 ts
딤섬
thefile을 어둡게합니다
희미한 내용
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------.
set fso = server.createobject (scripting.filesystemobject)
filepath = server.mappath (temp) ./ 기록부에 저장되었습니다
err.number <> 0 인 경우
응답. 쓰기 디렉토리가 존재하지 않습니다
응답. 엔드
끝 If
'filename=test.txt ------------------test.txt is the file name you read from the database
thefile = filepath &/& filename
set ts = fso.opentextfile (Thefile, 1)
ts.atendofstream까지하십시오
Response.Write (& ts.Readline &)
Response.write (<br>)
고리
ts = 아무것도 설정하지 않습니다
FSO = 아무것도 설정하지 않습니다
엔드 기능
%>
<%
딤드
희미한 파일 이름
ID = 6
set rs = server.createobject (adodb.recordset)
sql = select *에서 yuan where id = & id
Rs. -Open SQL, CN, 1,1
filename = rs (fileload)
%>
< % readfile (filename) %>