يقوم ASP بتنفيذ عنوان التنزيل المخفي ومكافحة السرقة

<٪ function downloadFile (strfile)

strfilename = strfile

استجابة. buffer = صحيح

استجابة

تعيين s = server.createBject (Adodb.stream)

S.

S.Type = 1

عند استئناف الخطأ التالي

set fso = server.createObject (scripting.filesystemObject)

إذا لم يكن fso.filexists (strfilename) ثم

from_url = cstr (request.servervariables (http_referer))

serv_url = cstr (request.servervariables (server_name))

إذا كان منتصف (من _url ، 8 ، لين (serv_url)) <> serv_url ثم

استجابة. write 该文件不存在或者已经删除.

استجابة

إنهاء إذا

Response.Redirect request.ServerVariables (http_referer)

استجابة

إنهاء إذا

filext = mid (strfilename ، instrev (strfilename ،.)+1)

حدد Case Ucase (Filext)

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))

إذا كان منتصف (من _url ، 8 ، لين (serv_url)) <> serv_url ثم

استجابة. write 该文件不存在或者已经删除.

استجابة

إنهاء إذا

Response.Redirect 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))

إذا كان منتصف (من _url ، 8 ، لين (serv_url)) <> serv_url ثم

استجابة. write 该文件数据不完整或许已损坏.

استجابة

إنهاء إذا

Response.Redirect request.ServerVariables (http_referer)

استجابة

إنهاء إذا

SET LOAD = Server.CreateBject (persits.upload)

إذا كان التحميل لا شيء

استجابة. اسم الملف = & f.name

استجابة

استجابة. Charset = UTF-8

استجابة. contenttype = التطبيق/x-download

استجابة

استجابة

S.Close

تعيين s = لا شيء

آخر

تحميل

إنهاء إذا

وظيفة نهاية

٪>