搜索
编程论坛 → WEB开发 → 『 ASP技术论坛 』 → 求助！错误 '800a03f6' 和 错误 '800a0cc1'
标题：求助！错误 '800a03f6' 和 错误 '800a0cc1'
只看楼主
yyah
Rank: 1
等　级：新手上路
帖　子：6
专家分：0
注　册：2006-10-12
楼主
 问题点数：0 回复次数：6 
求助！错误 '800a03f6' 和 错误 '800a0cc1'

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

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

ADODB.Recordset 错误 '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/gpec/news/edit_prorpt.asp，行99

请问出错在那里 下面是原程序编辑中的一部分。
出错：在打开网页编辑后台操作，按编辑显示上面的界面。
我是个菜鸟。
请帮助我的说的详细一些！
if mtype="update" then
sql="update ie_prorpt set f1='"&f1&"',f2='"&f2&"',f3='"&f3&"',f4='"&f4&"',f5='"&f5&"',f6='"&f6&"',f7='"&f7&"',f8='"&f8&"',f9='"&f9&"',f10='"&f10&"',f11='"&f11&"',f12='"&f12&"',f13='"&f13&"',f14='"&f14&"',f15='"&f15&"',f16='"&f16&"',f17='"&f17&"',f18='"&f18&"',f19='"&f19&"',f20='"&f20&"',f21='"&f21&"',f22='"&f22&"',f23='"&f23&"',f24='"&f24&"',f25='"&f25&"',f26='"&f26&"' where year(f_date)='"&yyyy&"' and month(f_date)='"&mm&"' and day(f_date)='"&dd&"',cb1='"&cb1&"',cb2='"&cb2&"',cb3='"&cb3&"',cb4='"&cb4&"' where id='"&id&"'"
cntIE.execute sql
response.write "<center>工程快报编辑成功！<br><br><a href=javascript:window.close()>关闭</a></center>"
'response.end
end if
if mtype="insert" then
sql="insert ie_prorpt(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,f18,f19,f20,f21,f22,f23,f24,f25,f26,cb1,cb2,cb3,cb4)values('"&f1&"','"&f2&"','"&f3&"','"&f4&"','"&f5&"','"&f6&"','"&f7&"','"&f8&"','"&f9&"','"&f10&"','"&f11&"','"&f12&"','"&f13&"','"&f14&"','"&f15&"','"&f16&"','"&f17&"','"&f18&"','"&f19&"','"&f20&"','"&f21&"','"&f22&"','"&f23&"','"&f24&"','"&f25&"','"&f26&"','"&cb1&"','"&cb2&"','"&cb3&"','"&cb4&"')"
cntIE.execute sql
response.write "<center>工程快报编辑成功！<br><br><a href=javascript:window.close()>关闭</a></center>"
'response.end
end if
else
sql="select top 1 * from ie_prorpt order by id desc"
set rs=cntIE.execute(sql)

搜索更多相关主题的帖子: 编辑　sql　collection　Microsoft　requested　
2006-10-12 09:39
xiapi
Rank: 1
等　级：新手上路
威　望：2
帖　子：305
专家分：0
注　册：2006-10-11
第 2 楼
 得分:0 
以下是引用yyah在2006-10-12 9:39:46的发言：

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

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

ADODB.Recordset 错误 '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/gpec/news/edit_prorpt.asp，行99

请问出错在那里 下面是原程序编辑中的一部分。
出错：在打开网页编辑后台操作，按编辑显示上面的界面。
我是个菜鸟。
请帮助我的说的详细一些！
if mtype="update" then
sql="update ie_prorpt set f1='"&f1&"',f2='"&f2&"',f3='"&f3&"',f4='"&f4&"',f5='"&f5&"',f6='"&f6&"',f7='"&f7&"',f8='"&f8&"',f9='"&f9&"',f10='"&f10&"',f11='"&f11&"',f12='"&f12&"',f13='"&f13&"',f14='"&f14&"',f15='"&f15&"',f16='"&f16&"',f17='"&f17&"',f18='"&f18&"',f19='"&f19&"',f20='"&f20&"',f21='"&f21&"',f22='"&f22&"',f23='"&f23&"',f24='"&f24&"',f25='"&f25&"',f26='"&f26&"' where year(f_date)='"&yyyy&"' and month(f_date)='"&mm&"' and day(f_date)='"&dd&"',cb1='"&cb1&"',cb2='"&cb2&"',cb3='"&cb3&"',cb4='"&cb4&"' where id='"&id&"'"
cntIE.execute sql
response.write "<center>工程快报编辑成功！<br><br><a href=javascript:window.close()>关闭</a></center>"
'response.end
end if
if mtype="insert" then
sql="insert ie_prorpt(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,f18,f19,f20,f21,f22,f23,f24,f25,f26,cb1,cb2,cb3,cb4)values('"&f1&"','"&f2&"','"&f3&"','"&f4&"','"&f5&"','"&f6&"','"&f7&"','"&f8&"','"&f9&"','"&f10&"','"&f11&"','"&f12&"','"&f13&"','"&f14&"','"&f15&"','"&f16&"','"&f17&"','"&f18&"','"&f19&"','"&f20&"','"&f21&"','"&f22&"','"&f23&"','"&f24&"','"&f25&"','"&f26&"','"&cb1&"','"&cb2&"','"&cb3&"','"&cb4&"')"
cntIE.execute sql
response.write "<center>工程快报编辑成功！<br><br><a href=javascript:window.close()>关闭</a></center>"
'response.end
end if
else
sql="select top 1 * from ie_prorpt order by id desc"
set rs=cntIE.execute(sql)

'这里的end if放最后试一下
else
sql="select top 1 * from ie_prorpt order by id desc"
set rs=cntIE.execute(sql)
end if


没有什么能够阻挡,我对自由的向往,天马行空的生涯一颗心了无牵挂。
2006-10-12 09:44
yyah
Rank: 1
等　级：新手上路
帖　子：6
专家分：0
注　册：2006-10-12
第 3 楼
 得分:0 
我把整个原程序贴出来。
<!--#include virtual="/commonFileAsp.asp"-->

<%
Function Getpbdate(TheDate)
y=year(date)
m=month(date)
d=day(date)
w=weekday(date)
if w=1 then wk="星期日"
if w=2 then wk="星期一"
if w=3 then wk="星期二"
if w=4 then wk="星期三"
if w=5 then wk="星期四"
if w=6 then wk="星期五"
if w=7 then wk="星期六"
Getpbdate=y&"年"&m&"月"&d&"日"&" "&wk
'Getpbdate = Getpbdate&" "&DatePart("h",TheDate)
'Getpbdate = Getpbdate&":"&DatePart("n",TheDate)
End Function
if trim(request("ok")="yes") then
id=trim(request("id"))
f1=trim(request("f1"))
f2=trim(request("f2"))
f3=trim(request("f3"))
f4=trim(request("f4"))
f5=trim(request("f5"))
f6=trim(request("f6"))
f7=trim(request("f7"))
f8=trim(request("f8"))
f9=trim(request("f9"))
f10=trim(request("f10"))
f11=trim(request("f11"))
f12=trim(request("f12"))
f13=trim(request("f13"))
f14=trim(request("f14"))
f15=trim(request("f15"))
f16=trim(request("f16"))
f17=trim(request("f17"))
f18=trim(request("f18"))
f19=trim(request("f19"))
f20=trim(request("f20"))
f21=trim(request("f21"))
f22=trim(request("f22"))
f23=trim(request("f23"))
f24=trim(request("f24"))
f25=trim(request("f25"))
f26=trim(request("f26"))
yyyy=trim(request("yyyy"))
mm=trim(request("mm"))
dd=trim(request("dd"))
mtype=trim(request("mtype"))
cb1=trim(request("cb1"))
cb2=trim(request("cb2"))
cb3=trim(request("cb3"))
cb4=trim(request("cb4"))
if mtype="update" then
sql="update ie_prorpt set f1='"&f1&"',f2='"&f2&"',f3='"&f3&"',f4='"&f4&"',f5='"&f5&"',f6='"&f6&"',f7='"&f7&"',f8='"&f8&"',f9='"&f9&"',f10='"&f10&"',f11='"&f11&"',f12='"&f12&"',f13='"&f13&"',f14='"&f14&"',f15='"&f15&"',f16='"&f16&"',f17='"&f17&"',f18='"&f18&"',f19='"&f19&"',f20='"&f20&"',f21='"&f21&"',f22='"&f22&"',f23='"&f23&"',f24='"&f24&"',f25='"&f25&"',f26='"&f26&"' where year(f_date)='"&yyyy&"' and month(f_date)='"&mm&"' and day(f_date)='"&dd&"',cb1='"&cb1&"',cb2='"&cb2&"',cb3='"&cb3&"',cb4='"&cb4&"' where id='"&id&"'"
cntIE.execute sql
response.write "<center>工程快报编辑成功！<br><br><a href=javascript:window.close()>关闭</a></center>"
'response.end
end if
if mtype="insert" then
sql="insert ie_prorpt(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,f18,f19,f20,f21,f22,f23,f24,f25,f26,cb1,cb2,cb3,cb4)values('"&f1&"','"&f2&"','"&f3&"','"&f4&"','"&f5&"','"&f6&"','"&f7&"','"&f8&"','"&f9&"','"&f10&"','"&f11&"','"&f12&"','"&f13&"','"&f14&"','"&f15&"','"&f16&"','"&f17&"','"&f18&"','"&f19&"','"&f20&"','"&f21&"','"&f22&"','"&f23&"','"&f24&"','"&f25&"','"&f26&"','"&cb1&"','"&cb2&"','"&cb3&"','"&cb4&"')"
cntIE.execute sql
response.write "<center>工程快报编辑成功！<br><br><a href=javascript:window.close()>关闭</a></center>"
'response.end
end if
else
sql="select top 1 * from ie_prorpt order by id desc"
set rs=cntIE.execute(sql)
if not rs.eof then
id=trim(rs("id"))
f1=trim(rs("f1"))
f2=trim(rs("f2"))
f3=trim(rs("f3"))
f4=trim(rs("f4"))
f5=trim(rs("f5"))
f6=trim(rs("f6"))
f7=trim(rs("f7"))
f8=trim(rs("f8"))
f9=trim(rs("f9"))
f10=trim(rs("f10"))
f11=trim(rs("f11"))
f12=trim(rs("f12"))
f13=trim(rs("f13"))
f14=trim(rs("f14"))
f15=trim(rs("f15"))
f16=trim(rs("f16"))
f17=trim(rs("f17"))
f18=trim(rs("f18"))
f19=trim(rs("f19"))
f20=trim(rs("f20"))
f21=trim(rs("f21"))
f22=trim(rs("f22"))
f23=trim(rs("f23"))
f24=trim(rs("f24"))
f25=trim(rs("f25"))
f26=trim(rs("f26"))
yyyy=year(rs("f_date"))
mm=month(rs("f_date"))
dd=day(rs("f_date"))
cb1=trim(rs("cb1"))
cb2=trim(rs("cb2"))
cb3=trim(rs("cb3"))
cb4=trim(rs("cb4"))
if (yyyy=year(now))and(mm=month(now))and(dd=day(now)) then
mtype="update"
else
mtype="insert"
end if
end if
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>工程快报</title>
<STYLE type=text/css>
BODY {
COLOR: #000000; FONT-FAMILY: "宋体"; FONT-SIZE: 12px; LINE-HEIGHT: 18px; TEXT-DECORATION: none
}
TD {
COLOR: #000000; FONT-FAMILY: "宋体"; FONT-SIZE: 12px; LINE-HEIGHT: 18px; TEXT-DECORATION: none
}
.textface {
border-left-style: solid; border-left-color: #FFFFFF; border-right-style: solid; border-right-color: #FFFFFF; border-top-style: solid; border-top-color: #FFFFFF; border-bottom-style: solid; border-bottom-width: 1;border-bottom-color: #0000FF;color:#ff0000
}
INPUT.buttonface
{
border-left:1 ridge #ffffff;border-top:1 ridge #ffffff;border-bottom:1;border-right:1;border-style:ridge;background-color:rgb(235,207,2)
}
</STYLE>
</head>
<BODY bgColor=#ffffff><center>当前日期：<%=Getpbdate(now)%><hr height="1" color=blue>
编辑工程快报
<form method="post" action="edit_prorpt.asp">
<input type="hidden" name="mtype" value="<%=mtype%>"><input type="hidden" name="id" value="<%=id%>">
<table cellpadding=0 cellspacing=0 border=0 width=550 style="FONT-SIZE: 15px">
<tr><td valign=top align=right>【日期】</td><td valign=top><input name="yyyy" size="6" class="textface" value=" <%=yyyy%>">年<input name="mm" size="6" class="textface" value=" <%=mm%>">月<input name="dd" size="6" class="textface" value=" <%=dd%>">日【天气】<input name="f1" size="21" class="textface" value=" <%=f1%>"></td></tr>
<tr><td colspan=2 height=6></td></tr>
<tr><td valign=top align=right>【安全】</td><td valign=top>当前安全天数<font color=red><input name="f2" size="6" class="textface" value=" <%=f2%>"></font>天，工程安全天数<font color=red><input name="f3" size="6" class="textface" value=" <%=f3%>"></font>天</td></tr>
<tr><td colspan=2 height=6></td></tr>
<tr><td valign=top align=right>【质量】</td><td valign=top>分项工程验收优良率<font color=red><input name="f4" size="6" class="textface" value=" <%=f4%>">%</font><br>焊口检验一次合格率<font color=red><input name="f5" size="6" class="textface" value=" <%=f5%>">%</font><br>不符合项关闭率<font color=red><input name="f6" size="6" class="textface" value=" <%=f6%>">%</font></td></tr>
<tr><td colspan=2 height=6></td></tr>
<tr><td valign=top align=right>【进度】</td><td valign=top>
<P>总体进度<font color=red><input name="f7" size="6" class="textface" value=" <%=f7%>">%</font>，提前(+)<font color=red>／</font>拖后(-)<font color=red><input name="f8" size="6" class="textface" value=" <%=f8%>">%</font>，累计完成WLU<font color=red><input name="f10" size="6" class="textface" value=" <%=f10%>"></font><br>
本周完成进度<font color=red><input name="f11" size="6" class="textface" value=" <%=f11%>">%</font>，完成WLU<font color=red><input name="f12" size="6" class="textface" value=" <%=f12%>"></font><br>
下周计划进度<font color=red><input name="f13" size="6" class="textface" value=" <%=f13%>">%</font>，计划完成WLU<font color=red><input name="f14" size="6" class="textface" value=" <%=f14%>"></font><br>
锅炉累计进度<font color=red><input name="f15" size="6" class="textface" value=" <%=f15%>">%</font>，汽管累计进度<font color=red><input name="f16" size="6" class="textface" value=" <%=f16%>">%</font><br>
电仪累计进度<font color=red><input name="f25" size="6" class="textface" value=" <%=f25%>">%</font>，油保累计进度<font color=red><input name="f26" size="6" class="textface" value=" <%=f26%>">%</font></P>
<tr><td colspan=2 height=6></td></tr>
<tr><td valign=top align=right>【人力】</td><td valign=top>
<P>分公司人力<font color=red><input name="f17" size="6" class="textface" value=" <%=f17%>"></font>人，其中管技人员<font color=red><input name="f18" size="6" class="textface" value=" <%=f18%>"></font>人，施工人员<font color=red><input name="f19" size="6" class="textface" value=" <%=f19%>"></font>人<br>
分包劳动力(包括分子公司)<font color=red><input name="f20" size="6" class="textface" value=" <%=f20%>"></font>人，其中分子公司<font color=red><input name="f21" size="6" class="textface" value=" <%=f21%>"></font>人，劳务支持<font color=red><input name="f22" size="6" class="textface" value=" <%=f22%>"></font>人<br>
总体劳动力<font color=red><input name="f23" size="6" class="textface" value=" <%=f23%>"></font>人，其中缺勤<font color=red><input name="f24" size="6" class="textface" value=" <%=f24%>"></font>人</P></td></tr>
<tr><td valign=top align=right>【成本】</td><td valign=top>ACWP<font color=red><input name="cb1" size="6" class="textface" value=" <%=cb1%>"></font>万，BCWP<font color=red><input name="cb2" size="6" class="textface" value=" <%=cb2%>"></font>万<br>
BCWS<font color=red><input name="cb3" size="6" class="textface" value=" <%=cb3%>"></font>万，CV<font color=red><input name="cb4" size="6" class="textface" value=" <%=cb4%>"></font>万
</td></tr>
<tr><td colspan=2 height=16></td></tr>
<tr><td colspan=2 align=middle ><input type="submit" value="提 交" class="buttonface">&nbsp;&nbsp;<input type="reset" value="重 填" class="buttonface"><input type="hidden" name="ok" value="yes"></td></tr>
</table></form></center>
</BODY>
2006-10-12 09:47
yyah
Rank: 1
等　级：新手上路
帖　子：6
专家分：0
注　册：2006-10-12
第 4 楼
 得分:0 
else
sql="select top 1 * from ie_prorpt order by id desc"
set rs=cntIE.execute(sql)
if not rs.eof then
id=trim(rs("id"))
f1=trim(rs("f1"))
f2=trim(rs("f2"))
f3=trim(rs("f3"))
f4=trim(rs("f4"))
f5=trim(rs("f5"))
f6=trim(rs("f6"))
f7=trim(rs("f7"))
f8=trim(rs("f8"))
f9=trim(rs("f9"))
f10=trim(rs("f10"))
f11=trim(rs("f11"))
f12=trim(rs("f12"))
f13=trim(rs("f13"))
f14=trim(rs("f14"))
f15=trim(rs("f15"))
f16=trim(rs("f16"))
f17=trim(rs("f17"))
f18=trim(rs("f18"))
f19=trim(rs("f19"))
f20=trim(rs("f20"))
f21=trim(rs("f21"))
f22=trim(rs("f22"))
f23=trim(rs("f23"))
f24=trim(rs("f24"))
f25=trim(rs("f25"))
f26=trim(rs("f26"))
yyyy=year(rs("f_date"))
mm=month(rs("f_date"))
dd=day(rs("f_date"))
cb1=trim(rs("cb1"))
cb2=trim(rs("cb2"))
cb3=trim(rs("cb3"))
cb4=trim(rs("cb4"))
if (yyyy=year(now))and(mm=month(now))and(dd=day(now)) then
mtype="update"
else
mtype="insert"
end if
end if
end if
这是程序后面的编辑
2006-10-12 09:49
hangxj
Rank: 6Rank: 6
等　级：贵宾
威　望：29
帖　子：2045
专家分：0
注　册：2006-4-10
第 5 楼
 得分:0 
逻辑错误,并且,你的99行是在哪?

http://www./
2006-10-12 09:50
yyah
Rank: 1
等　级：新手上路
帖　子：6
专家分：0
注　册：2006-10-12
第 6 楼
 得分:0 

2

[此贴子已经被作者于2006-10-12 14:31:53编辑过]

2006-10-12 10:03
yyah
Rank: 1
等　级：新手上路
帖　子：6
专家分：0
注　册：2006-10-12
第 7 楼
 得分:0 

11

[此贴子已经被作者于2006-10-12 14:30:17编辑过]

2006-10-12 10:05



参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-95742-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有，并保留所有权利。
Powered by Discuz, Processed in 1.014389 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved