各位给看看使用aspupload写的代码老是出错，但我却查不到哪里错了啊

aspnewuser 2003-12-08 10:58:45

aspuploadform.asp页的代码如下：
==========================================================================
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body>
<form action="aspupload.asp" method="post" enctype="multipart/form-data" name="form1">
<input type="file" name="file">
<input type="submit" name="Submit" value="Submit">
<input name="filepath" type="hidden" id="filepath" value="aspupload/">
</form>
</body>
</html>
=========================================================================
processupload.asp代码如下：

<%
Function CheckFileExt(fileEXT)
dim Forumupload
Forumupload="gif,jpg,bmp,jpeg,zip"
Forumupload=split(Forumupload,",")
for i=0 to ubound(Forumupload)
if lcase(fileEXT)=lcase(trim(Forumupload(i))) then
CheckFileExt=true
exit Function
else
CheckFileExt=false
end if
next
End Function

On Error Resume Next

Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles=False
Upload.SetMaxSize 33554432, True

Count=Upload.Save

if Err.Number = 8 then
Response.Write "文件超过32兆限制."
elseif Err <> 0 then
Response.Write "发生错误: " & Err.Description
elseif Count < 1 then
Response.Write "未选择文件."
Response.end
end If

formPath=Upload.form("filepath")
if right(formPath,1)<>"/" then formPath=formPath&"/"
for each file in Upload.Files
fileEXT=lcase(replace(File.ext,".",""))
if CheckFileExt(fileEXT)=false then
response.write "只允许GIF、JPG、BMP、JPEG、ZIP五种格式."
response.end
end if
randomize
ranNum=int(90000*rnd)+10000
filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&File.EXT
filename=formPath&filename
if Upload.FileExists(Server.MapPath(filename)) then
response.write "文件已存在"
response.end
else
conn="Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db2.mdb")
set rs=server.createobject("ADODB.Recordset")
rs.open "ASPUPLOAD",conn,2,3
rs.AddNew
rs("FILE_NAME")=filename
rs("FILE_SIZE")=File.Size
rs("FILE_EXT")=fileEXT
rs.Update
File.SaveAs Server.MapPath(filename)
%>
==========================================================================
老是提示最后一行错误，但我是照aspupload组件的例程写的，应该没错吧，麻烦各位给看看到底是哪里不妥，先谢谢了！

...全文

35 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

postform999 2004-03-10

打赏
举报

aspnewuser 2003-12-09

打赏
举报

是我晕了，少了end if，也少了next，数据库连接方式又写错了，真失败！最后完整可运行代码如下：
==================================================================
<%
Function CheckFileExt(fileEXT)
dim Forumupload
Forumupload="gif,jpg,bmp,jpeg,zip"
Forumupload=split(Forumupload,",")
for i=0 to ubound(Forumupload)
if lcase(fileEXT)=lcase(trim(Forumupload(i))) then
CheckFileExt=true
exit Function
else
CheckFileExt=false
end if
next
End Function

On Error Resume Next

Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles=False
Upload.SetMaxSize 33554432, True

Count=Upload.Save

if Err.Number = 8 then
Response.Write "文件超过32兆限制."
elseif Err <> 0 then
Response.Write "发生错误: " & Err.Description
elseif Count < 1 then
Response.Write "未选择文件."
Response.end
end If

formPath=Upload.form("filepath")
if right(formPath,1)<>"/" then formPath=formPath&"/"
for each file in Upload.Files
fileEXT=lcase(replace(File.ext,".",""))
if CheckFileExt(fileEXT)=false then
response.write "只允许GIF、JPG、BMP、JPEG、ZIP五种格式."
response.end
end if
randomize
ranNum=int(90000*rnd)+10000
filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&File.EXT
filename=formPath&filename
if Upload.FileExists(Server.MapPath(filename)) then
response.write "文件已存在"
response.end
else
set conn=Server.CreateObject("ADODB.Connection")
conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db2.mdb")
set rs=server.createobject("ADODB.Recordset")
rs.open "ASPUPLOAD",conn,2,3
rs.AddNew
rs("FILE_NAME")=filename
rs("FILE_SIZE")=File.Size
rs("FILE_EXT")=fileEXT
rs.Update
File.SaveAs Server.MapPath(filename)
end if
next
set conn=nothing
rs.close
set rs=nothing
%>

nchen123 2003-12-08