| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 950 人关注过本帖
标题:[求助]ADODB.Recordset 错误 '800a0cc1'
只看楼主 加入收藏
lomey
Rank: 2
等 级:论坛游民
帖 子:18
专家分:19
注 册:2007-7-21
收藏
 问题点数:0 回复次数:1 
[求助]ADODB.Recordset 错误 '800a0cc1'

ADODB.Recordset 错误 '800a0cc1'

在对应所需名称或序数的集合中,未找到项目。

/oemui/vod/progshow.asp,行 23


代码如下:

<% szPath = "../../" %>
<!--#include file="../../common/dbcon.inc.asp" -->
<%
iUserType = 10
if Len(Session("UserPayMode")) > 0 then iUserType = Cint(Session("UserPayMode"))

iGameID = Encode(Request.QueryString("id"))
szSQL = "SELECT v_proginfo.*,v_pro_price.Price,LevelInfo.LevelName"
szSQL = szSQL & " FROM (v_proginfo LEFT JOIN LevelInfo ON v_proginfo.ProgLevel=LevelInfo.Level_ID)"
szSQL = szSQL & " INNER JOIN v_pro_price ON v_proginfo.Prog_ID=v_pro_price.Prog_ID"
szSQL = szSQL & " WHERE v_proginfo.Prog_ID=" & iGameID
rsData.Open szSQL,con,1,3
if not rsData.EOF then
szProgName = GetRecordGameName(rsData("ProgName"))
szActor = rsData("Actor")
szJoinTime = rsData("JoinTime")
szGameLevel = rsData("LevelName")
szSynopsis = rsData("Synopsis")
szFileType = rsData("FileType")
szPhotoName = rsData("PhotoName")
szPlayTime = rsData("PlayTime")
iPrice = rsData("Price")
iWhere = rsData("Wherefrom")
iTypeID = rsData("Type_ID")
szMaxBitRate = rsData("MaxBitRate")
szAvgBitRate = rsData("AvgBitRate")
if IsNull(szSynopsis) then szSynopsis = ""

szSQL = "SELECT TypeName FROM TypeInfo WHERE Type_ID=" & iTypeID
set rsData_Type = Server.CreateObject("ADODB.Recordset")
rsData_Type.Open szSQL,con,1,3
if not rsData_Type.EOF then szTypeName = rsData_Type("TypeName")
rsData_Type.Close

if Len(szPlayTime) = 6 then
szPlayTime = GetPlayTime(szPlayTime, szBitRate)

if rsData("PlayTime") <> "000000" then
bWinResize = 0
else
bWinResize = 1
end if
end if
end if
iClick = GetRealClick(GetProgramGUID(iGameID))
content=left(szActor,2)&""
%>
<HTML>
<HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<link href="<% =szSkinDir %>main.css" type="text/css" rel="stylesheet">
</head>
<body leftmargin=0 topmargin=0 oncontextmenu='return false' ondragstart='return false' onselect='document.selection.empty()' oncopy='document.selection.empty()' onbeforecopy='return false' >
<a name=点播>
<TABLE cellSpacing=0 cellPadding=0 width=100% border=0 bgColor=#f6f6ee>
<tr>
<TD valign="top" width="205">
<div align="center">
<table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td bgcolor="#FFFFFF">
<% if Len(rsData("PhotoName")) > 0 and Mid(rsData("PhotoName"), 1, 1) <> "*" then %>
<img src="/<% =URLEncode(rsData("PhotoName")) %>" width="200" height="280" border="0" style="cursor:hand;" onClick="opence('opence.asp?fn=<% =URLEncode(rsData("PhotoName")) %>')">
<%else%>
<img src="<% =szPath %>images/photo.jpg" width="200" height="280" border="0">
<% end if %>
<%rsData.Close%></td>
</tr>
</table></div></td>
<td>&nbsp;</td>
<td vAlign="top"><TABLE cellSpacing="0" cellPadding="1" width="460" border="0">
<TR>
<TD colspan="2" height="25" style="font-size:24px;font-weight:bold"><strong><font color="#ff6600"><b>《<% =szProgName %>》</b></font></strong></TD>
</TR>
<TR>
<TD colSpan="2"><IMG height="5" src="<% =szSkinDir %>dtl_leftdot.gif" width="445"></TD>
</TR>
<TR>
<TD width="69"><STRONG>主要演员: </STRONG></TD>
<TD width="387"><% =szActor %></TD>
</TR>
<TR>
<TD colSpan="2"><IMG height="5" src="<% =szSkinDir %>dtl_leftdot.gif" width="445"></TD>
</TR>
<TR>
<TD><STRONG>发布时间: </STRONG></TD>
<TD><% =Year(szJoinTime) %> - <% =Month(szJoinTime) %> - <% =Day(szJoinTime) %></TD>
</TR>
<TR>
<TD colSpan="2"><IMG height="5" src="<% =szSkinDir %>dtl_leftdot.gif" width="445"></TD>
</TR>
<TR>
<TD><STRONG>影片类别: </STRONG></TD>
<TD><%=szTypeName %></TD>
</TR>
<TR>
<TD colSpan="2"><IMG height="5" src="<% =szSkinDir %>dtl_leftdot.gif" width="445"></TD>
</TR>
<TR>
<TD><STRONG>地区分类:</STRONG></TD>
<TD vAlign="top">
<% if iwhere = 1 then%>大陆地区
<%elseif iwhere = 2 then%>港台地区
<%elseif iwhere = 3 then%>日韩地区
<%elseif iwhere = 4 then%>欧美地区
<%elseif iwhere = 5 then%>其它地区
<%end if %></FONT></TD>
</TR>
<TR>
<TD colSpan="2"><IMG height="5" src="<% =szSkinDir %>dtl_leftdot.gif" width="445"></TD>
</TR>
<TR>
<TD><STRONG>影片类型: </STRONG></TD>
<TD><b><% =szFileType %></b>&nbsp;格式</TD>
</TR>
<TR>
<TD colSpan="2"><IMG height="5" src="<% =szSkinDir %>dtl_leftdot.gif" width="445"></TD>
</TR>
<tr>
<td><STRONG>最大码流: </STRONG></td>
<td><% =szMaxBitRate %>&nbsp;</td>
</tr>
<TR>
<TD colSpan="2"><IMG height="5" src="<% =szSkinDir %>dtl_leftdot.gif" width="445"></TD>
</TR>
<TR>
<TD><STRONG>平均码流: </STRONG></TD>
<TD><% =szAvgBitRate %>&nbsp;Kbps</TD>
</TR>
<TR>
<TD colSpan="2"><IMG height="5" src="<% =szSkinDir %>dtl_leftdot.gif" width="445"></TD>
</TR>
<TR>
<TD><STRONG>节目长度: </STRONG></TD>
<TD vAlign="top"><% =szPlayTime %></TD>
</TR>
<TR>
<TD colSpan="2"><IMG height="5" src="<% =szSkinDir %>dtl_leftdot.gif" width="445"></TD>
</TR>
<TR>
<TD><STRONG>影片等级: </STRONG></TD>
<TD vAlign="top"><% =szGameLevel %></TD>
</TR>
<TR>
<TD colSpan="2"><IMG height="5" src="<% =szSkinDir %>dtl_leftdot.gif" width="445"></TD>
</TR>
<TR>
<TD><STRONG>所需影币:</STRONG></TD>
<TD vAlign="top"><% if iPrice = 0 then Response.Write"免费观赏" else Response.Write iPrice & " 影币 / 集" end if %></FONT></TD>
</TR>
<TR>
<TD colSpan="2"><IMG height="5" src="<% =szSkinDir %>dtl_leftdot.gif" width="445"></TD>
</TR>
<TR>
<TD><STRONG>人气指数: </STRONG></TD>
<TD><% =iClick%></TD>
</TR>
<TD colSpan="2"><IMG height="5" src="<% =szSkinDir %>dtl_leftdot.gif" width="445"></TD>
</TR>
</TABLE></td>
</tr>
<tr>
<td colspan="3">
<br>
<TABLE cellSpacing=0 cellPadding=0 width="99%" border=0 align='center'>
<TR>
<TD class=style12 bgColor=#d9ceb8 height=25><font color="#808080"><b>&nbsp;&nbsp;&nbsp;播放列表:</b></font>
&nbsp;&nbsp;&nbsp;<a onclick="CheckPlayer()" title="播放器下载" style="cursor:hand"><font color="#FF0000">观看影片务必下载播放器</font></a>
&nbsp;&nbsp;&nbsp;<a onclick="openError('SendError.asp?ProgName=<% =szProgName %>')" title="影片报错" style="cursor:hand"><font color="#FF0000">向管理员报告该片有错误</font></a></TD>
</TR>
</TABLE>
<TABLE cellSpacing=0 cellPadding=4 width=100% align=center border=0>
<TBODY>
<tr>
<TD>
<table border='0'>
<tr align='center'>
<%
szProg_GUID = GetProgramGUID(iGameID)

szSQL = "SELECT Part_No,Prog_ID,Type_ID,Click FROM v_proginfo WHERE Prog_GUID='" & szProg_GUID & "' ORDER BY Part_No ASC"
rsData.Open szSQL,con,1,3

if not rsData.EOF then
szTypeID=rsData("Type_ID")
if rsData.RecordCount = 1 then
%>
<td height='23'>
<a style="cursor:hand;" title='已被点播<% =rsData("Click") %> 次' onClick="popup('../player.asp?id=<% =rsData("Prog_ID") %>',410,390,<% =bWinResize %>,0,0);">
<table width=70 border=0 cellpadding=3 cellspacing=1 bgcolor=#999999><tr style='cursor:hand;'><td bgcolor=#FFFFFF align=center>观看影片</table></td>
<%
elseif rsData.RecordCount = 2 then
iCount = 1
do while not rsData.EOF
szShow = szShow & "<td height='23'><a style='cursor:hand' title='已被点播 "
szShow = szShow & rsData("Click") & " 次' onClick=""popup('../player.asp?id="
szShow = szShow & rsData("Prog_ID") & "',410,390," & bWinResize & ",0,0);""> "
if iCount = 1 then szShow = szShow & "<table width=70 border=0 cellpadding=3 cellspacing=1 bgcolor=#999999><tr style='cursor:hand;'><td bgcolor=#FFFFFF align=center>上集</table>"
if iCount = 2 then szShow = szShow & "<table width=70 border=0 cellpadding=3 cellspacing=1 bgcolor=#999999><tr style='cursor:hand;'><td bgcolor=#FFFFFF align=center>下集</table>"
szShow = szShow & " </a></td>" & Chr(13)
iCount = iCount + 1
rsData.MoveNext
loop
Response.Write szShow
elseif rsData.RecordCount = 3 then
iCount = 1
do while not rsData.EOF
szShow = szShow & "<td align='center' height='23'><a style='cursor:hand' title='已被点播 "
szShow = szShow & rsData("Click") & " 次' onClick=""popup('../player.asp?id="
szShow = szShow & rsData("Prog_ID") & "',410,390," & bWinResize & ",0,0);""> "
if iCount = 1 then szShow = szShow & "<table width=70 border=0 cellpadding=3 cellspacing=1 bgcolor=#999999><tr style='cursor:hand;'><td bgcolor=#FFFFFF align=center>上集</table>"
if iCount = 2 then szShow = szShow & "<table width=70 border=0 cellpadding=3 cellspacing=1 bgcolor=#999999><tr style='cursor:hand;'><td bgcolor=#FFFFFF align=center>中集</table>"
if iCount = 3 then szShow = szShow & "<table width=70 border=0 cellpadding=3 cellspacing=1 bgcolor=#999999><tr style='cursor:hand;'><td bgcolor=#FFFFFF align=center>下集</table>"
szShow = szShow & " </a></td>" & Chr(13)
iCount = iCount + 1
rsData.MoveNext
loop
Response.Write szShow
else
iCount = 0
do while not rsData.EOF
if iCount mod 10 = 0 then szShow = szShow & "</tr><tr>"
szShow = szShow & "<td align='center' height='23'><a style='cursor:hand' title='已被点播 "
szShow = szShow & rsData("Click") & " 次' onClick=""popup('../player.asp?id="
szShow = szShow & rsData("Prog_ID") & "',410,390," & bWinResize & ",0,0);""> "
szShow = szShow & "<table width=67 border=0 cellpadding=3 cellspacing=1 bgcolor=#999999><tr style='cursor:hand;'><td bgcolor=#FFFFFF align=center>" & GetProgramName(rsData("Prog_ID")) & "</table></a></td>" & Chr(13)
iCount = iCount + 1
rsData.MoveNext
loop
Response.Write szShow
end if
rsData.Close
end if
%></tr></table></td></tr></tbody></table>
</td>
</tr>
<tr>
<td colspan="3">
<TABLE cellSpacing=0 cellPadding=0 width="99%" border=0 align='center'>
<TBODY>
<TR><TD bgColor=#d9ceb8 height=25><font color="#808080"><b>&nbsp;&nbsp;&nbsp;影片简介:</b></font>
</TD>
</TR></TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="99%" align=center border=0>
<TBODY>
<TR>
<TD height=40 align="center" width="97%">
<DIV align=left><span class="menu">&nbsp;&nbsp;&nbsp;&nbsp;<% =Replace(Replace(szSynopsis, vbCrLf, "<br>"), Chr(32), "&nbsp;") %></span></DIV></TD>
</TR>
</TBODY>
</TABLE>
</td>
</tr>
<tr>
<td colspan="3">
<TABLE cellSpacing=0 cellPadding=0 width="99%" border=0 align='center'>
<TBODY>
<TR><TD bgColor=#d9ceb8 height=25><font color="#808080"><b>&nbsp;&nbsp;&nbsp;相关影片:</b></font></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=2 width=98% border=0>
<TBODY>
<TR>
<TD vAlign=top width="31%" rowSpan=2>
<TABLE cellSpacing=0 cellPadding=0 align=center border=0>
<TBODY>
<TR>
<TD bgColor=#cccccc>
<%
szSQL = "SELECT TOP 7 v_pro_price.Price,v_proginfo.Prog_ID,v_proginfo.ProgName,v_proginfo.photoname,v_proginfo.Actor "
szSQL = szSQL & "FROM v_proginfo,v_pro_price "
szSQL = szSQL & "WHERE v_proginfo.Prog_ID=v_pro_price.Prog_ID AND v_proginfo.Part_No=1 AND v_proginfo.Actor LIKE '%" & content & "%'"
szSQL = szSQL & "ORDER BY v_proginfo.Prog_ID DESC"
rsData.Open szSQL,con,1,3
i=0
do while not rsData.EOF
%>
<TABLE cellSpacing=1 cellPadding=3 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top align=middle bgColor=#ffffff><DIV align=center>
<% if rsData("photoname") <> "*" then %>
<a style="cursor:'hand'" href="<% =szPath %>oemui/vod/progshow.asp?ID=<% =rsData("Prog_ID") %>#点播">
<img src="/<% =URLEncode(rsData("photoname")) %>" name="img" width="252" height="360" border="0"></a>
<%else%>
<a style="cursor:'hand'" href="<% =szPath %>oemui/vod/progshow.asp?ID=<% =rsData("Prog_ID") %>#点播">
<img src="<%=szPath %>images/photo.jpg" width="252" height="360" border=0 align="middle"></a>
<% end if %>
</DIV></TD>
</TR><tr><td vAlign=top align=middle bgColor=#ffffff><div align="center"><span class=menu><strong><font color=#000000>
<a href="<% =szPath %>oemui/vod/progshow.asp?ID=<% =rsData("Prog_ID") %>#点播"><% =GetLeftString(GetRecordGameName(rsData("ProgName")), 12) %></a></font></strong></span></div></td></tr> </TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
<%
i=i+1
rsData.MoveNext
if i>=1 then exit do
loop
%> </TD>
<TD vAlign=top> <TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<TBODY>
<TR>
<%if not rsData.eof then
do while not rsData.eof
%>
<TD vAlign=top align=middle width=161> <TABLE cellSpacing=0 cellPadding=0 width=122 align=center border=0>
<TBODY>
<TR>
<TD width=118 bgColor=#cccccc> <TABLE cellSpacing=1 cellPadding=3 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top bgColor=#ffffff>
<TABLE width=10 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD>
<% if rsData("photoname") <> "*" then %>
<a style="cursor:'hand'" href="<% =szPath %>oemui/vod/progshow.asp?ID=<% =rsData("Prog_ID") %>#点播">
<img src="/<% =URLEncode(rsData("photoname")) %>" name="img" width="125" height="165" border="0"></a>
<%else%>
<a style="cursor:'hand'" href="<% =szPath %>oemui/vod/progshow.asp?ID=<% =rsData("Prog_ID") %>#点播">
<img src="<%=szPath %>images/photo.jpg" width="125" height="165" border=0 align="middle"></a>
<% end if %> </TD>
</TR>
<TR>
<TD class=font4 vAlign=bottom align=middle height=20>
<a href="<% =szPath %>oemui/vod/progshow.asp?ID=<% =rsData("Prog_ID") %>#点播"><% =GetLeftString(GetRecordGameName(rsData("ProgName")), 6) %></a></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></TD>
<%
i=i+1
rsData.movenext
if i>=4 then exit do
loop
end if
%>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD vAlign=top align=middle> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<%if not rsData.eof then
do while not rsData.eof
%>
<td><TABLE cellSpacing=0 cellPadding=0 width=122 align=center border=0>
<TBODY>
<TR>
<TD width=118 bgColor=#cccccc> <TABLE cellSpacing=1 cellPadding=3 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top bgColor=#ffffff>
<TABLE width=10 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD>
<% if rsData("photoname") <> "*" then %>
<a style="cursor:'hand'" href="<% =szPath %>oemui/vod/progshow.asp?ID=<% =rsData("Prog_ID") %>#点播">
<img src="/<% =URLEncode(rsData("photoname")) %>" name="img" width="125" height="165" border="0"></a>
<%else%>
<a style="cursor:'hand'" href="<% =szPath %>oemui/vod/progshow.asp?ID=<% =rsData("Prog_ID") %>#点播">
<img src="<%=szPath %>images/photo.jpg" width="125" height="165" border=0 align="middle"></a>
<% end if %> </TD>
</TR>
<TR>
<TD class=font4 vAlign=bottom align=middle height=20>
<a href="<% =szPath %>oemui/vod/progshow.asp?ID=<% =rsData("Prog_ID") %>#点播"><% =GetLeftString(GetRecordGameName(rsData("ProgName")), 6) %></a></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></td>
<%
i=i+1
rsData.movenext
if i>=7 then exit do
loop
end if
rsData.close
set rsData=nothing
%>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE></td></tr></table>
</td>
</tr>
<tr>
<td height=1 align=left vAlign=top><iframe src="<% =szPath %>oemui/comment/comment_list.asp?ProgType=2&ProgID=<% =iGameID %>" width="98%" height="200" frameborder="0" scrolling="no"></iframe></td>
</tr>
</table>
</BODY></HTML>
<script language="JScript">
document.body.onload = ResizeFrame;
function ResizeFrame()
{
parent.document.all.main.height = document.body.scrollHeight;
}

function opence(htm)
{
var iWinLeft, iWinTop;
iWinLeft = (screen.Width - 640) / 2;
iWinTop = (screen.Height - 480) / 2;

window.open(htm, "_blank", "toolbar=no,directories=no,status=no,menubar=no,resizable=no,scrollbars=no, location=no ,width=350 ,height=470,left=" + iWinLeft + ",top=" + iWinTop);
return;
}

function openError(Url)
{
var iWinLeft, iWinTop;
iWinLeft = (screen.Width - 640) / 2;
iWinTop = (screen.Height - 480) / 2;

window.open(Url,"_blank","toolbar=no,directories=no,status=no,menubar=no,resizable=no,scrollbars=no,location=no,width=390,height=195,left=" + iWinLeft + ",top=" + iWinTop);
return;
}

function CheckPlayer()
{
try
{
var oPlayerAx = new ActiveXObject("VGPlayer.WebVGPlayer.1");
}
catch(e)
{
window.location.href = "/webmedia/download/WebPlayer.exe";
return;
}

alert("\n播放器已经正确安装!");
}
</script>
<!--#include file="../../common/dbend.inc.asp" -->
<!--#include file="../../common/popwin.inc.asp" -->

搜索更多相关主题的帖子: Recordset ADODB szSQL Session 
2007-07-24 07:17
阳光白雪
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:39
帖 子:2220
专家分:0
注 册:2005-11-18
收藏
得分:0 
不知道23行是哪?

出现这样的错误:
1、数据表名字写错;
2、数据字段名字写错;
3、输出了你在查询语句中并没有打开的字段;

专注于WEB前端交互平台开发:[url=http://blog./]blog.[/url](富客户端技术(RIA)交流平台)
2007-07-24 08:33
快速回复:[求助]ADODB.Recordset 错误 '800a0cc1'
数据加载中...
 
   



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

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