李志2017跨年演唱录像:我的asp 文件上传代码有错，忘指教。

我只想在一个页面里能够上传一个文件，但是所写的代码老出错，希望能够给予指正，谢谢。另外，例子上for each语句是列出所有上传文件的表格，我希望去掉。
代码如下（用的是先锋）：
dim upfile,formPath,ServerPath,FSPath,formName,FileName,oFile,upfilecount
upfilecount=0
set upfile=new clsUp upfile.NoAllowExt="asp;exe;htm;html;aspx;cs;vb;js;" '文件上传黑名单
upfile.GetData (10240000)
if upfile.isErr then
select case upfile.isErr
case 1
Response.Write "没有选择文件"
case 2
Response.Write "上传的文件不能大于10Mb"
end select
else
FSPath=GetFilePath(Server.mappath("upfile.asp"),"\")&"uploadfile" & "uploadfile"
ServerPath=GetFilePath(Request.ServerVariables("HTTP_REFERER"),"/")
for each formName in upfile.file
set oFile=upfile.file(formname)
FileName=upfile.form(formName)
FileName=oFile.filename&now()
upfile.SaveToFile formname,FSPath&FileName if upfile.iserr then
Response.Write upfile.errmessage
else
upfilecount=upfilecount+1
Response.Write "上传成功"
end if
set oFile=nothing
next
end if

set upfile=nothing
function GetFilePath(FullPath,str)
If FullPath <> "" Then
GetFilePath = left(FullPath,InStrRev(FullPath, str))
Else
GetFilePath = ""
End If
End function