Télécharger facilement des images dans la base de données
Je pense à écrire un programme par moi-même depuis longtemps, mais comme je ne veux pas écrire sur moi, il me reste du temps aujourd'hui, donc c'est facile à savoir après avoir écrit ce petit programme. Je ne dirai pas grand-chose, donc je vais commencer ici:
Faisons un téléchargement. Les champs de la base de données sont automatiquement numérotés par ID. Le type de champ de gros champ est ole. Hehe, c'est le champ simple.
Uppic.asp Nom du programme de téléchargement
<%
diminue
DimFormsize, FormData, Bncrlf, Divider, DataStart, Dataend, MyData
formsize = request.totalbytes 'obtenez 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)
Divider = LeftB (formdata, clng (instrb (formdata, bncrlf)) - 1)
dataStart = instrb (formdata, bncrlf & bncrlf) +4
dataSen = instrb (datastart + 1, formdata, divider) -Datastart
MyData = Midb (FormData, DataStart, DataSend) «Ce qui précède est d'obtenir les données binaires de l'image au total
%>
<! - # includeFile = "conn.asp" ->
<%
SQL = "SELECT * FROMPICORDBYIDDESC"
Setrs = server.createObject ("adodb.recordSet")
Rs.OpenSQL, Conn, 3,2
Rs.Addnew
RS ("Big"). APPENDECHUNKMYDATA 'Ajout à la base de données
Rs.Update
setrs = rien
setConn = rien
%>
Ensuite, c'est afficher l'image
affichage.asp
<! - # includeFile = "Conn.asp" -> 'Tout le monde le sait, c'est un programme connecté à la base de données.
<%
id = request ("id")
setrs = server.createObject ("adodb.recordSet")
sql = "select * frompicwhered =" & id
Rs.OpenSQL, Conn, 1,1
Response.ContentType = "Text / Html" "peut également utiliser le format d'affichage de l'image.
'Response.ContentType = "Image / GIF" est affiché comme GIF
'Response.ContentType = "Image / JPG" s'affiche dans JPG
Response.BinaryWriters ("Big") 'Afficher l'image
Rs.Close
setrs = rien
setConngraph = rien
%>