Je voulais écrire un programme moi-même depuis longtemps, mais comme Lai ne voulait pas écrire sur moi, j'étais libre aujourd'hui, alors j'ai écrit ce petit programme facile à comprendre en un coup d'œil. , commençons :
effectuons un téléchargement de. Le champ dans la base de données est automatiquement numéroté en grand et le type de champ est OLE Haha, utilisez simplement le simple champ uppic.asp nom du programme de téléchargement <%.
dimrs
dim formsize, formdata, bncrlf, diviseur, datastart, dataend, mes données
formsize=request.totalbytes 'Obtenir la taille envoyée par le client formdata=request.binaryread(formsize)'Convertir les données envoyées par le client en production binaire bncrlf=chrB(13) & chrB(10)
diviseur=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf & bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)'Ce qui précède correspond aux données binaires de l'image.
'www.knowsky.com
%>
<!--#include file="conn.asp"-->
<%
sql="select * from pic order by id desc"
Définir rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3,2
rs.addnew
rs("big").appendchunk mydata 'Ajouter à la base de données rs.update
définir rs = rien
définir conn = rien
%>
L'étape suivante consiste à afficher l'image display.asp
<!--#include file="conn.asp"--> 'Tout le monde le sait, c'est un programme connecté à la base de données<%
identifiant=requête("id")
set rs=server.createobject("ADODB.recordset")
sql="select * from pic où id=" & id
rs.open sql, conn, 1,1
Response.ContentType = "text/html" 'Vous pouvez également utiliser le format d'affichage des images'Response.ContentType = "image/gif" pour afficher en gif'Response.ContentType = "image/jpg" pour afficher en jpg Response.BinaryWrite rs("big ") 'Afficher les images rs.close
définir rs = rien
définir connGraph = rien
%>