从北风网下载了一个upfile.inc 文件,按视频教程。做一个上传文件,为什么提示出错?
<!--#include file="upfile.inc"-->
<%
response.charset = "GBK"
dim picdir,fso_csv
set fso_csv = server.createobject("scripting.filesystemobject")
if fso_csv.fileexists(server.mappath("shebei\114.csv")) then
fso_csv.deletefile(server.mappath("shebei\114.csv"))
end if
set fso_csv=nothing
if request.querystring("menu") = "up" then
dim fileup,formpath,file,filename
'当点击了上传之后,执行上传操作
set fileup=new Upload_file '实例化一个类 fileup就是一个对象
fileup.GetDate(-1)
'formpath="shebei/" '上传的路径
set file=fileup.file("file") '创建一个file对象,通过上面一个对象的file方法传入一个"file"参数
'这个方法能够返回你上传文件的后缀
'只允许上传指定的图片文件
if file.fileext <> "csv" then
response.write "<script>alert('文件类型必须是csv');window.close();</script>"
response.end
end if
'建立一个完整的路径
filename = "shebei\114." & file.fileext
file.savetofile server.mappath(filename)
set file = nothing
set fileup = nothing
'response.write "<script>alert('数据上传成功,断续导入数据库?');window.close();</script>"
response.write "<script>alert('数据上传成功,断续导入数据库?');window.close();</script>"
'response.redirect "nj_update.asp"
else
%>
<form enctype="multipart/form-data" method="post" action=upfile.asp?menu=up>
<input type="file" name="file" size="30">
<input type="submit" value="上 传 " />
</form>
<%
end if
%>
运行提示出错。上面的程序问题出在哪里?谁有上传文件的代码。
最可能的原因是:
?该网站正在进行维护。
?该网站有程序错误。