100分加100RMB饭钱急求aspupload上传
大概样子在这里
http://www.maibenben.com/aspupload/addnormalcase.asp
文件下载
http://www.maibenben.com/aspupload/aspupload.rar
要求是实现用aspupload组件实现上传
１．实现图片用aspupload组件上传，现在已经实现了上传功能了，但是需要在upfile目录下把上传的文件用年月份的方式分文件价存储．现在分文件夹还没有实现．
２．把图片的相对路径及文件名存储到数据库里，格式例如2007_2_1/200722173916.gif

3.能够一次上传多个文件，并在在下面显示出文件的名称来，并且可以删除．这个现在已经实现session清除，但是没有实现服务器上ＦＳＯ方式删除．
4,能够实现各个图片的解说和图片路径一同写进数据库．
５此外还有其他的表单数据，能够实现表单数据提交．


现在的设计实现是把多个图片上传到服务器上，并用　session区分记录信息，每一条数据用｜隔开．

具体怎么样实现多个图片添到一个字段里，并且对应有说明，我现在脑袋都想大了，没有办法．

另外显示图片的时候要怎么样才能显示出图片和说明来，我也不清楚．

各位老大谁有方法啊？最好是详细点的例子，或者谁有时间帮我写一下，小弟感激不尽！～～～
要过年了，兄弟们帮帮忙吧！老板后天就要啊，晚了工钱又要扣干净了.
哪个达人解决了，我请吃饭啊！！！！

部分代码
<!--#include   FILE= "inc_upfile.asp "-->
<% on   error   resume   next%>
<meta   http-equiv= "Content-Type "   content= "text/html;charset=gb2312 ">
<link   href= "/img/index.css "   rel= "stylesheet "   type= "text/css ">
<script   language= "JavaScript "   src= "../inc/header.js "> </script>
<%
dim   act
act   =   request( "act ")

sub   err_msg(message)%>
<script> alert( ' <%=message%> ');history.back(); </script>
<script> window.close(); </script>
<%response.End
end   sub

select   case   act
case   "up " '上传文件

if   session( "AccessoriesList ")   =   Empty   then
dim   AccessoriesList
end   if

dim   fso,strDir,ftime,FileUp,FullPath,types

Set   fso   =   Server.CreateObject( "Scripting.FileSystemObject ")
strDir= "./upfile/translation/ "& " "
if   not   fso.folderexists(Server.MapPath(strDir))   then   fso.CreateFolder(Server.MapPath(strDir))

randomize
dim   s
s   =   cstr(Int(Rnd()*(99999-10100+1))+10100)
ftime= " "&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)   &   s   & " "

set   fso   =   nothing
FileName=now() '开始取文件名
FileName=replace(FileName, "- ", " ")
FileName=replace(FileName, ": ", " ")
FileName=replace(FileName, "   ", " ")
FileName=FileName+rndNum(4)
On   Error   Resume   Next
Set   FileUP   =   Server.CreateObject( "Persits.Upload ")
FileUP.SetMaxSize   1000000,   True
FileUP.Save
'if   FileUP.TotalBytes   =   0   then   err_msg( "当前文件为空文件。 ")
    Set   File   =   FileUP.Files( "FILE ")

        ext=LCase(right(file.ext,len(file.ext)-1))
        if   ext= " "   then
                err_msg( "当前文件为空文件。 ")
        end   if


FullPath= "./upfile/translation/ "
'types=mid(FullPath,InStrRev(FullPath,   ". ")+1)
'types=LCase(types)

  filename=filename+ ". "+ext
'File.SaveAs   Server.mappath( " "&a