男孩被老爷爷小说:ASP上传图片代码难题。。。。。

<!--#include FILE="upload.inc"--><%id=request("id")%>
<%

dim upload,file,formName,formPath,iCount,filename,fileExt
set upload=new upload_5xSoft ''建立上传对象
formPath=upload.form("filepath")
content=upload.form("content")
''在目录后加(/)
if right(formPath,1)<>"/" then formPath=formPath&"/"
iCount=0
for each formName in upload.file ''列出所有上传了的文件
set file=upload.file(formName) ''生成一个文件对象
if file.filesize<100 then
Response.Write "<script>alert(""请先选择你要上传的图片"");location.href=""newsupload.asp"";</script>"
response.end
end if

if file.filesize>102400 then
Response.Write "<script>alert(""图片大小超过了限制"");location.href=""newsupload.asp"";</script>"
response.end
end if
fileExt=lcase(right(file.filename,4))
if fileEXT<>".gif" and fileEXT<>".jpg" then
Response.Write "<script>alert(""文件格式不对,请重新上传"");location.href=""newsupload.asp"";</script>"
response.end
end if
newsimage=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&file.FileName
filename=formPath&newsimage
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
file.SaveAs Server.mappath(filename) ''保存文件
' response.write file.FilePath&file.FileName&" ("&file.FileSize&") => "&formPath&File.FileName&" 成功!<br>"

iCount=iCount+1
end if
set file=nothing
next
set upload=nothing ''删除此对象
SiteURL ="http://"& Request.ServerVariables("HTTP_HOST")

If Ucase(right(SiteURL,6)) = "/ADMIN" Then
SiteURL = left(SiteURL,Len(SiteURL)-6)
End If

ImgURL=formPath&newsimage
%>

<script language=javascript>
<!--
function AddFilesOk(){
opener.document.forms[0].info_img.value = "<%=ImgURL%>";
window.alert("成功上传！");
this.close();
}
//-->
</script>
<script language=javascript>
<!--
window.alert("成功上传！");
this.close();
}
//-->
</script>
<%
Response.Write "<script language=javascript>" & vbCrLf
Response.Write "AddFilesOk();" & vbCrLf
Response.Write "</script>" & vbCrLf
%>

老是把图片传上去之后就不提示上传成功。出现错觉信息
行: 16
字符: 1
错误: 语法错误
代码: 0
URL: http://127.0.0.1/newsupfile.asp?id=

行: 6
字符: 1
错误: 'opener.document.forms.0.info_img' 为空或不是对象
代码: 0
URL: http://127.0.0.1/newsupfile.asp?id=