结贴率100%

[jetsteven]

dim length as System.int32
dim upfile as HttpPostedFile
upfile=upload.postedfile
if upfile.ContentLength = 0 Then
lb.text = "Please select a file"
Exit Sub
else
length=upfile.ContentLength
end if

' Create sql connection
dim conn as new sqlconnection(System.Configuration.ConfigurationSettings.AppSettings("dnssql"))
dim cmd as new sqlcommand("iPIC",conn)
cmd.CommandType = CommandType.StoredProcedure

dim filearray() as byte
dim streamobj as stream

try

streamobj=upfile.InputStream
streamobj.read(filearray,0,length)

cmd.Parameters.add ("@Image",SqlDbType.Binary,length).value=filearray
cmd.Parameters.add("@Size",SqlDbType.int,4).Value=length
cmd.Parameters.add("@Date",SqlDbType.DateTime,8).Value=now()
conn.open
cmd.executeNonQuery
catch ex as exception
'throw ex
lb.text=ex.Message.ToString
finally
conn.close
end try
系统提示Value cannot be null. Parameter name: dst
iPIC存储过程为
CREATE PROCEDURE dbo.iPIC
@Image image,
@Size int,
@date DateTime
AS
insert into imagestore (image,size,date) values (@image,@size,@date)
GO
如果没有提取到图片，我该如何判断filearray为空？

[jetsteven]

为什么存储不进数据库？
请问一下我的一个页面readimage.aspx是从数据库中读取一个图片，我从另外一个view.aspx中读取这个页面图片该如何处理？有个image WEB control如何设置为显示readimage.aspx?imagid=2的图片
谢谢！

[windancer]

dim cmdstr as string = "select pic from newstable where id=1"
dim ImgCommand as SqlCommand=new SqlCommand(cmdstr,Conn)
dim imageReader as SqlDataReader
imageReader = Imagecommand.ExecuteReader()
If imageReader.Read() Then
Response.ContentType="image/gif"
if not IsDbNull(imageReader.Item("picpath")) then
Dim byte1() As Byte = imageReader.Item("picpath")
Response.BinaryWrite(byte1)
else
'没有图片时通过二进制流读入nopic.gif文件
Dim FS As New FileStream(server.MapPath("Nopic.gif"),3,1)
Dim byte2() As Byte
redim byte2(fs.length)
FS.Read(byte2,0,FS.Length)
Response.BinaryWrite(byte2)
end
end if

[windancer]

image1.imageurl="readimage.aspx?id=1"

[jetsteven]

windancer(风精灵)：我是这样写的，可是不行啊？
image1.imageurl="readimage.aspx?id=1"