如何使用“化境上传”将上传后的完整文件路径和文件名添加到数据库中去?并且如何判断是否有同名文件?
Set rs = Server。CreateObject("ADODB。Recordset")sqlstr="Select * from module"rs。open sqlstr,cn,1,3rs。 addnewrs("module_name")=upload。form("module_name")rs("module_explain")=upload。form("content")rs("type")=upload。 form("type")rs。updateid=rs("id")formPath=upload。form("file1") set file=upload。file(...全部
Set rs = Server。CreateObject("ADODB。Recordset")sqlstr="Select * from module"rs。open sqlstr,cn,1,3rs。
addnewrs("module_name")=upload。form("module_name")rs("module_explain")=upload。form("content")rs("type")=upload。
form("type")rs。updateid=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 ifformPath=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。closeset file=nothingset upload=nothing ''删除此对象这是我的一个页面里使用的上传语句，里面最多可以上传3个图片，由于我要上传的文件拓展名只有3个，所以我用的获取拓展名的方法有点不正规。
以第一个为例，我在上一个页面建立了一个叫file1的隐藏表单，里面设置了一个函数用于对新文件进行命名，这样我就可以把路径写入数据库，同时也可以上传文件了!如还不明白请加QQ17983188。收起
