Ich wollte schon lange selbst ein Programm schreiben, aber da Lai nicht über mich schreiben wollte, hatte ich heute zufällig Zeit, also habe ich ohne weiteres dieses kleine Programm geschrieben, das auf einen Blick leicht zu verstehen ist , fangen wir an:
Machen wir einen Upload von. Das Feld in der Datenbank wird automatisch groß nummeriert und der Feldtyp ist OLE. Verwenden Sie einfach das einfache Feld uppic.asp Upload-Programmname <%.
dimrs
dimmen Sie formsize,formdata,bncrlf,divider,datastart,dataend,mydata
formsize=request.totalbytes 'Erhalten Sie die vom Client gesendete Größe. formdata=request.binaryread(formsize)'Konvertieren Sie die vom Client gesendeten Daten in eine binäre Produktion. bncrlf=chrB(13) & chrB(10)
Divider=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)'Das Obige sind die Binärdaten des Bildes.
„www.knowsky.com
%>
<!--#include file="conn.asp"-->
<%
sql="select * from pic order by id desc"
Setze rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn,3,2
rs.addnew
rs("big").appendchunk mydata 'Zur Datenbank hinzufügen rs.update
setze rs=nichts
setze conn=nichts
%>
Der nächste Schritt besteht darin, das Bild display.asp anzuzeigen
<!--#include file="conn.asp"--> 'Jeder weiß das, es ist ein Programm, das mit der Datenbank verbunden ist<%
id=request("id")
set rs=server.createobject("ADODB.recordset")
sql="select * from pic where id=" & id
rs.open sql,conn,1,1
Response.ContentType = "text/html" 'Sie können auch das Format zum Anzeigen von Bildern verwenden'Response.ContentType = "image/gif" zur Anzeige in GIF'Response.ContentType = "image/jpg" zur Anzeige in JPG Response.BinaryWrite rs("big") 'Bilder anzeigen rs.close
setze rs=nichts
setze connGraph=nichts
%>