Há muito tempo que eu queria escrever um programa, mas como Lai não queria escrever sobre mim, hoje estava livre, então escrevi este pequeno programa que é fácil de entender à primeira vista, sem mais delongas. , vamos começar:
vamos fazer um upload de. O campo no banco de dados é automaticamente numerado em tamanho grande e o tipo de campo é OLE Haha, basta usar o campo simples uppic.asp nome do programa de upload <%.
escurece
dim formsize,formdata,bncrlf,divisor,datastart,dataend,meusdados
formsize=request.totalbytes 'Obtém o tamanho enviado pelo cliente formdata=request.binaryread(formsize)'Converte os dados enviados pelo cliente em produção binária bncrlf=chrB(13) & chrB(10)
divisor=esquerdaB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf & bncrlf)+4
dataend=instrb(datastart+1,formdata,divisor)-datastart
mydata=midb(formdata,datastart,dataend)'O acima são os dados binários da imagem.
'www.knowsky.com
%>
<!--#include file="conn.asp"-->
<%
sql="selecione * da ordem da foto por id desc"
Definir rs = Server.CreateObject("ADODB.Recordset")
rs.Abrir sql,conn,3,2
rs.addnew
rs("big").appendchunk mydata 'Adicionar ao banco de dados rs.update
definir rs = nada
definir conn = nada
%>
O próximo passo é exibir a imagem display.asp
<!--#include file="conn.asp"--> 'Todo mundo sabe disso, é um programa conectado ao banco de dados<%
id=solicitação("id")
definir rs=server.createobject("ADODB.recordset")
sql="selecione * da foto onde id=" & id
rs.open sql,conn,1,1
Response.ContentType = "text/html" 'Você também pode usar o formato de exibição de imagens'Response.ContentType = "image/gif" para exibir em gif'Response.ContentType = "image/jpg" para exibir em jpg Response.BinaryWrite rs("big ") 'Exibe imagens rs.close
definir rs = nada
definir connGraph = nada
%>