Recomendado: Cómo configurar IIS para ejecutar ASP y PHP Después de completar la decodificación de Baidump3, Base64 más algunos cambios de Unicode, descubrí que los algoritmos Base64 en la versión JS y la versión ASP no son ideales para el soporte chino, por lo que utilicé PHP y el servidor es IIS6.0, por lo que puedo hacer que se ejecute PHP. 1. Prepare los 3 archivos php.ini, php5ts.dll y php5isapi.dll. Entre ellos, PHP5 es la versión PHP que tiene.
| El siguiente es el contenido citado: <% De funciones downloadfile (strfile) Strfilename = strfile Respuesta.Buffer = True Respuesta. Establecer s = server.createObject (ADODB.Stream) Abiertamente S.Type = 1 En el currículum de error siguiente Establecer fso = server.createObject (scripting.filesystemObject) Si no fso.fileExists (strfilename) entonces From_url = cstr (request.serverVariables (http_referer)) Serv_url = cstr (request.serverVariables (server_name)) Si mid (from_url, 8, len (serv_url)) <> Serv_url entonces Respuesta.WRITE El archivo no existe o se ha eliminado. Respuesta. Final si Response.Redirect Solic.ServerVariables (http_referer) Respuesta. Final si Fileext = mid (strfileName, instrrev (strfileName ,.)+1) Seleccione Case UCase (FileExt) Case ASP, ASA, ASPX, ASAX, MDB, PHP, JSP, SHTM, HTML, HTM, TV, Datos From_url = cstr (request.serverVariables (http_referer)) Serv_url = cstr (request.serverVariables (server_name)) Si mid (from_url, 8, len (serv_url)) <> Serv_url entonces Respuesta.WRITE El archivo no existe o se ha eliminado. Respuesta. Final si Response.Redirect Solic.ServerVariables (http_referer) Respuesta. Final seleccionar Establecer F = fso.getfile (strfileName) Intfilelength = f.size S.LoadFromFile (strFileName) Si err entonces From_url = cstr (request.serverVariables (http_referer)) Serv_url = cstr (request.serverVariables (server_name)) Si mid (from_url, 8, len (serv_url)) <> Serv_url entonces Response.swite Los datos del archivo están incompletos o pueden estar dañados. Respuesta. Final si Response.Redirect Solic.ServerVariables (http_referer) Respuesta. Final si Configurar upload = server.createObject (Persits.upload) Si la carga no es nada, entonces Respuesta. AddHeader Contenido Disposición, Adjunto; Nombre de archivo = & f.name Respuesta.AddHeader Content-longitud, intfilelength Respuesta.Charset = UTF-8 Respuesta.ContentType = Application/X-Download Respuesta.BinaryWrite S.Read Respuesta. Flush S. cerca Establecer s = nada Demás Upload.sendbinary strfileName, verdadero, aplicación/x-download, falso Final si Función final %> |
Compartir: Cómo agregar función de envío en línea en SDCMS Respuesta del programa de envío en línea SDCMS http://bbs.sdcms.cn/dispbbs.asp?boardid=2