您所在位置：主题：```help me...求助```
184955csq
[专家分：0] 发布于 2008-03-29 12:07:00
`
谁能帮我看下这代码里哪里错了?
``
提示是
ADODB.Recordset 错误 '800a0cc1'
在对应所需名称或序数的集合中，未找到项目。
/index/movie.asp，行 28
<!--#include file="config.asp" -->
<!--#include file="../common/dbcon.inc.asp" -->
<%
iUserType = 10
if Len(Session("UserPayMode")) > 0 then iUserType = Clng(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")
szid = rsData("Prog_ID")
iPrice = rsData("Price")
iTypeID = rsData("Type_ID")
iWhereID = rsData("wherefrom")
szMaxBitRate = rsData("MaxBitRate")
szAvgBitRate = rsData("AvgBitRate")
szEnname = rsData("enname")
szTheDay = rsData("TheDay")
szOtheName = rsData("OtheName")
szDirector = rsData("Director")
szFileType = rsData("FileType")
szUrlname = rsData("Urlname")
szUrl = rsData("Url")
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
rsData.Close
if iWhereID = 0 then
szwhere = "影片产地"
elseif iWhereID = 1 then
szwhere = "大陆地区"
elseif iWhereID = 2 then
szwhere = "港台地区"
elseif iWhereID = 3 then
szwhere = "日韩地区"
elseif iWhereID = 4 then
szwhere = "欧美地区"
elseif iWhereID = 5 then
szwhere = "其它地区"
end if
iClick = GetRealClick(GetProgramGUID(iGameID))
%>
<HTML xmlns="http://www.w3.org/1999/xhtml">
<HEAD>
<TITLE>《<% =szProgName %>》 - <% =HomeName %></TITLE>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<script language="JavaScript" type="text/javascript" src="../common/jscript/menu.js"></script>
<link href="../css/main.css" rel="stylesheet" type="text/css" />
<title>《<% =szProgName %>》 - <% =HomeName %></title>
<script language="javascript" type="text/javascript">
function popupPlayer(szUrl)
{
iWinLeft = 2048;iWinHeight = 1536;
iWidth = 10;iHeight = 10;
var szStyle = "";
szStyle = szStyle + "width=" + iWidth;
szStyle = szStyle + ",height=" + iHeight;
szStyle = szStyle + ",left=" + iWinLeft;
szStyle = szStyle + ",top=" + iWinHeight;
szStyle = szStyle + ",toolbar=no";
szStyle = szStyle + ",resizable=yes";
szStyle = szStyle + ",scrollbars=no";
//prompt("", szStyle);
window.open(szUrl, "_blank", szStyle);
}
function popupWin(szUrl)
{
var paramet = 'width=500,height=180,toolbar=no,menubar=no,scrollbars=no,resizable=yes,titlebar=no,location=no,status=no,hotkeys=no';
newWindow = window.open(szUrl,"_blank",paramet);
}
</script><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312" />
<script src="../Scripts/AC_RunActiveContent.js" type="text/javascript"></script>
<style type="text/css">
<!--
.STYLE11 {color: #FFFFFF}
body {
background-image: url(../images/bgcolor.jpg);
}
.STYLE12 {font-size: 12px}
.STYLE14 {font-weight: bold}
.STYLE15 {font-size: 14px; }
.STYLE16 {
color: #FF00FF;
font-weight: bold;
}
.STYLE9 {color: #000000}
-->
```小弟先谢谢各位大哥大姐们了```
谁能帮我看下这代码里哪里错了?
``
提示是
ADODB.Recordset 错误 '800a0cc1'
在对应所需名称或序数的集合中，未找到项目。
/index/movie.asp，行 28
<!--#include file="config.asp" -->
<!--#include file="../common/dbcon.inc.asp" -->
<%
iUserType = 10
if Len(Session("UserPayMode")) > 0 then iUserType = Clng(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")
szid = rsData("Prog_ID")
iPrice = rsData("Price")
iTypeID = rsData("Type_ID")
iWhereID = rsData("wherefrom")
szMaxBitRate = rsData("MaxBitRate")
szAvgBitRate = rsData("AvgBitRate")
szEnname = rsData("enname")
szTheDay = rsData("TheDay")
szOtheName = rsData("OtheName")
szDirector = rsData("Director")
szFileType = rsData("FileType")
szUrlname = rsData("Urlname")
szUrl = rsData("Url")
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
rsData.Close
if iWhereID = 0 then
szwhere = "影片产地"
elseif iWhereID = 1 then
szwhere = "大陆地区"
elseif iWhereID = 2 then
szwhere = "港台地区"
elseif iWhereID = 3 then
szwhere = "日韩地区"
elseif iWhereID = 4 then
szwhere = "欧美地区"
elseif iWhereID = 5 then
szwhere = "其它地区"
end if
iClick = GetRealClick(GetProgramGUID(iGameID))
%>
<HTML xmlns="http://www.w3.org/1999/xhtml">
<HEAD>
<TITLE>《<% =szProgName %>》 - <% =HomeName %></TITLE>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<script language="JavaScript" type="text/javascript" src="../common/jscript/menu.js"></script>
<link href="../css/main.css" rel="stylesheet" type="text/css" />
<title>《<% =szProgName %>》 - <% =HomeName %></title>
<script language="javascript" type="text/javascript">
function popupPlayer(szUrl)
{
iWinLeft = 2048;iWinHeight = 1536;
iWidth = 10;iHeight = 10;
var szStyle = "";
szStyle = szStyle + "width=" + iWidth;
szStyle = szStyle + ",height=" + iHeight;
szStyle = szStyle + ",left=" + iWinLeft;
szStyle = szStyle + ",top=" + iWinHeight;
szStyle = szStyle + ",toolbar=no";
szStyle = szStyle + ",resizable=yes";
szStyle = szStyle + ",scrollbars=no";
//prompt("", szStyle);
window.open(szUrl, "_blank", szStyle);
}
function popupWin(szUrl)
{
var paramet = 'width=500,height=180,toolbar=no,menubar=no,scrollbars=no,resizable=yes,titlebar=no,location=no,status=no,hotkeys=no';
newWindow = window.open(szUrl,"_blank",paramet);
}
</script><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312" />
<script src="../Scripts/AC_RunActiveContent.js" type="text/javascript"></script>
<style type="text/css">
<!--
.STYLE11 {color: #FFFFFF}
body {
background-image: url(../images/bgcolor.jpg);
}
.STYLE12 {font-size: 12px}
.STYLE14 {font-weight: bold}
.STYLE15 {font-size: 14px; }
.STYLE16 {
color: #FF00FF;
font-weight: bold;
}
.STYLE9 {color: #000000}
-->
```小弟先谢谢各位大哥大姐们了```
