Direkomendasikan: Cara mengonfigurasi IIS untuk menjalankan ASP dan PHP Setelah menyelesaikan decode Baidump3, Base64 ditambah beberapa perubahan unicode, saya menemukan bahwa algoritma Base64 dalam versi JS dan versi ASP tidak ideal untuk dukungan Cina, jadi saya menggunakan PHP, dan servernya IIS6.0, jadi saya dapat membuatnya menjalankan PHP. 1. Siapkan 3 file php.ini, php5ts.dll, dan php5isapi.dll. Di antara mereka, PHP5 adalah versi PHP yang Anda miliki.
| Berikut ini adalah konten yang dikutip: <% Fungsi downloadfile (strfile) Strfilename = Strfile Response.buffer = true Respons.clear Set S = Server.CreateObject (adodb.stream) S.open S.Type = 1 pada kesalahan resume berikutnya Atur fso = server.createObject (scripting.filesystemObject) Jika bukan FSO.FileExists (Strfilename) From_url = cstr (request.serverVariables (http_referer)) Serv_url = cstr (request.serverVariable (server_name)) Jika mid (from_url, 8, len (serv_url)) <> serv_url kemudian Response.write file tidak ada atau telah dihapus. Respons.end Akhiri jika Response.redirect request.serverVariables (http_referer) Respons.end Akhiri jika FileExt = mid (strfilename, instrrev (strfilename ,.)+1) SELECT CASE UCASE (FILEEXT) Case Asp, ASA, Aspx, Asax, MDB, PHP, JSP, SHTM, HTML, HTM, TV, Data From_url = cstr (request.serverVariables (http_referer)) Serv_url = cstr (request.serverVariable (server_name)) Jika mid (from_url, 8, len (serv_url)) <> serv_url kemudian Response.write file tidak ada atau telah dihapus. Respons.end Akhiri jika Response.redirect request.serverVariables (http_referer) Respons.end Akhiri Pilih Set f = fso.getFile (strfileName) Intfilelength = f.Size S.LoadFromFile (Strfilename) Jika err maka From_url = cstr (request.serverVariables (http_referer)) Serv_url = cstr (request.serverVariable (server_name)) Jika mid (from_url, 8, len (serv_url)) <> serv_url kemudian Response.write data file tidak lengkap atau mungkin rusak. Respons.end Akhiri jika Response.redirect request.serverVariables (http_referer) Respons.end Akhiri jika Setel unggah = server.CreateObject (persits.upload) Jika mengunggah tidak ada artinya Response.addheader konten-disposisi, lampiran; FileName = & f.name Response.addheader konten-panjang, intfilelength Response.charset = UTF-8 Response.contentType = aplikasi/x-download Response.binarywrite s.read Response.flush S.close Set S = tidak ada Kalau tidak Unggah Akhiri jika Fungsi akhir %> |
Bagikan: Cara Menambahkan Fungsi Pengajuan Online di SDCMS SDCMS Program Kirim Online Balas http://bbs.sdcms.cn/dispbbs.asp?boardid=2