Question

艾恩ASP无组件上传保存到数据库出错

dim upload
set upload = new AnUpLoad
upload.Exe = "doc|docx"
upload.MaxSize = 5 * 1024 * 1024 '5M
upload.openProcesser= true
upload.GetData()
if upload.ErrorID>0 then
response.Write upload.Description
response.Write("<script language=javascript>alert('上传错误，请检查您的文件类型!');history.go(-1)</script>")
else
dim file,savpath
savepath = "../upfile/Resume"
set file = upload.files("file1")
if not(file is nothing) then
set result = file.saveToFile(savepath,1,false)

'--------------------------------------------------------
'start

Set up = server.CreateObject("adodb.recordset")
sql = "select * from [F_rt]"
up.Open sql, conn, 1, 3
up.addnew
up("file1") = file.saveToFile("file1") '错误行
up.update
up.Close

'end
'-------------------------------------------------------
if not result.error then
'response.Write "文件'" & file.LocalName & "'上传成功，保存位置'" & server.MapPath(savepath & "/" & file.filename) & "',文件大小" & file.size & "字节"
response.Write "<script language=javascript>alert('上传成功！');window.location.href='onlion_re.asp';</script>"
else
response.Write file.Exception
end if
end if
end if
set upload = nothing

现在报错信息为：
Microsoft VBScript 运行时错误 (0x800A01C2)
错误的参数个数或无效的参数属性值: 'SaveToFile'
/rt/web/upload.asp, 第 27 行

麻烦各位大侠帮看看，谢谢......

Answer 1

你先输出下变量file1的值，看看有没有问题吧。

追问

晕，我肯定是测试过没有值的 才到这破百度上来找答案的
麻烦直接告诉我答案
谢谢

追答

没有值就没传成功啊，你这个页面没有request么？从哪个页面传过来的，变量名是啥，那你就把这个加到这个页面最前面
file1=request("变量名")

追问

算了，我还是再看看，谢谢你