Empfohlen: So konfigurieren Sie IIS, um sowohl ASP als auch PHP auszuführen Nach Abschluss des Decodes von Baidump3, Base64 plus einigen Unicode -Änderungen stellte ich fest, dass die Base64 -Algorithmen in der JS -Version und der ASP -Version nicht ideal für die chinesische Unterstützung sind. Deshalb habe ich PHP verwendet, und der Server ist IIS6.0, damit ich es mit PHP ausführen kann. 1. Erstellen Sie die 3 Dateien php.ini, php5ts.dll und php5isapi.dll. Unter ihnen ist PHP5 die PHP -Version, die Sie haben.
| Das Folgende ist der zitierte Inhalt: <% Funktion downloadFile (strFile) Strfilename = strFile Response.buffer = true Antwort.Clear Setzen Sie s = server.createObject (adodb.stream) S.Open S.type = 1 Bei der nächsten Fehleraufnahme als nächstes Setzen Sie fso = server.createObject (scripting.FilesystemObject) Wenn nicht fso.fileExists (Strafilename) dann From_url = cstr (request.servervariables (http_referer))) Serv_url = cstr (request.servervariables (server_name)) Wenn Mitte (von _url, 8, len (serv_url)) <> Serv_url dann Antwort.Write Die Datei existiert nicht oder wurde gelöscht. Antwort.end Ende wenn Antwort.Redirect Request.Servervariables (http_referer) Antwort.end Ende wenn Fileext = Mid (strFileName, Instrrev (strFileName,.)+1) Wählen Sie Case uCase (Fileext) Fall ASP, ASA, ASPX, Asax, MDB, PHP, JSP, Shtm, HTML, HTM, TV, Daten, Daten From_url = cstr (request.servervariables (http_referer))) Serv_url = cstr (request.servervariables (server_name)) Wenn Mitte (von _url, 8, len (serv_url)) <> Serv_url dann Antwort.Write Die Datei existiert nicht oder wurde gelöscht. Antwort.end Ende wenn Antwort.Redirect Request.Servervariables (http_referer) Antwort.end Ende auswählen Setzen Sie F = fso.getFile (strafilename) Intfilelength = f.size S. loadfromFile (Strfilename) Wenn irren From_url = cstr (request.servervariables (http_referer))) Serv_url = cstr (request.servervariables (server_name)) Wenn Mitte (von _url, 8, len (serv_url)) <> Serv_url dann Antwort. Schreiben Sie die Dateidaten sind unvollständig oder können beschädigt werden. Antwort.end Ende wenn Antwort.Redirect Request.Servervariables (http_referer) Antwort.end Ende wenn Upload = server.createObject (PERSITS.Upload) einrichten. Wenn Upload dann nichts ist Response.AddHeader-Inhaltsdisposition, Anhang; Dateiname = & F.Name Response.addHeader inhaltslang, intFilelength Antwort.CharSet = UTF-8 Antwort.ContentType = Application/X-Download Antwort.Binarywrite S.Read Antwort.Flush S.CLOSE Setzen Sie s = nichts Anders Upload.SendBinary Strfilename, True, Application/X-Download, False Ende wenn Endfunktion %> |
Teilen: So fügen Sie die Online -Einreichungsfunktion in SDCMS hinzu SDCMS Online -Einreichungsprogramm Antwort http://bbs.sdcms.cn/dispbbs.asp?boardid=2