为什么我的上传只能成功第一次,以后就不行了??
swaye 2003-10-16 05:00:08 代码如下:
dim upfile as httppostedfile=up_file.postedfile
dim smessage as stringbuilder()
if upfile.contentlength=nothing then
message.text="you must input the file"
else
dim streamobject as stream
dim filelength as integer=upfile.contentlength
dim filebytearray(filelength) as byte
streamobject=upfile.inputstream
streamobject.read(filebytearray,0,filelength)
dim scon as new sqlconnection("server=wjs-1;database=gangjian;trusted_connection=yes")
dim sqlcmd as new stringbuilder
sqlcmd.append("insert into images (image,contenttype,imagedescription,bytesize)")
sqlcmd.append("values(@image,@contenttype,@imagedescription,@bytesize)")
dim sqlcmdobj as new sqlcommand(sqlcmd.tostring(),scon)
dim paras as sqlparameter
paras=sqlcmdobj.parameters.add(new sqlparameter("@image",sqldbtype.image))
paras.value=filebytearray
paras=sqlcmdobj.parameters.add(new sqlparameter("@contenttype",sqldbtype.varchar,50))
paras.value=upfile.contenttype
paras=sqlcmdobj.parameters.add(new sqlparameter("@imagedescription",sqldbtype.varchar,50))
paras.value=imagetxt.text
paras=sqlcmdobj.parameters.add(new sqlparameter("@bytesize",sqldbtype.int))
paras.value=upfile.contentlength
scon.open()
sqlcmdobj.executenonquery()
scon.close()
message.text="your file has been uploaded"
end if
End Sub