以下为引用的内容 :
<% 함수 downloadfile (strfile)
strfilename = strfile
응답 .buffer = true
응답
set s = server.createobject (adodb.stream)
S. OPEN
s.type = 1
다음에 오류가 재개됩니다
set fso = server.createobject (scripting.filesystemobject)
fso.fileexists (strfilename)가 아닌 경우
from_url = cstr (request.servervariables (http_referer))
serv_url = cstr (request.servervariables (server_name))
Mid (From_url, 8, Len (serv_url)) <> serv_url이면
응답. 쓰기 该文件不存在或者已经删除.
응답. 엔드
끝 If
Response.Sredirect request.servervariables (http_referer)
응답. 엔드
끝 If
fileExt = mid (strfilename, instrev (strfilename,.)+1)
CASE UCASE (FILEEXT) 선택
CASE ASP, ASA, ASPX, ASAX, MDB, PHP, JSP, SHTML, HTML, HTM, TV, DATA
from_url = cstr (request.servervariables (http_referer))
serv_url = cstr (request.servervariables (server_name))
Mid (From_url, 8, Len (serv_url)) <> serv_url이면
응답. 쓰기 该文件不存在或者已经删除.
응답. 엔드
끝 If
Response.Sredirect request.servervariables (http_referer)
응답. 엔드
종료 선택
f = fso.getfile (strfilename)
intfilelength = F.size
s.loadfromfile (strfilename)
그렇다면
from_url = cstr (request.servervariables (http_referer))
serv_url = cstr (request.servervariables (server_name))
Mid (From_url, 8, Len (serv_url)) <> serv_url이면
응답. 쓰기 该文件数据不完整或许已损坏.
응답. 엔드
끝 If
Response.Sredirect request.servervariables (http_referer)
응답. 엔드
끝 If
업로드 설정 = Server.createObject (persits.upload)
업로드가 아무것도 없다면
응답. AddHeader 컨텐츠 예측, 첨부 파일; filename = & f.name
response.addheader 컨텐츠 길이, intfilelenger
응답. charset = utf-8
응답 .ContentType = 응용 프로그램/x 다운로드
응답 .BinaryWrite S.Read
응답. 플러시
s.close
s = 아무것도 설정하지 않습니다
또 다른
upload.sendbinary strfilename, true, application/x download, false
끝 If
엔드 기능
%>
调用
<%호출 다운로드 파일 (下载地址)%>