Red de conocimiento informático - Conocimiento informático - ¿Cómo almacenar y mostrar en una base de datos SQL a través de ASP? Por favor dé un ejemplo de código fuente, ¡gracias ~!

¿Cómo almacenar y mostrar en una base de datos SQL a través de ASP? Por favor dé un ejemplo de código fuente, ¡gracias ~!

dim rs

dim formsize, formdata, bncrlf, divider, datastart, dataend, mydata

' Formsize=request.totalbytes 'Obtener tamaño de envío del cliente.

Formulariodatos = solicitud. 'binaryread (formsize)' convierte los datos enviados por el cliente a binarios.

bncrlf=chrB(13)chrB(10)

divider=leftB(formdata, clng(instrb(formdata, bncrlf))-1)

datastart =instrb(formdata, bncrlf ampbncrlf) 4

dataend = instrb(datos de inicio 1, formdata, divisor)-datastart

mis datos = midb (formdata, datos de inicio, datos de fin) 'El total * * * anterior son los datos binarios para obtener la imagen.

lt! -# include file = " conn . ASP " - gt

sql = "Seleccione * del orden de imágenes por id desc

set rs = Servidor .CreateObject("ADODB.RecordSet")

rs.OpenConn.sql,3,2

rs.addnew

Rs("Grande "). appendchunk mydata" se agrega a la base de datos.

rs.update

Establecer rs=None

Establecer conexión=None

El siguiente paso es mostrar la imagen

display.asp

lt! -# include file = " conn . ASP "- gt; p>

id =request("id")

set RS = servidor createobject(" adodb . recordset ")

SQL =. " seleccione * de la imagen donde id = " amp; identificación

Connecticut, 1, 1

Respuesta contenttype = "text/html " 'También use el formato de la imagen.

tipo de contenido de respuesta = "imagen/gif" se muestra en formato gif.

tipo de contenido de respuesta = "imagen/jpg" se muestra en formato jpg. >Respuesta. BinaryWrite rs("big ")'Mostrar imagen

rsClose

Establecer rs=Ninguno

Establecer diagrama de conexión=Ninguno. p>gt