相片上传问题 - 编程论坛

相片能传到文件夹了.可是怎样在传到文件夹的同时也传一个路径到数据库呢??

文件夹PHOTO数据库里的字段名是zhaopian求高手帮忙!!



<html>
<head>
<title>文件上传</title>
</head>
<body topmargin=0>
<%
dim upload,file,formName,formPath,iCount,filename,fileExt
set upload=new upload_5xSoft ''建立上传对象

formPath=upload.form("filepath")
''在目录后加(/)
if right(formPath,1)<>"/" then formPath=formPath&"/"

response.write "<body>"

iCount=0
for each formName in upload.file ''列出所有上传了的文件
set file=upload.file(formName)  ''生成一个文件对象
if file.filesize<1000 then
     response.write "请选择你要上传的文件　[ <a href=# onclick=history.go(-1)>重新上传</a> ]"
    response.end
end if

if file.filesize>1000*5000 then
     response.write "文件大小超过了限制1000K　[ <a href=# onclick=history.go(-1)>重新上传</a> ]"
    response.end
end if

fileExt=lcase(right(file.filename,4))
uploadsuc=false
Forum_upload="gif,jpg,png"
Forumupload=split(Forum_upload,",")
for i=0 to ubound(Forumupload)
    if fileEXT="."&trim(Forumupload(i)) then
    uploadsuc=true
    exit for
    else
    uploadsuc=false
    end if
next
if uploadsuc=false then
     response.write "文件格式不正确　[ <a href=# onclick=history.go(-1)>重新上传</a> ]"
    response.end
end if

randomize
ranNum=int(90000*rnd)+10000
filename=formPath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&fileExt

if file.FileSize>0 then         ''如果 FileSize > 0 说明有文件数据
  file.SaveAs Server.mappath(FileName)   ''保存文件
    for i=0 to ubound(Forumupload)
        if fileEXT="."&trim(Forumupload(i)) then
         response.write "<script>parent.frm1.txt1.value=parent.frm1.txt1.value+'/"&FileName&"'</script>"
        exit for
        end if
    next
iCount=iCount+1
end if
set file=nothing
next
set upload=nothing  ''删除此对象

Htmend iCount&" 个文件上传结束!"

sub HtmEnd(Msg)
set upload=nothing

response.write "上传成功 [ <a href=# onclick=history.go(-1)>重新上传</a>]"
response.end
end sub

%>
</body>
</html>