应用程序的话可以使用sql server来保存这些文件,800K不是很大,字段类型image.可以通过ado来操作.
如果是采用asp的话,是可以访问sql的图片,同样是采用ado.
但是我认为直接指向文件路径的效果会更好,我见许多网站都是这样.
ado2.5版的stream对象可以使你能很方面的访问字节型对象.

解决方案 »

  1.   

    各位帮帮忙吧 ,小弟等着用呢 !  dim i as Boolean 
     i=true do while i
        msgbox("thanks")
     loop
      

  2.   

    怎么连接SQL SERVER呀,我想知道代码,谢谢了
      

  3.   

    用ado中的stream,如下:Dim cn As ADODB.Connection
    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
      

  4.   

    如果是请问照片应该怎样上传到服务器上???
    我说的是使用VB编程来实现!!!!thanks .....