Question

化境无组件上传修改

<%OPTION EXPLICIT%>
<%Server.ScriptTimeOut=5000%>
<!--#include FILE="../conn.asp"-->
<!--#include FILE="upload_5xsoft.inc"-->
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from down"
rs.open sql,conn,1,3
dim upload,file,formName,formPath
set upload=new upload_5xsoft ''建立上传对象
formPath="file/"'路径
for each formName in upload.objFile ''列出所有上传了的文件
set file=upload.file(formName) ''生成一个文件对象
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
file.SaveAs Server.mappath(formPath&file.FileName) ''保存文件
rs.addnew
rs("path")=formPath&file.FileName
rs.update
rs.close
set rs=nothing
end if
set file=nothing

next

set upload=nothing ''删除此对象
%>
<script>window.parent.Finish("上传文件成功！");</script>

conn链接没问题，数据库没问题，但就是 rs("path")=formPath&file.FileName 不能把文件地址写入数据库，到底问题在哪儿？谢谢！

Answer 1

你文件有没有保存到文件夹？？？
、有的话那就是记录写入哪里错了。。没有。。可能是其它地方有问题。。。。。<%OPTION EXPLICIT%>..用了这个也不定义下变量。。rs，sql还有包含的文件里里有没有<%%On Error Resume Next%>有就删掉它看看错误提示。。哪里出错了。。再贴上来看看。。。。顺便把upload_5xsoft.inc
贴上来我来试试看行不行。。。 下面代码可以。。。<%OPTION EXPLICIT%>
<%Server.ScriptTimeOut=5000%>
<%dim conn
set Conn=Server.CreateObject ("Adodb.Connection")
Conn.Open "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("up.mdb")%>
<!--#include FILE="upload_5xsoft.inc"-->
<%dim rs,sql
set rs=server.CreateObject("adodb.recordset")
sql="select * from down"
rs.open sql,conn,1,3
dim upload,file,formName,formPath
set upload=new upload_5xsoft ''建立上传对象
formPath="file/"'路径
for each formName in upload.objFile ''列出所有上传了的文件
set file=upload.file(formName) ''生成一个文件对象
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
file.SaveAs Server.mappath(formPath&file.FileName) ''保存文件
rs.addnew
rs("path")=formPath&file.FileName
rs.update
rs.close
set rs=nothing
end if
set file=nothing

next

set upload=nothing ''删除此对象
%>如果还不行就是你电脑的问题里