Il s'agit d'un exemple de téléchargement direct de données de la base de données du serveur vers le fichier client. Le nom et l'extension du fichier peuvent être écrits selon les besoins. new/temp.htm nécessite une existence réelle. En fait, cela n'a aucun effet. Sinon, les données stram ne peuvent pas être écrites.
Il y a beaucoup de choses dans ce domaine qui circulent sur Internet, mais la plupart d'entre elles sont copiées. Des choses très simples sont rendues si compliquées. Très peu de choses ont été réellement mises en pratique. J'en ai donc écrit un moi-même. Bien qu'il soit simple et présente quelques problèmes, il peut être utilisé après l'avoir copié. Les amis qui ont des questions peuvent me contacter afin que nous puissions apprendre ensemble.
filemystream=server.mappath("new") & "temp.htm"
Définir MyStream=Server.CreateObject("Adodb.Stream")
MyStream.Type = 1
MonStream.Mode=3
MonStream.Ouvrir
MyStream.LoadFromFile(filemystream)
Response.ContentType="application/octet-stream"
Response.AddHeader "Content-Disposition :", "attachment; filename=" & "bk.txt"
Range=Mid(Request.ServerVariables("HTTP_RANGE"),7)
réponse.write "Nom"
réponse.écrire "Compte"
réponse.écrire "adresse"
réponse.écrire "Description"
cr=chr(13)&chr(10)
réponse.write(cr)
alors qu'il n'est pas rs.eof
réponse.write rs("nom")
réponse.write rs("accno")
réponse.write rs("adresse")
réponse.write rs("note")
réponse.write(cr)
RS.MoveNext
wend
rs.close
définir rs = rien
Conn.Fermer
Définir Conn=Rien
Monstream.close
définir Mystream = rien