dim Temp() as String=Split(File1.PostedFile.FileName,"\")
dim FileName as String=Temp(Temp.Length-1)
dim filename1 as string=left(filename,len(filename)-4)
dim kz as string=right(filename,3)
''''''''''''''''''''''''''''''''''''''''''转成数据流,写入数据库
dim filesize as int64
dim filetype1 as string
dim filestream as system.io.stream
filesize=File1.PostedFile.ContentLength
filetype1=File1.PostedFile.Contenttype
filestream=File1.PostedFile.inputstream
dim filecontent(filesize) as byte
dim intstatus as integer
intstatus=filestream.read(filecontent,0,filesize)
............. 写入数据库
dim xrstring as string ="insert into yqjtest(id,name,nr,kzm,filetype,ssdw,bz) values(@id,@name,@nr,@kzm,@filetype,@ssdw,@bz)"
dim sqlcom as new sqlcommand(xrstring)
sqlcom.Connection=sqlcon
'sqlcom.commandtype=commandtype.text
dim paramid as new SqlParameter("@id",SqlDbType.int)
paramid.value=maxid
sqlcom.Parameters.Add(paramid)
dim paramname as new SqlParameter("@name", SqlDbType.varchar,50)
paramname.value=filename1
sqlcom.Parameters.Add(paramname)
dim paramnr as new SqlParameter("@nr", SqlDbType.image)
paramnr.value=filecontent
sqlcom.Parameters.Add(paramnr)
dim paramkzm as new SqlParameter("@kzm", SqlDbType.varchar,5)
paramkzm.value=kz
'filetype
sqlcom.Parameters.Add(paramkzm)
dim paramtype as new SqlParameter("@filetype", SqlDbType.varchar,50)
paramtype.value=filetype1
sqlcom.Parameters.Add(paramtype)
dim paramdw as new SqlParameter("@ssdw", SqlDbType.varchar,50)
paramdw.value=session("dw")
sqlcom.Parameters.Add(paramdw)
dim parambz as new SqlParameter("@bz", SqlDbType.varchar,100)
parambz.value=trim(TextBox1.text)
'filetype
sqlcom.Parameters.Add(parambz)