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")&"')"