Microsoft VBScript 编译器错误 '800a03f2' 那位高手帮忙看看!!

[maitong2000]

那位高手帮忙看看,我刚接触ASP不是太懂什么意思!

后台logo上传时系统提示:

Microsoft VBScript 编译器错误 '800a03f2'

缺少标识符

\master\SiteSys\Upload_Logo_Save.asp, line 23




------------------------------------------------------

<!-- #include file="../../Comm/upload_inc.asp" -->
<%
Sub ShowMsg(MsgStr , FileName)
Response.Write("<script>alert('"& MsgStr &"');")
If FileName = "" Then
Response.Write("history.back();")
ElseIf FileName = "Cls" Then
Response.Write("window.close();")
Else
Response.Write("location.href='"& FileName &"';")
End If
Response.Write("</script>")
Response.End()
End Sub

If Session("AdminId") = "" Or IsNull(Session("AdminId")) Then
ShowMsg "非法参数" , "Cls"
End If

Dim EmpPic
Dim MyRequest,MyFile,MyFileName,MyFileExt,UpFileType,UpFileName

Set MyRequest = New upload_5xsoft
UpFileType = "jpg|jpeg|gif"
AutoFileName = Year(Now) & "_" & Month(Now) & "_" & Day(Now) & "_" & Hour(Now) & "_" & Minute(Now) & "_" & Second(Now)

Set MyFile = MyRequest.File("File_Pic")
MyFileName = Split(MyFile.FileName,".")
MyFileExt = MyFileName(Ubound(MyFileName))

If InStr(UpFileType , MyFileExt) <= 0 Then
ShowMsg "上传的文件的格式不正确" , ""
End If

If MyFile.FileSize < 0 Then
ShowMsg "请选择要上传的文件" , ""
End If
If MyFile.FileSize > 1024000 Then
ShowMsg "只能上传大小在1024K以内的文件:"& MyFile.FileSize , ""
End If

UpFileName = "Yn_Logo/Logo" & "." & MyFileExt
MyFile.saveas Server.mappath("../../" & UpFileName)

Set MyFile = Nothing
Set MyRequest = Nothing
%>
<script language="javascript">
var uppic = "<%=UpFileName%>"
alert("Logo上传成功");
opener.ConfigForm.SiteLogo.value = uppic;
window.close();
</script>