吉林大学自学考试:如何使用“化境上传”将上传后的完整文件路径和文件名添加到数据库中去？并且如何判断是否有同名文件？

Set rs = Server.CreateObject("ADODB.Recordset")
sqlstr="Select * from module"
rs.open sqlstr,cn,1,3
rs.addnew
rs("module_name")=upload.form("module_name")
rs("module_explain")=upload.form("content")
rs("type")=upload.form("type")
rs.update
id=rs("id")

formPath=upload.form("file1")
set file=upload.file("small_pic") ''生成一个文件对象
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
file.SaveAs Server.mappath(formPath&id&right(file.Filename,4)) ''保存文件
rs("small_pic")=mid(formPath&id&right(file.Filename,4),4)
rs.update
end if

formPath=upload.form("file2")
set file=upload.file("big_pic") ''生成一个文件对象
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
file.SaveAs Server.mappath(formPath&id&right(file.Filename,4)) ''保存文件
rs("big_pic")=mid(formPath&id&right(file.Filename,4),4)
rs.update
end if

formPath=upload.form("rarsrc")
set file=upload.file("rar") ''生成一个文件对象
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
file.SaveAs Server.mappath(formPath&id&right(file.Filename,4)) ''保存文件
rs("RAR")=mid(formPath&id&right(file.Filename,4),4)
rs.update
end if

rs.close
set file=nothing
set upload=nothing ''删除此对象

这是我的一个页面里使用的上传语句，里面最多可以上传3个图片，由于我要上传的文件拓展名只有3个，所以我用的获取拓展名的方法有点不正规。以第一个为例，我在上一个页面建立了一个叫file1的隐藏表单，里面设置了一个函数用于对新文件进行命名，这样我就可以把路径写入数据库，同时也可以上传文件了！
如还不明白请加QQ17983188

不错！回答得好！
不能再用Request了！