上传图片出现的问题

文件：upload_Image.asp
出现的错误是：Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

服务器对象 错误 'ASP 0177 : 800401f3'

Server.CreateObject 失败

/lyb/admin/Product/UPLOAD_IMG.ASP，行32

无效的 ProgID。 若要获取关于此消息的更多的信息，请访问 Microsoft 联机支持站点: http://www.microsoft.com/contentredirect.asp 。

<%
function GetExtendName(FileName)
dim ExtName
I = InstrRev(FileName,".")
ExtName = Right(FileName,len(FileName)-I)
GetExtendName = ExtName
end function

function GetMainName(FileName)
dim MainName
'Response.Write FileName
'Response.End
I = InstrRev(FileName,".")
MainName = Left(FileName,I-1)
GetMainName = MainName
end function

iname = Request.QueryString("iname")
if iName="" then
call MsgBox("将保存的相对路径名称不能为空",1)
End If

If Request.ServerVariables("REQUEST_METHOD") = "POST" and Request.QueryString("type")<>"" Then
'Response.End
call CreateDIR(Application("SourceIMG"))

Set Fs = Server.CreateObject("scripting.filesystemobject")
Set objUpload = Server.CreateObject("aspcn.upload")------------行32

ImgDirectory = Server.MapPath(Application("SourceIMG"))

SavedFileName = Cstr(NowFlag) & ".jpg" '& GetExtendName(UpLoadFileName)
TempFileName = Cstr(NowFlag) & ".tmp"

Tfile = server.MapPath(Application("SourceIMG")& TempFileName)
ufile = server.MapPath(Application("SourceIMG")& SavedFileName)

objupload.maxsize = 100000000 '设定文件最大长度不超过100K,默认值为100K
objupload.overwrite = 2 '设定如果目标文件存在，进行覆盖，默认为1，表示不能覆盖
objupload.path = ImgDirectory '设定上传到服务器的路径，这里必须为绝对路径，默认值为c:/
objupload.uptofile = 1 '设置为上传后保存为文件
objUpload.NewFileName = TempFileName

varResult = objUpload.Upload '调用upload方法将文件保存
'ExtName = GetExtendName(objupload.filename("Img"))

If varResult<>"OK" Then '如果varResult返回OK,则文件上载成功
Call Msgbox("上传失败!",1)
End If

'这里处理图片的大小.如果是小图的话，就处理，如果是大图的话，就不处理.
SImg = Tfile
DImg = ufile

ImgWidth = Application("ImgSmallWidth")
ImgHeight= Application("ImgSmallHeight")

If Lcase(iName) = "small_pic" then
Call ProcessImg(SImg,DImg,ImgWidth,ImgHeight)
Else
Call Fs.CopyFile(SImg,DImg)
End IF

Call delFile(Application("SourceIMG")& TempFileName)
'Call delVFile(SImg)

set objUpload = nothing
Set Fs = nothing

NewsID = Trim(Session("newsID"))
Filelink = Application("SourceIMG") & SavedFileName
'FileName = UpLoadFileName
FileName = SavedFileName
%>

<%
Response.End
end if
%>