怎麼上傳圖片到資料庫

A. 如何將本地圖片上傳到資料庫

你伺服器使用什麼語言？
嗯，那你好好看看下面的代碼吧
應該可以的，以前我就是用這個

幫你找了下，回答不妥之處，網路消息給我（消息內容附上問題的網址）

asp下：

用一個叫upload_5xsoft.inc，可以完成文件的上傳！
upload_5xsoft.inc
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>

dim upfile_5xSoft_Stream

Class upload_5xSoft

dim Form,File,Version

Private Sub Class_Initialize
dim iStart,iFileNameStart,iFileNameEnd,iEnd,vbEnter,iFormStart,iFormEnd,theFile
dim strDiv,mFormName,mFormValue,mFileName,mFileSize,mFilePath,iDivLen,mStr
Version="化境編程界HTTP上傳程序 Version 1.0"
if Request.TotalBytes<1 then Exit Sub
set Form=CreateObject("Scripting.Dictionary")
set File=CreateObject("Scripting.Dictionary")
set upfile_5xSoft_Stream=CreateObject("Adodb.Stream")
upfile_5xSoft_Stream.mode=3
upfile_5xSoft_Stream.type=1
upfile_5xSoft_Stream.open
upfile_5xSoft_Stream.write Request.BinaryRead(Request.TotalBytes)

vbEnter=Chr(13)&Chr(10)
iDivLen=inString(1,vbEnter)+1
strDiv=subString(1,iDivLen)
iFormStart=iDivLen
iFormEnd=inString(iformStart,strDiv)-1
while iFormStart < iFormEnd
iStart=inString(iFormStart,"name=""")
iEnd=inString(iStart+6,"""")
mFormName=subString(iStart+6,iEnd-iStart-6)
iFileNameStart=inString(iEnd+1,"filename=""")
if iFileNameStart>0 and iFileNameStart<iFormEnd then
iFileNameEnd=inString(iFileNameStart+10,"""")
mFileName=subString(iFileNameStart+10,iFileNameEnd-iFileNameStart-10)
iStart=inString(iFileNameEnd+1,vbEnter&vbEnter)
iEnd=inString(iStart+4,vbEnter&strDiv)
if iEnd>iStart then
mFileSize=iEnd-iStart-4
else
mFileSize=0
end if
set theFile=new FileInfo
theFile.FileName=getFileName(mFileName)
theFile.FilePath=getFilePath(mFileName)
theFile.FileSize=mFileSize
theFile.FileStart=iStart+4
theFile.FormName=FormName
file.add mFormName,theFile
else
iStart=inString(iEnd+1,vbEnter&vbEnter)
iEnd=inString(iStart+4,vbEnter&strDiv)

if iEnd>iStart then
mFormValue=subString(iStart+4,iEnd-iStart-4)
else
mFormValue=""
end if
form.Add mFormName,mFormValue
end if

iFormStart=iformEnd+iDivLen
iFormEnd=inString(iformStart,strDiv)-1
wend
End Sub

Private Function subString(theStart,theLen)
dim i,c,stemp
upfile_5xSoft_Stream.Position=theStart-1
stemp=""
for i=1 to theLen
if upfile_5xSoft_Stream.EOS then Exit for
c=ascB(upfile_5xSoft_Stream.Read(1))
If c > 127 Then
if upfile_5xSoft_Stream.EOS then Exit for
stemp=stemp&Chr(AscW(ChrB(AscB(upfile_5xSoft_Stream.Read(1)))&ChrB(c)))
i=i+1
else
stemp=stemp&Chr(c)
End If
Next
subString=stemp
End function

Private Function inString(theStart,varStr)
dim i,j,bt,theLen,str
InString=0
Str=toByte(varStr)
theLen=LenB(Str)
for i=theStart to upfile_5xSoft_Stream.Size-theLen
if i>upfile_5xSoft_Stream.size then exit Function
upfile_5xSoft_Stream.Position=i-1
if AscB(upfile_5xSoft_Stream.Read(1))=AscB(midB(Str,1)) then
InString=i
for j=2 to theLen
if upfile_5xSoft_Stream.EOS then
inString=0
Exit for
end if
if AscB(upfile_5xSoft_Stream.Read(1))<>AscB(MidB(Str,j,1)) then
InString=0
Exit For
end if
next
if InString<>0 then Exit Function
end if
next
End Function

Private Sub Class_Terminate
form.RemoveAll
file.RemoveAll
set form=nothing
set file=nothing
upfile_5xSoft_Stream.close
set upfile_5xSoft_Stream=nothing
End Sub

Private function GetFilePath(FullPath)
If FullPath <> "" Then
GetFilePath = left(FullPath,InStrRev(FullPath, "\"))
Else
GetFilePath = ""
End If
End function

Private function GetFileName(FullPath)
If FullPath <> "" Then
GetFileName = mid(FullPath,InStrRev(FullPath, "\")+1)
Else
GetFileName = ""
End If
End function

Private function toByte(Str)
dim i,iCode,c,iLow,iHigh
toByte=""
For i=1 To Len(Str)
c=mid(Str,i,1)
iCode =Asc(c)
If iCode<0 Then iCode = iCode + 65535
If iCode>255 Then
iLow = Left(Hex(Asc(c)),2)
iHigh =Right(Hex(Asc(c)),2)
toByte = toByte & chrB("&H"&iLow) & chrB("&H"&iHigh)
Else
toByte = toByte & chrB(AscB(c))
End If
Next
End function
End Class

Class FileInfo
dim FormName,FileName,FilePath,FileSize,FileStart
Private Sub Class_Initialize
FileName = ""
FilePath = ""
FileSize = 0
FileStart= 0
FormName = ""
End Sub

Public function SaveAs(FullPath)
dim dr,ErrorChar,i
SaveAs=1
if trim(fullpath)="" or FileSize=0 or FileStart=0 or FileName="" then exit function
if FileStart=0 or right(fullpath,1)="/" then exit function
set dr=CreateObject("Adodb.Stream")
dr.Mode=3
dr.Type=1
dr.Open
upfile_5xSoft_Stream.position=FileStart-1
upfile_5xSoft_Stream.to dr,FileSize
dr.SaveToFile FullPath,2
dr.Close
set dr=nothing
SaveAs=0
end function
End Class
</SCRIPT>

上傳文件設計：
a.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body>
<form action="s.asp" method="post" enctype="multipart/form-data" name="form1" id="form1">
<input type="file" name="Submit" value="Submit">
<input type="submit" name="Submit2" value="Submit">
</form>

</body>
</html>

s.asp

<!--#include FILE="upload_5xsoft.inc"-->
<%set upload=new upload_5xSoft
function MakedownName()
dim fname
fname = now()
fname = replace(fname,"-","")
fname = replace(fname," ","")
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
fname = int(fname) + int((10-1+1)*Rnd + 1)
MakedownName=fname
end function
formPath="/"
for each formName in upload.file ''列出所有上傳了的文件
set files=upload.file(formName) ''生成一個文件對象
if files.FileSize>0 then
' if files.filesize>500000 then
' response.write("文件太大")
'response.end
'end if ''如果 FileSize > 0 說明有文件數據
newname=MakedownName()&"."&mid(files.FileName,InStrRev(files.FileName,".")+1)
files.SaveAs Server.mappath(formPath&newname) ''保存文件

else
response.write "未找到文件 <A HREF=javascript:history.back(1)>返回</A>"
response.end
end if
set files=nothing
next

%>

B. 圖片如何存入資料庫

通常對用戶上傳的圖片需要保存到資料庫中。解決方法一般有兩種：一種是將圖片保存的路徑存儲到資料庫；另一種是將圖片以二進制數據流的形式直接寫入資料庫欄位中。以下為具體方法：
一、保存圖片的上傳路徑到資料庫：
string uppath="";//用於保存圖片上傳路徑
//獲取上傳圖片的文件名
string fileFullname = this.FileUpload1.FileName;
//獲取圖片上傳的時間，以時間作為圖片的名字可以防止圖片重名
string dataName = DateTime.Now.ToString("yyyyMMddhhmmss");
//獲取圖片的文件名（不含擴展名）
string fileName = fileFullname.Substring(fileFullname.LastIndexOf("\\") + 1);
//獲取圖片擴展名
string type = fileFullname.Substring(fileFullname.LastIndexOf(".") + 1);
//判斷是否為要求的格式
if (type == "bmp" || type == "jpg" || type == "jpeg" || type == "gif" || type == "JPG" || type == "JPEG" || type == "BMP" || type == "GIF")
{
//將圖片上傳到指定路徑的文件夾
this.FileUpload1.SaveAs(Server.MapPath("~/upload") + "\\" + dataName + "." + type);
//將路徑保存到變數，將該變數的值保存到資料庫相應欄位即可
uppath = "~/upload/" + dataName + "." + type;
}
二、將圖片以二進制數據流直接保存到資料庫：
引用如下命名空間：
using System.Drawing;
using System.IO;
using System.Data.SqlClient;
設計資料庫時，表中相應的欄位類型為iamge
保存：
//圖片路徑
string strPath = this.FileUpload1.PostedFile.FileName.ToString ();
//讀取圖片
FileStream fs = new System.IO.FileStream(strPath, FileMode.Open, FileAccess.Read);
BinaryReader br = new BinaryReader(fs);
byte[] photo = br.ReadBytes((int)fs.Length);
br.Close();
fs.Close();
//存入
SqlConnection myConn = new SqlConnection("Data Source=.;Initial Catalog=stumanage;User ID=sa;Password=123");
string strComm = " INSERT INTO stuInfo(stuid,stuimage) VALUES(107,@photoBinary )";//操作資料庫語句根據需要修改
SqlCommand myComm = new SqlCommand(strComm, myConn);
myComm.Parameters.Add("@photoBinary", SqlDbType.Binary, photo.Length);
myComm.Parameters["@photoBinary"].Value = photo;
myConn.Open();
if (myComm.ExecuteNonQuery() > 0)
{
this.Label1.Text = "ok";
}
myConn.Close();
讀取：
...連接資料庫字元串省略
mycon.Open();
SqlCommand command = new
SqlCommand("select stuimage from stuInfo where stuid=107", mycon);//查詢語句根據需要修改
byte[] image = (byte[])command.ExecuteScalar ();
//指定從資料庫讀取出來的圖片的保存路徑及名字
string strPath = "~/Upload/zhangsan.JPG";
string strPhotoPath = Server.MapPath(strPath);
//按上面的路徑與名字保存圖片文件
BinaryWriter bw = new BinaryWriter(File.Open(strPhotoPath,FileMode.OpenOrCreate));
bw.Write(image);
bw.Close();
//顯示圖片
this.Image1.ImageUrl = strPath;
採用倆種方式可以根據實際需求靈活選擇。

C. 怎麼上傳圖片到資料庫,然後在從資料庫里調出來啊.

不知道你用的是什麼資料庫，不過，一般的資料庫(MSSQL之類)數據存放類型都不支持圖片格式，你可以把你的圖片上傳到伺服器上，然後在資料庫里存放一些圖片信息(比如圖片文件的文件名，文件存放位置等)，然後在瀏覽器里讀取!圖片上傳也是分兩部分的，一是把圖片文件本身放到伺服器的硬碟空間里，二是把圖片的一些信息(如上述)存放在資料庫里，這樣就完成了圖片上傳!

D. jsp如何上傳圖片到資料庫

jsp上傳圖片到數據，在資料庫中有一種類型就是blob存儲類型，就是用於儲存二進制的。在java.sql裡面的PreparedStatment有個setBlob()方法存入資料庫，還有ResultSet里的getBlob()就是讀取，詳情你可以看JDBC Blob如何使用。

在jsp里上傳圖片很少用上述方式存儲到資料庫中，一般是將圖片上傳到伺服器項目目錄文件夾中，然後資料庫中保存該圖片文件的地址，如/item/upload/images/我上傳的圖片.jpg

E. 怎麼上傳圖片到資料庫，傳路徑和上傳二進制流都可以！

無組件上傳圖片到資料庫中，最完整解決方案
'::::::: 此程序屬蟲子原創 ::::::::::::::::::

':::::: 在sql2000，2000s中測試通過::::::::

':::::::聯系我：QQ：42814761，Email：[email protected]:::::::::

'::::::: http://www.buyidang.cn ::::::

up.htm

<!--#include file="inc/domin.asp"-->

<!--#include file="conn.asp"-->

<html>

<head>

<title><% =webname %></title>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<link rel="stylesheet" href="main.css" type="text/css">

<style type="text/css">

<!--

.tx1 { height: 20px; width: 30px; font-size: 9pt; border: 1px solid; border-color: black black

#000000; color: #0000FF}

-->

</style>

<script language="JavaScript">

<!--

var bgc_on=new Array("#74D738","#FF9C17","#3278AB","#486177","#078C00","#007ECA")

var bgc_off=new Array("#4CAD12","FFB859","5F9FD0","577590","08A700","009FFF")

function turnon(obj1,id){

obj1.style.background=bgc_on[id];

}

function turnoff(obj1,id){

obj1.style.background=bgc_off[id];

}

//-->

</script>

<SCRIPT language=javascript>

function check_input()

{

if (Frm.pic.value=="")

{ alert("請選擇要上傳的圖片");

return false;

}

if (Frm.type.value=="")

{ alert("請選擇圖片類型");

return false;

}

if (Frm.thetext.value=="")

{ alert("請輸入照片說明");

return false;

}

return true;

}

</SCRIPT>

</head>

<body bgcolor="#555555" text="#000000" leftmargin="0" topmargin="0">

<table width=755 cellpadding=0 cellspacing=0 border=0 bgcolor=#ffffff align="center">

<tr>

<td height=100><img src="img/top.gif" align="top">

</table>

<!--#include file="inc/mulu.asp"-->

<table width=755 cellpadding=0 cellspacing=0 border=0 bgcolor=#ffffff align="center" bordercolor=#000000>

<tr>

<td height=400 width=180 bgcolor=#D1E9D5 style="border-right: 1px #0E801E solid">

<table width=100% height=100% cellpadding=0 cellspacing=0 border=0 align="center" bordercolor=#000000>

<tr><td height=30 align="center" class=L15><font color=#E96D08>歡迎你：<% =username %> 管理中心</font>

<tr><td height=23 align="center" class=L15 bgcolor=#4CAD12 style="border-top:0px #0E801E solid; border-bottom:1px #0E801E solid;"><font color=#C2F009 class=yinying>管 理 中 心</font>

<tr><td height=20 class=L13>

<!--#include file="inc/centermulu.asp"-->

<tr><td height=5>

<tr><td>

</table>

<td>

<%

set rs=server.createobject("adodb.recordset")

sql="select * from photo where author='"&username&"'"

rs.open sql,conn,1,1

%>

<table cellpadding=0 cellspacing=0 border=0 width=100% height=100%>

<tr><td height=3>

<tr><td height=3 bgcolor=#ffffff background=img/bj3.gif>

<tr><td height=20 valign="bottom" bgcolor=#eeeeee> 現在位置： 98243班 - 管理中心 - 添加新聞

<tr><td height=3 bgcolor=#eeeeee style="border-bottom: 1px #cccccc solid"><p style="font-size:1pt">

<tr><td height=20 valign="bottom"> <font color=green><% =username %>：你一共上傳了 <font color=red><% =rs.recordcount %></font> 張照片</font> <a href="adminphoto.asp"><font color=red><u>管理以前上傳的照片</u></font></a>

<tr><td bgcolor=#ffffff valign=top>

<table cellpadding=0 cellspacing=0 border=0 width=95% height=100% align="center">

<form action=addphoto.asp method=post name=Frm onSubmit="return check_input()" enctype="multipart/form-data">

<tr><td height=20 colspan=2>

<tr><td height=25 width=15% align="right" class=L13>選擇照片： <td> <input NAME="pic" TYPE="FILE" class="tx1" style="width:300"> <font color=red>拒絕色情、寫真圖等</font>

<tr><td height=25 width=20% align="right" class=L13>照片分類： <td> <select name="type">

<option selected value="">選擇類型</option>

<option value="班級合影">班級合影</option>

<option value="個人照片">個人照片</option>

<option value="恩師照片">恩師照片</option>

<option value="情人照片">情人照片</option>

<option value="友人照片">友人照片</option>

<option value="其他照片">其他照片</option>

</select>

<tr><td height=25 width=20% align="right" class=L13>照片說明： <td> <textarea name="thetext" cols="46" rows="7" style="border:1px double rgb(88,88,88);font:9pt">

</textarea> <font color=red>最多20個字元</font>

<tr><td height=5 colspan=2>

<tr><td height=25 colspan=2 align="center">

<input type="submit" name="Submit" value=" 提 交 " style="border:1px double rgb(88,88,88);font:9pt">

<input type="reset" name="Reset" value=" 重 寫 " style="border:1px double rgb(88,88,88);font:9pt">

<tr><td colspan=2>

</tr></form>

</table>

</table>

</table>

<!--#include file="inc/footer.asp"-->

</body>

</html>

fupload.inc

<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>

'限制上傳圖片大小

Dim UploadSizeLimit

'********************************** 得到上傳數據 **********************************

Function GetUpload()

Dim Result

Set Result = Nothing

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then 'Request method must be "POST"

Dim CT, PosB, Boundary, Length, PosE

CT = Request.ServerVariables("HTTP_Content_Type") 'reads Content-Type header

If LCase(Left(CT, 19)) = "multipart/form-data" Then 'Content-Type header must be "multipart/form-data"

'This is upload request.

'Get the boundary and length from Content-Type header

PosB = InStr(LCase(CT), "boundary=") 'Finds boundary

If PosB > 0 Then Boundary = Mid(CT, PosB + 9) 'Separetes boundary

Length = CLng(Request.ServerVariables("HTTP_Content_Length")) 'Get Content-Length header

if "" & UploadSizeLimit<>"" then

UploadSizeLimit = clng(UploadSizeLimit)

if Length > UploadSizeLimit then

' on error resume next 'Clears the input buffer

' response.AddHeader "Connection", "Close"

' on error goto 0

Request.BinaryRead(Length)

Err.Raise 2, "GetUpload", "Upload size " & FormatNumber(Length,0) & "B exceeds limit of " & FormatNumber(UploadSizeLimit,0) & "B"

exit function

end if

end if

If Length > 0 And Boundary <> "" Then 'Are there required informations about upload ?

Boundary = "--" & Boundary

Dim Head, Binary

Binary = Request.BinaryRead(Length) 'Reads binary data from client

'Retrieves the upload fields from binary data

Set Result = SeparateFields(Binary, Boundary)

Binary = Empty 'Clear variables

Else

Err.Raise 10, "GetUpload", "Zero length request ."

End If

Else

Err.Raise 11, "GetUpload", "No file sent."

End If

Else

Err.Raise 1, "GetUpload", "Bad request method."

End If

Set GetUpload = Result

End Function

Function SeparateFields(Binary, Boundary)

Dim PosOpenBoundary, PosCloseBoundary, PosEndOfHeader, isLastBoundary

Dim Fields

Boundary = StringToBinary(Boundary)

PosOpenBoundary = InstrB(Binary, Boundary)

PosCloseBoundary = InstrB(PosOpenBoundary + LenB(Boundary), Binary, Boundary, 0)

Set Fields = CreateObject("Scripting.Dictionary")

Do While (PosOpenBoundary > 0 And PosCloseBoundary > 0 And Not isLastBoundary)

'Header and file/source field data

Dim HeaderContent, FieldContent

'Header fields

Dim Content_Disposition, FormFieldName, SourceFileName, Content_Type

'Helping variables

Dim Field, TwoCharsAfterEndBoundary

'Get end of header

PosEndOfHeader = InstrB(PosOpenBoundary + Len(Boundary), Binary, StringToBinary(vbCrLf + vbCrLf))

'Separates field header

HeaderContent = MidB(Binary, PosOpenBoundary + LenB(Boundary) + 2, PosEndOfHeader - PosOpenBoundary - LenB(Boundary) - 2)

'Separates field content

FieldContent = MidB(Binary, (PosEndOfHeader + 4), PosCloseBoundary - (PosEndOfHeader + 4) - 2)

'Separates header fields from header

GetHeadFields BinaryToString(HeaderContent), Content_Disposition, FormFieldName, SourceFileName, Content_Type

'Create one field and assign parameters

Set Field = CreateUploadField()

Field.Name = FormFieldName

Field.ContentDisposition = Content_Disposition

Field.FilePath = SourceFileName

Field.FileName = GetFileName(SourceFileName)

Field.ContentType = Content_Type

Field.Value = FieldContent

Field.Length = LenB(FieldContent)

Fields.Add FormFieldName, Field

'Is this ending boundary ?

TwoCharsAfterEndBoundary = BinaryToString(MidB(Binary, PosCloseBoundary + LenB(Boundary), 2))

'Binary.Mid(PosCloseBoundary + Len(Boundary), 2).String

isLastBoundary = TwoCharsAfterEndBoundary = "--"

If Not isLastBoundary Then 'This is not ending boundary - go to next form field.

PosOpenBoundary = PosCloseBoundary

PosCloseBoundary = InStrB(PosOpenBoundary + LenB(Boundary), Binary, Boundary )

End If

Loop

Set SeparateFields = Fields

End Function

'********************************** Utilities **********************************

Function BinaryToString(str)

strto = ""

for i=1 to lenb(str)

if AscB(MidB(str, i, 1)) > 127 then

strto = strto & chr(Ascb(MidB(str, i, 1))*256+Ascb(MidB(str, i+1, 1)))

i = i + 1

else

strto = strto & Chr(AscB(MidB(str, i, 1)))

end if

next

BinaryToString=strto

End Function

Function StringToBinary(String)

Dim I, B

For I=1 to len(String)

B = B & ChrB(Asc(Mid(String,I,1)))

Next

StringToBinary = B

End Function

'Separates header fields from upload header

Function GetHeadFields(ByVal Head, Content_Disposition, Name, FileName, Content_Type)

Content_Disposition = LTrim(SeparateField(Head, "content-disposition:", ";"))

Name = (SeparateField(Head, "name=", ";")) 'ltrim

If Left(Name, 1) = """" Then Name = Mid(Name, 2, Len(Name) - 2)

FileName = (SeparateField(Head, "filename=", ";")) 'ltrim

If Left(FileName, 1) = """" Then FileName = Mid(FileName, 2, Len(FileName) - 2)

Content_Type = LTrim(SeparateField(Head, "content-type:", ";"))

End Function

'Separets one filed between sStart and sEnd

Function SeparateField(From, ByVal sStart, ByVal sEnd)

Dim PosB, PosE, sFrom

sFrom = LCase(From)

PosB = InStr(sFrom, sStart)

If PosB > 0 Then

PosB = PosB + Len(sStart)

PosE = InStr(PosB, sFrom, sEnd)

If PosE = 0 Then PosE = InStr(PosB, sFrom, vbCrLf)

If PosE = 0 Then PosE = Len(sFrom) + 1

SeparateField = Mid(From, PosB, PosE - PosB)

Else

SeparateField = Empty

End If

End Function

'Separetes file name from the full path of file

Function GetFileName(FullPath)

Dim Pos, PosF

PosF = 0

For Pos = Len(FullPath) To 1 Step -1

Select Case Mid(FullPath, Pos, 1)

Case "/", "\": PosF = Pos + 1: Pos = 0

End Select

Next

If PosF = 0 Then PosF = 1

GetFileName = Mid(FullPath, PosF)

End Function

</SCRIPT>

<SCRIPT RUNAT=SERVER LANGUAGE=JSCRIPT>

//The function creates Field object.

function CreateUploadField(){ return new uf_Init() }

function uf_Init(){

this.Name = null

this.ContentDisposition = null

this.FileName = null

this.FilePath = null

this.ContentType = null

this.Value = null

this.Length = null

}

</SCRIPT>

addphoto.asp

<!--#include file="conn.asp"-->

<!--#include file="inc/domin.asp"-->

<!--#include file="fupload.inc"-->

<%

if Request.ServerVariables("REQUEST_METHOD") = "POST" Then

Dim Fields

UploadSizeLimit=100000

Set Fields = GetUpload()

dim Field

For Each Field In Fields.Items

select case Field.name

case "thetext" sss=BinaryToString(Field.value)

case "type" fff=BinaryToString(Field.value)

case "submit" submit=BinaryToString(Field.value)

case "pic"

filename=field.FileName

fileContentType=field.ContentType

filevalue=field.value

end select

next

'---------------

if filename<>"" and fileContentType<>"image/gif" and

fileContentType<>"image/pjpeg" then

%>

<center>

<br><br>

<font color=red size=3>上傳的照片應該為GIF或JPG文件！</font><br><br>

<input type="button" value="重填" onclick="history.go( -1 );return

true;">

</center>

<%

else

'------------

'開始輸入

'-----------

response.write sss

response.write"<br>"

response.write fff

set rs=server.createobject("ADODB.recordset")

sql = "select * from tb where theid is null"

rs.Open sql,conn,3,3

rs.addnew

rs("author")=username

rs("thetext")=sss

rs("types")=fff

rs("hits")=1

rs("posttime")=now()

rs("photo").appendchunk filevalue

rs.update

rs.close

%>

<br><br>

<center><font color=red

size=3>成功輸入個人基本檔案！</font><br><br><form method="post"

action="personinf.asp"><input type="submit" value="返回"></form>

</center>

<%

end if

end if

%>

showpic.asp

<!--#include file="conn.asp"-->

<%

id=Request("id")

set rs=server.CreateObject("adodb.recordset")

sql="SELECT * FROM tb where theid="&id

rs.Open sql,conn,1,3

response.contenttype="image/gif"

Response.BinaryWrite rs("photo")

%>

F. 圖片上傳到資料庫

如果使用mssql資料庫,我想,用再多的圖片,還是不成問題的,,你要是指望用access來裝圖片,我估計危險,

G. 圖片如何存入資料庫

1、新建一個資料庫，資料庫名為Image，表名為image。並為表添加ID，tupian兩個列。

H. 如何將圖片上傳到資料庫中，並讀出來

你想多了 用不到二進制流
你在suss.php頁面中獲取 表單傳過來的pic的值就行了（$pic=$_POST[pic];）
說白了就是把圖片的地址入庫 之後在你想顯示的地方用sql語句查出來，結果賦給img標簽就行了
就像這樣<img src="資料庫裡面圖片的地址">

I. 如何將圖片存到資料庫中

一般圖片的處理都是上傳到伺服器然後將圖片的地址名稱依次保存在資料庫中，取出時按照地址取出就可以。直接用網上的圖片地址有的是可以的訪問，有的因為圖片加鎖，保留網上那個圖片地址最終是無法找到圖片的。