我用的是化境无组上传：
<script language="javascript">
function setid()
{
str='<br>';
Name='<br>';
if(!window.PhotoAdd.UserName.value)
window.PhotoAdd.UserName.value=1;
for(i=1;i<=window.PhotoAdd.UserName.value;i++)
{
str+='文件'+i+':<input type="file" name="file'+i+'" style="width:200" class="INput"><br><br>';
Name+='名称'+i+':<input name="PhotoName'+i+'" type="text" class="INput"><br><br>';
}
window.upid.innerHTML=str+'<br>';
window.upname.innerHTML=Name+'<br>';
}
</script>
这是动态，得到上传文件域和文本框。
我以有下3个问题：
1：如何在接收页知道。。有多少个文本框。。。
2：我们应该如何把这些数保存在数据库（不是保存图片，是保存他的路径和名字），
是在上传文件那页保存：
for each formName in PhotoUpLoad.objForm ''列出所有form数据
'response.write formName&"="&PhotoUpLoad.form(formName)&"<br>"
Response.Write formName
next
这是得到所有表单数据。但我们要怎么把他分开来

3：还是我们应该另外在一页读入数据库？


谢谢帮忙！！

有的
PhotoUpLoad.form()
如何知道我们设定多少个.
我们应该...同片上传成功同时更入数据库吧?

谢谢了,现在只差存入数据库了.
iCount=1
response.write "<br>"
for each formName in PhotoUpLoad.objFile ''列出所有上传了的文件
set file=PhotoUpLoad.file(formName) ''生成一个文件对象
ranNum=int(90000*rnd)+10000
PhotoName1=formPath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileExt
rs("PhotoName")=PhotoUpLoad.form("PhotoName"&iCount) '这是另取的名字
rs("PhotoName1")=PhotoName1 '这是用时间生成,照片真正的名字
rs("PhotoPath")=PhotoUpLoad.form("PhotoPath")
rs.update
file.SaveAs Server.mappath(PhotoPath&PhotoName1)''保存文件
iCount=iCount+1
Next
不知道行不行?
如果上传不成功了.那数据还是保存在数据库里了.

如何判断能有没有上传成功!!!
好像就算没上传成功,他也会执行下面的语句!

if err then 不知道行不行..让他出错,好像有点难...





谢谢了!!
成功了..总的代码如下: 还有很多条件.我自已在加一下..

<%
Sub AddPhoto()
dim PhotoUpLoad,file,formName,PhotoPath,iCount
Set PhotoUpLoad=new upload_5xsoft '建立上传对象
PhotoPath=PhotoUpLoad.form("PhotoPath")
''''''得到上传保存路径'''''''''''''
If PhotoPath="individual" Then
PhotoPath1="../ClassPhoto/individual/"
ElseIf PhotoPath="collectivity" Then
PhotoPath1="../ClassPhoto/collectivity/"
End If
Set rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * from Photo"
rs.open Sql,conn,1,3
for each formName in PhotoUpLoad.objForm ''列出所有form数据
'response.write formName&"="&PhotoUpLoad.form(formName)&"<br>"

next
iCount=1
response.write "<br>"
for each formName in PhotoUpLoad.objFile ''列出所有上传了的文件
set file=PhotoUpLoad.file(formName) ''生成一个文件对象
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
fileExt=lcase(right(file.filename,3))
ranNum=int(90000*rnd)+10000
PhotoName1=formPath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileExt
file.SaveAs Server.mappath(PhotoPath&PhotoName1)''保存文件
rs.addnew
rs("PhotoName")=PhotoUpLoad.form("PhotoName"&iCount) '这是另取的名字
rs("PhotoAutor")=PhotoUpLoad.form("PhotoAutor")
rs("PhotoUrl")=PhotoPath1&PhotoName1 '这是用时间生成,照片真正的路径
rs("TypeName")=PhotoPath
rs("PhotoContent")=PhotoUpLoad.form("PhotoContent")
rs.update
Response.Write "来自" &file.FilePath& "<font color='blue'>" &file.FileName& "</font>(" &file.FileSize& "KB)"
Response.write "=>保存为" &PhotoPathPath& "<font color='red'>" &PhotoName1& "</font>上传成功!<br>"
iCount=iCount+1
end if
set file=nothing
next
rs.close
Set rs=nothing
Call CloseConn()
set upload=nothing ''删除此对象
End Sub
%>