He querido escribir un programa durante mucho tiempo, pero como Lai no quería escribir sobre mí, hoy estaba libre, así que escribí este pequeño programa que es fácil de entender de un vistazo. , comencemos:
hagamos una carga de. Los campos en la base de datos se numeran automáticamente en grande y el tipo de campo es OLE Jaja, solo use el campo simple uppic.asp para cargar el nombre del programa <%.
atenuar
tamaño de formulario tenue, datos de formulario, bncrlf, divisor, inicio de datos, final de datos, mis datos
formsize=request.totalbytes 'Obtener el tamaño enviado por el cliente formdata=request.binaryread(formsize)'Convertir los datos enviados por el cliente en producción binaria bncrlf=chrB(13) & chrB(10)
divisor=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
inicio de datos = instrb (datos de formulario, bncrlf y bncrlf) +4
final de datos = instrb (inicio de datos + 1, datos de formulario, divisor) -inicio de datos
mydata=midb(formdata,datastart,dataend)'Lo anterior son los datos binarios de la imagen.
'www.knowsky.com
%>
<!--#include file="conn.asp"-->
<%
sql="seleccione * del orden de imágenes por id desc"
Establecer rs = Server.CreateObject("ADODB.Recordset")
rs.Abrir sql,conn,3,2
rs.añadirnuevo
rs("big").appendchunk mydata 'Agregar a la base de datos rs.update
establecer rs = nada
establecer conexión = nada
%>
El siguiente paso es mostrar la imagen display.asp
<!--#include file="conn.asp"--> 'Todo el mundo lo sabe, es un programa conectado a la base de datos<%
identificación=solicitud("identificación")
establecer rs=servidor.createobject("ADODB.recordset")
sql="seleccione * de la imagen donde id=" & id
rs.open sql, conexión, 1,1
Response.ContentType = "text/html" 'También puedes usar el formato de visualización de imágenes'Response.ContentType = "image/gif" para mostrar en gif'Response.ContentType = "image/jpg" para mostrar en jpg Response.BinaryWrite rs("big ") 'Mostrar imágenes rs.close
establecer rs = nada
establecer connGraph = nada
%>