討論區快速選單
知識庫快速選單
討論區最近新進100則主題 掌握Salesforce雲端管理秘訣
[ 回上頁 ] [ 討論區發言規則 ]
ASP VB script 照片上傳與下載於資料庫問題
更改我的閱讀文章字型大小
作者 : endily(空空)
[ 貼文 1 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2013/5/27 下午 04:49:01
各位大大好:

最近在寫一個功能 要上傳圖片至資料庫儲存,並且使其圖片從資料庫下載
圖片有順利存進資料庫,但是當我要顯示照片的時候卻一直顯示不出來
請大大幫我看一下,程式碼是否有錯誤 如下 共三部分:

第一部分 pic.asp (照片上傳及顯示的程式頁面)

<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%>
<!DOCType html Public "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=big5" />
<title>無標題文件</title>
</head>

<body>
<table width="550" border="0">
<tr>
<td width="540">
<form name="form" action="pic_into.asp" Method="post" encType="multipart/form-data">
上載檔案
<input name="pic_value" Type="file" size="40" />
<br/>
<input name="submit" Type="submit" value="上傳"/>
</form>
</td>
</tr>
</table>
<!--#include file="connections/sql_cnndb.asp" -->
<%
set cnndb=server.createobject("adodb.connection")
cnndb.open strcon
set rspic=server.createobject("adodb.recordset")
sql_pic="Select * FROM pic where id='"&session("id")&"'"
rspic.open sql_pic,cnndb,1,3
While Not rspic.eof
%>
<table width="550" border="0">
<tr>
<td align="center" width="461"><img src="pic_read.asp?id=<%=rspic("id")%>" width="210" height="175"></td>
</tr>
</table>
<%
rspic.moveNext
Wend
rspic.close
set rspic=Nothing
cnndb.close
set cnndb=Nothing
%>
</body>
</html>

第二部分 pic_into.asp (照片儲存進資料庫的程式頁面)

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>
<!DOCType html Public "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>無標題文件</title>
</head>
<body>

<!--#include file="connections/sql_cnndb.asp" -->
<%

FormSize = Request.TotalBytes '得到資料
FormData = Request.BinaryRead( FormSize )

Function ImageUp(formsize,formdata) '這個函數的功能是截取其中的圖像部分。
    bncrlf=chrb(13) & chrb(10)
    divider=leftb(formdata,instrb(formdata,bncrlf)-1)
    datastart=instrb(formdata,bncrlf&bncrlf)+4
    dataend=instrb(datastart+1,formdata,divider)-datastart
    imageup=midb(formdata,datastart,dataend)
end Function

Image=ImageUp (FormSize,Formdata)

Set
cnndb=server.createobject("adodb.connection")
cnndb.open strcon
Set
rs=server.CreateObject("adodb.recordset")
rs.Open "pic",cnndb,1,3

rs.AddNew
rs("id") = session("id")
rs("build_date")=now()
rs("img").appendchunk Image
rs.Update

rs.Close
Set
rs=Nothing
cnndb.close
Set
cnndb=Nothing
Set
o=Nothing
%>

<%
response.Redirect "ta_pic.asp"
%>
</body>
</html>

第三部分 pic_into.asp (照片從資料庫讀取出來 的程式頁面)

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>
<!DOCType html Public "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>無標題文件</title>
</head>
<body>
  <!--#include file="connections/sql_cnndb.asp" -->
 
  <%
  Set cnndb=server.createobject("adodb.connection")
  cnndb.open strcon
  id=Request("id")
  Set RS = server.CreateObject("adodb.recordset")
  sql = "Select * from pic where id="&id
  RS.open sql,cnndb,1,3
  response.ContentType= "image/jpg"
  response.Charset = "utf-8"
  response.BinaryWrite RS("img")
  %>
</div>
</body>
</html>
 板主 : Jammy
 > ASP - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - ASP - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
ASP
1 tt's 2830 
2 ricky 1060 
3 玩家 890 
4 深小藍 880 
5 小台 660 
6 Snaking 630 
7 老骨頭 540 
8 AndyJ 530 
9 艾里克斯 510 
10 NanSun 470 
ASP
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2019 程式設計俱樂部 http://www.programmer-club.com.tw/
0.03125