帮帮忙挺急手的!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

kaijier 2005-12-08 08:54:48
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

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

Microsoft VBScript 运行时错误 错误 '800a01a8'

缺少对象: ''

/product/_update.asp,行37
===============================================
37:cls=upload.form("cls")
...全文
56 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
xpzheng 2005-12-08
  • 打赏
  • 举报
回复
应该是upload这个对象没有初始化成功,检查你的upload.inc文件中的内容
kaijier 2005-12-08
  • 打赏
  • 举报
回复
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!--#include file="upload.inc"-->
<%
if session("logined")<>1 then
response.write "<script>alert('超时或您未登录,请先登录!');parent.location.href='../login.asp';</script>"
else
dim upload,upcount,file,formName,filePath,i,sql
%>
<html>
<head>
<title>添加</title>
<meta http-equiv="pragma" content="no-cache charset=gb2312">
</head>
<body>
<%
if Trim(Request.Form("pic"))="" then
pic=Request.Form("pic_h")
else
set upload=new upload_5xSoft ''建立上传对象
filePath="upfile/"
pic=""
'上传文件
i=0
for each formName in upload.objFile
set file=upload.objFile(formName)
if file.FileSize>0 then
file.SaveAs Server.mappath(filePath&file.FileName) ''保存文件
if i=0 then
pic=file.FileName
end if
i=i+1
end if
set file=nothing
next
end if
cls=upload.form("cls")
function jjHTMLEncode(fString)
if not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, "&",CHR(38) )
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(39), "'")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")
fString = Replace(fString, CHR(32), " ")

'fString=ChkBadWords(fString)
jjHTMLEncode = fString
end if
end function
content=jjHTMLEncode(upload.Form("content"))
sql="update intro set pic='"&pic&"',content='"&content&"',cls='"&cls&"' where id="&Request.QueryString("update_id")
conn.Execute(sql)
rs.close
conn.close
set rs=nothing
set conn=nothing
set upload=nothing
response.write "<script>alert('更新简介成功!');location.href='add.asp';</script>"
response.End
end if
%>
yongz_0 2005-12-08
  • 打赏
  • 举报
回复
你这样提问谁能帮你?

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧