1，訪問表具有以下字段:
Id自動編號，
文件名文本，
鍵入文本，
什麽OLE對象，
尺碼號碼
2.上傳頁面(upfile.htm):
文件上傳
& ltform action = " upload . ASP " method = " post " enctype = " multipart/form-data " >
文件
& lt/form & gt；
3.提交頁面(upload.asp):
& ltmeta http-equiv = " Content-Type " Content = " text/html；charset=utf-8" />
& lt！-# include file = " UpLoad _ class . ASP "-& gt；
& lt%
dim上傳
設置upload = new AnUpLoad
upload.Exe = " * "
上傳。MaxSize = 2 * 1024 * 1024 ' 2M
upload.charset = "utf-8 "
上傳。GetData()
如果上傳。ErrorID & gt那麽0
回應。寫上傳。描述
其他
dim文件
對於upload.forms中的每個frm("-1 ")
回應。寫frm & amp" = " & amp上傳表單。“& ltbr />
然後
set file = upload . files(" file 1 ")
如果不是(文件什麽都不是)，那麽
設置conn =服務器。CreateObject("ADODB.connection ")
conn . Open " DRIVER = { Microsoft Access DRIVER(*。MDB)}；DBQ = " & amp；server.mappath("。/)& amp；" \db.mdb "
set RS = server . createobject(" adodb . recordset ")
rs。打開“照片”，康涅狄格州，1，3，2
rs.addnew
rs.fields("filename") = file。LocalName
rs.fields("type") = file。內容類型
rs.fields("what") = file。GetBytes()
rs.fields("size") = file。大小
rs .更新
回應。重定向“listpic.asp”
如果…就會結束
如果…就會結束
設置上傳=無
% & gt
4.引用UpLoad_Class.asp文件，是Ian的無組件上傳類。網上搜壹下就能找到。