Este é um exemplo de download direto de dados do banco de dados do servidor para o arquivo do cliente. O nome e a extensão do arquivo podem ser gravados conforme necessário. new/temp.htm requer existência real. Na verdade, não tem efeito. Caso contrário, os dados stram não podem ser gravados.
Há muitas coisas nesta área circulando na Internet, mas a maioria delas é copiada. Coisas muito simples tornam-se muito complicadas. Poucas coisas foram realmente postas em prática. Então eu mesmo escrevi um. Embora seja simples e tenha alguns problemas, ele pode ser usado após copiá-lo. Amigos que tiverem dúvidas podem entrar em contato comigo para que possamos aprender juntos.
filemystream=server.mappath("novo") & "temp.htm"
Definir MyStream=Server.CreateObject("Adodb.Stream")
MyStream.Type = 1
MeuStream.Mode=3
MeuStream.Open
MyStream.LoadFromFile(filemystream)
Response.ContentType="aplicativo/octeto-stream"
Response.AddHeader "Disposição de conteúdo:","anexo; nome do arquivo=" & "bk.txt"
Range=Mid(Request.ServerVariables("HTTP_RANGE"),7)
resposta.write "Nome"
resposta.write "Conta"
resposta.escreva "endereço"
resposta.write "Descrição"
cr=chr(13)&chr(10)
response.write(cr)
enquanto não rs.eof
resposta.write rs("nome")
resposta.write rs("accno")
resposta.write rs("endereço")
resposta.write rs("nota")
resposta.write(cr)
RS.MoveNext
wend
rs.fechar
definir rs = nada
Conexão Fechar
Definir Conexão=Nada
Meustream.close
definir Mystream = nada