向SQLServer数据库读写image文件

 1,formdata,divider)-datastart Imageup=midb(formdata,datastart,dataend) End Function mydata = ImageUp(FormSize,Formdata)

通过以上代码后，image文件已经存在于变量mydata中

三、将image数据加入数据库中

Set rs_img = Server.CreateObject("ADODB.Recordset")

sql_img = "SELECT * FROM tbl_images where id='"&newid&"'"

rs_img.Open sql_img,conn,1,3,1

If rs_img.eof Then

strinsert = 1

Else

strinsert = 0

End If

If strinsert = 1 Then

rs_img.addnew 

rs_img("id") = newid

rs_img("class_id") = class_id

rs_img("img_data").appendchunk mydata 

rs_img.update 

Else

rs_img("class_id") = 


 

 
共4页: 上一页 [1] 2 [3] [4] 下一页