Saya sendiri sudah lama ingin menulis program, tetapi karena Lai tidak ingin menulis tentang saya, kebetulan saya ada waktu luang hari ini, jadi saya menulis program kecil ini yang sekilas mudah dipahami , mari kita mulai:
Ayo kita upload. Field di database otomatis diberi nomor besar, dan tipe fieldnya adalah OLE. Haha, cukup gunakan field sederhana uppic.asp nama program unggah <%
redup
redupkan ukuran formulir,formdata,bncrlf,pembagi,datastart,dataend,datasaya
formsize=request.totalbytes 'Dapatkan ukuran yang dikirim oleh klien formdata=request.binaryread(formsize)'Konversi data yang dikirim oleh klien menjadi produksi biner bncrlf=chrB(13) & chrB(10)
pembagi=kiriB(formdata,clng(instrb(formdata,bncrlf))-1)
datamulai=instrb(formdata,bncrlf & bncrlf)+4
dataend=instrb(datastart+1,formdata,pembagi)-datastart
mydata=midb(formdata,datastart,dataend)'Di atas adalah data biner dari gambar.
'www.knowsky.com
%>
<!--#include file="conn.asp"-->
<%
sql="pilih * dari gambar pesanan berdasarkan id desc"
Setel rs = Server.CreateObject("ADODB.Recordset")
rs.Buka sql, samb.,3,2
rs.tambahkan baru
rs("besar").appendchunk mydata 'Tambahkan ke database rs.update
atur rs=tidak ada
setel samb=tidak ada
%>
Langkah selanjutnya adalah menampilkan gambar display.asp
<!--#include file="conn.asp"--> 'Semua orang tahu ini, ini adalah program yang terhubung ke database<%
id=permintaan("id")
set rs=server.createobject("ADODB.recordset")
sql="pilih * dari gambar di mana id=" & id
rs.open sql,sambungan,1,1
Response.ContentType = "text/html" 'Anda juga dapat menggunakan format tampilan gambar'Response.ContentType = "image/gif" untuk ditampilkan di gif'Response.ContentType = "image/jpg" untuk ditampilkan dalam jpg Response.BinaryWrite rs("besar") 'Tampilkan gambar rs.close
atur rs=tidak ada
atur connGraph=tidak ada
%>