Recomendado: como configurar o IIS para executar asp e php Depois de concluir o decodificação do Baidump3, Base64 mais algumas alterações do Unicode, descobri que os algoritmos Base64 na versão JS e na versão ASP não são ideais para suporte chinês, então usei o PHP e o servidor é IIS6.0, para que eu possa executá -lo. 1. Prepare os 3 arquivos php.ini, php5ts.dll e php5isapi.dll. Entre eles, o PHP5 é a versão PHP que você possui.
| A seguir, o conteúdo citado: <% Função Downloadfile (strfile) Strfilename = strfile Response.Buffer = true Response.clear Set s = server.createObject (adodb.stream) S.Open S.Type = 1 em erro de erro em seguida Set fso = server.createObject (script.filesystemoBject) Se não fso.FileExists (strfileName), então From_url = cstr (request.Servervariables (http_referer)) Serv_url = cstr (request.servervariables (server_name)) Se MID (from_url, 8, len (serv_url)) <> serv_url então Response.Write O arquivo não existe ou foi excluído. Resposta.END Final se Response.Redirect Request.ServerVariables (http_referer) Resposta.END Final se FileExt = MID (StrFileName, Instrrev (strfileName ,.)+1) Selecione Case UCase (FileExt) Case Asp, ASA, ASPX, Asax, MDB, PHP, JSP, SHTM, HTML, HTM, TV, Dados From_url = cstr (request.Servervariables (http_referer)) Serv_url = cstr (request.servervariables (server_name)) Se MID (from_url, 8, len (serv_url)) <> serv_url então Response.Write O arquivo não existe ou foi excluído. Resposta.END Final se Response.Redirect Request.ServerVariables (http_referer) Resposta.END Final Selecione Set f = fso.getFile (strfileName) IntfilEleLength = f.size S.LoadFromFile (StrfileName) Se errar então From_url = cstr (request.Servervariables (http_referer)) Serv_url = cstr (request.servervariables (server_name)) Se MID (from_url, 8, len (serv_url)) <> serv_url então Response.Write Os dados do arquivo estão incompletos ou podem ser corrompidos. Resposta.END Final se Response.Redirect Request.ServerVariables (http_referer) Resposta.END Final se Configurar upload = server.createObject (Persits.upload) Se o upload não é nada então Response.AddHeader Content-Disposição, Anexo; Nome do arquivo = & f.name Response.AddHeader Length, IntfilEleLength Response.CharSet = UTF-8 Response.ContentType = Application/X-download Response.BinaryWrite S.Read Response.flush S.Close Set s = nada Outro Upload.sendbinary strfilename, true, aplicativo/x-download, false Final se Função final %> |
Compartilhar: Como adicionar função de envio on -line no SDCMS Programa de envio on -line do SDCMS Resposta http://bbs.sdcms.cn/dispbbs.asp?boardid=2