我下载了一个ASP源码，但是后台有点问题，修改文章按提交后显示如图：
以下是manage\InfoCenter\Editinfoupdate_InfoCenter.asp文件的代码：
<!--#include file="Include_InfoCenter.asp"-->
<!--#include virtual="/manage/INC/upload_5xsoft.inc"-->
<!--#include virtual="/manage/INC/function.asp" -->
<%
ConnOpen()
'===================================================================
dim ICI_ID,ICI_Title,ICI_hdjj,message,Bcg_ID,ICI_Isfabu,Bcg_Name,That_ICIID,ICI_Language,Infoadd,That_BcgID,ICI_Url,ICI_Ishot,ICI_keyword,ICI_ishome,ICI_starttime,ICI_endtime,ICI_ImageType
dim upload,formPath
dim ICI_Image
Const FilePath="/upfile/infoimages/"
Const FileMaxSize="10000" '文件大小K
Const FileType=".gif.jpg.bmp.swf.doc.xls."
set upload=new upload_5xSoft '建立上传对象
' 提取表单值
ICI_ID = upload.form("ICIID")
ICI_Title = upload.form("ICI_Title")
ICI_hdjj = upload.form("ICI_hdjj")
message = upload.form("message")
action = "http://" & Request.ServerVariables("HTTP_HOST")&"/"
message = Replace(upload.form("message"),action,"/")
Bcg_ID = upload.form("Bcg_ID")
PaperID = upload.form("PaperID")
ICI_Language = upload.form("ICI_Language")
if ICI_Language="" then ICI_Language="chinese"
ICI_Isfabu = upload.form("ICI_Isfabu")
AddTime = upload.form("AddTime")
ICI_Ishot = upload.form("ICI_Ishot")
PaginationType = upload.form("PaginationType")
ICI_Url = upload.form("ICI_Url")
ICI_Ishome = upload.form("ICI_Ishome")
ICI_starttime = upload.form("ICI_starttime")
ICI_endtime = upload.form("ICI_endtime")
That_BcgID = upload.form("That_BcgID")
Bcg_Name = upload.form("BcgName")
ICI_zuozhen = upload.form("ICI_zuozhen")
ICI_bei = upload.form("ICI_bei")
isyuyue = upload.form("isyuyue")
ICI_ImageType = upload.form("ICI_ImageType")
if ICI_Url<>"http://" then Response.Write CheckHttp(ICI_Url,"链接地址")
if ICI_Title<>"" then
if ICI_starttime<>"" and ICI_endtime<>"" then
if formatdatetime(Dateadd("m",2,formatdatetime(ICI_starttime)))>=formatdatetime(ICI_endtime) then
editinfoupdate()
else
Response.Redirect "success.asp?showcontent="&server.URLEncode("操作出错！<br>出错原因：促销时间长于２个月或者起始时间晚于停止时间！请检查！<br>提示：如实际促销时间长于２个月，请在２个月后再行发布！")&"&backurl=editinfo_InfoCenter.asp?BcgID="&Bcg_ID&"&BcgName="&Bcg_Name&"&That_BcgID="&That_BcgID&"&showimage=!.gif&IciID="&ICI_ID
end if
else
editinfoupdate()
end if
else
Response.Redirect "success.asp?showcontent="&server.URLEncode("操作出错！<br>出错原因：没有输入相关信息！")&"&backurl=editinfo_InfoCenter.asp?BcgID="&Bcg_ID&"&BcgName="&Bcg_Name&"&That_BcgID="&That_BcgID&"&showimage=!.gif&IciID="&ICI_ID
end if
set upload=nothing
' 更新数据库
sub editinfoupdate()
' 上传图片
timeName=makefilename() '生成当前时间的文件名
set file=upload.file("ICI_Image")
extName=GetExtendName(file.FileName)
imagesize = file.Filesize
if imagesize>0 then ''如果 FileSize > 0 说明有文件数据
if file.FileSize>FileMaxSize*1000 then back("图片不能大于"&isize&"K！") '文件超大
'if inStr(FileType,"."&extName&".")<1 then '检查文件类型
'conn.close
'set conn=nothing
'call back("上传的文件类型错误!")
'response.End()
'end if
'save_name=file.FileName ''保留原文件名
save_name=timeName&"."&extName
if len(save_name)>255 then back("文件名超长！")
file.SaveAs Server.mappath(FilePath&save_name) ''保存文件
ICI_Image=save_name
Tfilename=left(ICI_Image,len(ICI_Image)-4)
end if
set file=nothing
' 大图
set file=upload.file("ICI_Image2")
extName=GetExtendName(file.FileName)
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
if file.FileSize>FileMaxSize*1000 then Back("图片不能大于"&FileMaxSize&"K！") '文件超大
if inStr(FileType,"."&extName&".")<1 then '检查文件类型
conn.close
set conn=nothing
call Back("上传的文件类型错误!")
response.End()
end if
'save_name=file.FileName
'if len(save_name)>255 then Back("文件名超长！")
save_name=timeName&"large."&extName
file.SaveAs Server.mappath(FilePath&save_name) ''保存文件
ICI_Image2=save_name
'Tfilename=left(ICI_Image,len(ICI_Image)-4)
end if
set file=nothing
' 保存到数据库
if ICI_Title<>"" then
if ICI_ImageType="" then ICI_ImageType=Tfilename
Infoadd = editinfo(ICI_ID,ICI_Title,ICI_hdjj,message,Bcg_ID,PaperID,ICI_Image,ICI_Image2,That_ICIID,ICI_Language,ICI_Isfabu,AddTime,ICI_Ishot,ICI_Url,ICI_ishome,ICI_starttime,ICI_endtime,ICI_ImageType,isyuyue,bcg_name,ici_bei,ici_zuozhen,PaginationType)
end if
if Infoadd=1 then Response.redirect "success.asp?showcontent="&server.URLEncode("修改成功！")&"&backurl=Infolist_InfoCenter.asp?BcgID="&Bcg_ID&"&BcgName="&Bcg_Name&"&That_BcgID="&That_BcgID&"&showimage=success.gif"
end sub
ConnClose()
%>
错误提示第15行有问题：
15行内容：set upload=new upload_5xSoft
这个问题需要怎么改？请高手请教，这个源码对我来说很重要...