程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> 關於ASP編程 >> asp下輕松實現將上傳圖片到數據庫的代碼

asp下輕松實現將上傳圖片到數據庫的代碼

編輯:關於ASP編程
輕松實現將上傳圖片到數據庫

很久就想自己寫一寫程序了,不過由於賴就不想寫我,今天剛好有空,所以寫了這個小小的程序很容易一看就知道的,不多說了就此開始:

  我們做一個上傳的。數據據庫的字段就id自動編號 big 字段類型是 OLE 呵呵就簡單的那個字段好了
  
  uppic.asp上傳程序名
  
  <%
  dim rs 
  dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata
  formsize=request.totalbytes '取得客戶端發過來的大小
  formdata=request.binaryread(formsize)'把客戶發過來的數據轉成二進制作
  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)'上面總共是取得圖片的二進制數據

  %>
  <!--#include file="conn.asp"-->
  <%
  sql="select * from pic order by id desc"
  Set rs = Server.CreateObject("ADODB.Recordset")
  rs.Open sql,conn,3,2
  rs.addnew
  rs("big").appendchunk mydata '增加到數據庫中
  rs.update
  set rs=nothing
  set conn=nothing
  %> 
  接下來是顯示圖片
  
  display.asp
  
  <!--#include file="conn.asp"--> '這個大家都知道吧,他就是與數據庫連的一個程序了
    <% 
  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" '顯示圖片的格式也可以用
  
  'Response.ContentType = "image/gif" 以gif顯示
  
  'Response.ContentType = "image/jpg" 以jpg顯示
  Response.BinaryWrite rs("big") '顯示圖片
  rs.close 
  set rs=nothing 
  set connGraph=nothing 
  
  %> 

 
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved