<!--#include file="UpLoad_Class.asp"-->
<%
dim upload
set upload = new AnUpLoad
upload.Exe = "*"
upload.MaxSize = 2 * 1024 * 1024 *2M
upload.GetData()
if upload.ErrorID>0 then
response.Write upload.Description
else
dim file,savpath
savepath = "upload"
set file = upload.files("file1")
if file.isfile then
result = file.saveToFile(savepath,0,true)
if result then
response.Write "文件*" & file.LocalName & "*上传成功，保存位置*" & server.MapPath(savepath & "/" & file.filename) & "*,文件大小" & file.size & "字节<br />"
else
response.Write file.Exception
end if
end if
set file = upload.files("file2")
if file.isfile then
result = file.saveToFile(savepath,1,true)
if result then
response.Write "文件*" & file.LocalName & "*上传成功，保存位置*" & server.MapPath(savepath & "/" & file.filename) & "*,文件大小" & file.size & "字节<br />"
else
response.Write file.Exception
end if
end if
set file = upload.files("file3")
if file.isfile then
file.UserSetName = "jo-test"
result = file.saveToFile(savepath,-1,true)
if result then
response.Write "文件*" & file.LocalName & "*上传成功，保存位置*" & server.MapPath(savepath & "/" & file.filename) & "*,文件大小" & file.size & "字节<br />"
else
response.Write file.Exception
end if
end if
set file = upload.files("file4")
if file.isfile then
result = file.saveToFile(savepath,1,false)
if result then
response.Write "文件*" & file.LocalName & "*上传成功，保存位置*" & server.MapPath(savepath & "/" & file.filename) & "*,文件大小" & file.size & "字节"
else
response.Write file.Exception
end if
end if
dim Conn,RS
Set RS = Server.CreateObject("ADODB.Recordset")
Set Conn = CreateObject("ADODB.Connection")
Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
Conn.open "Data Source=" & Server.MapPath("db1.mdb")
dim id
RS.Open "[dynamic of campus]", Conn, 1, 2
RS.AddNew
RS("image1") = savepath & "/" & file.filename("file1")
RS.Update
id= RS("id")
RS.Close
Conn.Close
set file = nothing
end if
set upload = nothing
%>

RS("image1") = savepath & "/" & file.filename这里是将路径插入数据库嘛，我想请问总共有4个文件，怎样指定第一个文件路径呢？

file1 那个不是路径吗

upload.files("file1")

不太懂，帮楼主顶一下