asp上傳圖片到文件夾

A. asp網站上傳圖片功能，上傳到文件夾並將目錄存至access資料庫庫中，能給實例，或給個具體點的代碼

Sub upfilttodir(formPath)
dim upload,file,formName,iCount
set upload=new upload_5xsoft ''建立上傳對象
dim upFile()
dim I

if right(formPath,1)<>"/" then formPath=formPath&"/"

dim textfielda,textfieldb,textfieldc,selecta,selectb,checkbox,filea,fileb,filec

iCount=0

for each formName in upload.objFile ''列出所有上傳了的文件
set file=upload.file(formName) ''生成一個文件對象
if file.FileSize>0 then ''如果 FileSize > 0 說明有文件數據
file.SaveAs Server.mappath(formPath&file.FileName) ''保存文件
response.write file.FilePath&file.FileName&" ("&file.FileSize&") => "&formPath&File.FileName&" Successful!<br>"
Redim Preserve upFile(iCount)
upFile(iCount)=formPath&File.FileName
iCount=iCount+1
'Conn.Execute "Insert Into [upload](filename,filesize,[update],cnstr) values('"&formPath&File.FileName&"',"&file.FileSize&",#"&Cdate(Date())&"#,'"&upload.form("textfielda")&"')"
end if
set file=nothing
next

files=Ubound(upFile)+1
Response.Write "共上傳了"& iCount &"個文件：<br>"
for each formName in upload.objForm ''列出所有form數據
response.write formName&"="&upload.form(formName)&"<br>"
next
'for each formName in upload.objForm ''列出所有form數據
'response.write formName&"="&upload.form(formName)&"<br>"
set upload=nothing ''刪除此對象
End sub
用法：
<%
Call upfilttodir("uploadfile/"& SESSION("ADMIN"))
Response.Write("<script language=javascript>alert('上傳成功！\n您一共上傳了"& iCount &"個文件。');location.href='listfile.asp?Currentpath=uploadfile/"& SESSION("ADMIN") &"'</script>")
%>
---------------------------------------
保存至資料庫只需要在上傳之後執行寫入資料庫的操作，——便是我代碼中注釋掉的那行：
'Conn.Execute "Insert Into [upload](filename,filesize,[update],cnstr) values('"&formPath&File.FileName&"',"&file.FileSize&",#"&Cdate(Date())&"#,'"&upload.form("textfielda")&"')"