'================================================ ==================
'
'Use ASP para implementar upload/download de arquivos sem componentes
'
'Introdução à função
'Salve os dados do arquivo carregado no banco de dados, que pode lidar com vários arquivos carregados no formato
'Aplicável a vários bancos de dados, use o método ADO para conectar-se ao banco de dados
'Este exemplo usa o banco de dados ACCESS: zj.mdb
'Tabela:tb_img(id int(coluna de incremento automático),path text(255) Diretório para salvar os arquivos enviados
' ,fname text(250) salva o nome do arquivo enviado, type test(250) salva o tipo do arquivo enviado
', o objeto img ole salva o conteúdo do arquivo enviado
'
'
'================================================ ==================
'================================================ ==================
'
'Página HTML para upload de arquivos: zj_up.htm
'
'================================================ ==================
<html>
<cabeça>
<title>Carregue o arquivo e salve-o no banco de dados</title>
</head>
<corpo>
<form name="form1" enctype="multipart/form-data" method="post" action="zj_up.asp">
<p>
<input type="arquivo" nome="arquivo">
<input type="submit" name="Enviar" value="Upload">
</p>
</form>
</body>
</html>
'================================================ ==================
'
'Carregue o arquivo e salve-o na página ASP do banco de dados: zj_up.asp
'
'================================================ ==================
<%
Resposta.Expira=0
Função f_Bin2Str(ByVal sBin)
Dim iI, iLen, iChr, iRe
euRe = ""
Se não for nulo (sBin), então
iLen = LenB(sBin)
Para iI = 1 Para iLen
iChr = MidB(sBin, iI, 1)
Se AscB(iChr) > 127 Então
iRe = iRe & Chr(AscW(MidB(sBin, iI + 1, 1) & iChr))
eu = eu + 1
Outro
iRe = iRe & Chr(AscB(iChr))
Terminar se
Próximo
Terminar se
f_Bin2Str = iRe
Função final
iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persistir informações de segurança=Falso" & _
";Fonte de dados=" & server.mappath("zj.mdb")
iSql="tb_img"
definir iRe=Server.CreateObject("ADODB.Recordset")
iRe.Open iSql,iConcStr,1,3
iLen=Request.TotalBytes
sBin=Request.BinaryRead(iLen)
iCrlf1 = ChrB(13) e ChrB(10)
iCrlf2 = iCrlf1 & iCrlf1
iLen = InStrB(1, sBin, iCrlf1) - 1
iSpc = EsquerdaB(sBin, iLen)
sBin = MidB(sBin, iLen + 34)
iPos1 = InStrB(sBin, iCrlf2) - 1
Enquanto iPos1 > 0
iStr = f_Bin2Str(LeftB(sBin, iPos1))
iPos1 = iPos1 + 5
iPos2 = InStrB(iPos1, sBin, iSpc)
iPos3 = InStr(iStr, "; nome do arquivo=""") + 12
Se iPos3 > 12 Então
iStr = Médio(iStr, iPos3)
iPos3 = InStr(iStr, Chr(13) & Chr(10) & "Tipo de conteúdo: ") - 2
iFn = Esquerda(iStr, iPos3)
Se iFn <> "" Então
iRe.AddNew
ire("caminho")=esquerda(iFn,instrrev(iFn,""))
iRe("fnome") = mid(iFn,instrrev(iFn,"")+1)
iRe("tipo") = Mid(iStr, iPos3 + 18)
iRe("img").AppendChunk MidB(sBin, iPos1, iPos2 - iPos1)
iRe.Update
Terminar se
Terminar se
sBin = MidB(sBin, iPos2 + iLen + 34)
iPos1 = InStrB(sBin, iCrlf2) - 1
Wend
iRe.fechar
definir iRe=Nada
%>
'=============================================== ====================
'
'Página ASP para download de dados: zj_down.asp
'
'================================================ ==================
<%
Response.Buffer=true
Response.Clear
iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persistir informações de segurança=False" & _
";Fonte de dados=" & server.mappath("zj.mdb")
definir iRe=server.createobject("adodb.recordset")
iSql="tb_img"
iRe.open iSql,iconcstr,1,1
Response.ContentType=ire("tipo")
Response.BinaryWrite iRe("img")
iRe.close
definir iRe=Nada
%>