Este es un ejemplo de cómo descargar datos directamente desde la base de datos del servidor al archivo del cliente. El nombre y la extensión del archivo se pueden escribir según sea necesario. new/temp.htm requiere una existencia real. De hecho, no tiene ningún efecto. Es solo una guía. De lo contrario, los datos extraviados no se pueden escribir.
Hay muchas cosas en esta área circulando en Internet, pero la mayoría se copian. Las cosas muy simples se vuelven tan complicadas. Son muy pocas las cosas que realmente se han puesto en práctica. Así que escribí uno yo mismo. Aunque es simple y tiene algunos problemas, se puede usar después de copiarlo. Los amigos que tengan preguntas pueden contactarme para que podamos aprender juntos.
filemystream=server.mappath("nuevo") & "temp.htm"
Establecer MyStream=Server.CreateObject("Adodb.Stream")
MyStream.Type = 1
Mi flujo.Modo = 3
MyStream.Abierto
MyStream.LoadFromFile(filemystream)
Response.ContentType="aplicación/octet-stream"
Response.AddHeader "Disposición de contenido:", "attachment; filename=" & "bk.txt"
Rango=Medio(Request.ServerVariables("HTTP_RANGE"),7)
respuesta.escribir "Nombre"
respuesta.escribir "Cuenta"
respuesta.escribir "dirección"
respuesta.escribir "Descripción"
cr=chr(13)&chr(10)
respuesta.escribir(cr)
mientras no sea rs.eof
respuesta.escribir rs ("nombre")
respuesta.escribir rs("accno")
respuesta.escribir rs("dirección")
respuesta.write rs("nota")
respuesta.escribir(cr)
RS.MoverSiguiente
wend
rs.cerrar
establecer rs = nada
Conexión.Cerrar
Establecer conexión = nada
Mi flujo.cerrar
establecer Mystream=nada