怎么上传图片到数据库

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. 如何将图片存到数据库中

一般图片的处理都是上传到服务器然后将图片的地址名称依次保存在数据库中，取出时按照地址取出就可以。直接用网上的图片地址有的是可以的访问，有的因为图片加锁，保留网上那个图片地址最终是无法找到图片的。