应用程序的话可以使用sql server来保存这些文件,800K不是很大,字段类型image.可以通过ado来操作.
如果是采用asp的话,是可以访问sql的图片,同样是采用ado.
但是我认为直接指向文件路径的效果会更好,我见许多网站都是这样.
ado2.5版的stream对象可以使你能很方面的访问字节型对象.
如果是采用asp的话,是可以访问sql的图片,同样是采用ado.
但是我认为直接指向文件路径的效果会更好,我见许多网站都是这样.
ado2.5版的stream对象可以使你能很方面的访问字节型对象.
i=true do while i
msgbox("thanks")
loop
Dim rs As ADODB.Recordset
Dim mstream As ADODB.StreamPrivate Sub cmdDisplayPhoto_Click()
Image1.Picture = LoadPicture("c:\temp\test.bmp")
End Sub照片上传到服务器可以用ftp软件,如cuteftp/leapftp等等
建议存储路径,对查询,搜索会更方便一些Private Sub cmdReadFile_Click()
'Read the Saved File from database
If mstream.State = adStateOpen Then mstream.Close
mstream.Type = adTypeBinary
mstream.Open
rs.Open "select * from sales where stor_id='7066' and ord_num='A2976'",cn, adOpenKeyset, adLockOptimistic
mstream.Write rs.Fields("photo_text").Value
mstream.SaveToFile "c:\temp\test.bmp", adSaveCreateOverWrite
End SubPrivate Sub cmdSaveFile_Click()
'Save File to database
Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB;data Source=Tiger;Initial Catalog=pubs;User Id=sa;Password=;"
Set rs = New ADODB.Recordset
rs.Open "select * from sales where stor_id='7066' and ord_num='A2976'", cn, adOpenKeyset, adLockOptimistic
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
'Write File to database
mstream.LoadFromFile "C:\kcclogo.bmp"
rs.Fields![photo_text] = mstream.Read
rs.Update
rs.Close
End Sub
我说的是使用VB编程来实现!!!!thanks .....