注册 登录
编程论坛 → ASP技术论坛

这一的错误能解决吗？

oklong1982 发布于 2009-09-19 14:32， 1249 次点击
只有本站会员才能查看附件，请 登录
10 回复
#2
yms1232009-09-19 15:15
很明显的错误，在179行outlookbar.titlelist.0.title这个对象不存在，有可能是没有安装这个组建
#3
chenbofeng202009-09-19 16:25
outlookbar.titlelist.0.title 去掉0试试
#4
aspic2009-09-20 08:41
以下是引用chenbofeng20在2009-9-19 16:25的发言：

outlookbar.titlelist.0.title 去掉0试试
这个是错误提示 不是具体代码 具体代码应该是outlookbar.titlelist[i].title
#5
oklong19822009-09-20 23:02
全部代码如下：
<!--#INCLUDE FILE="inc/Conn.asp" -->
<HTML>
    <HEAD>
        <title>客户端LEFT</title>
        <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
        <script language="JavaScript" type="text/javascript" src="js/load.js"></script>
<link href="css/load.css" type="text/css" rel="stylesheet">
        <link href="client.css" type="text/css" rel="stylesheet">
        <script src="images/focus/head.js"  ></script>
            <style type="text/css"> <!--
 
body { margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; }
 
    --></style>
<%
Dim UserID
If request.QueryString("UserID") <> "" Then
UserID = request.QueryString("UserID")
Else
response.write "错误!"
response.End
End If
%>
    <script language="JavaScript">
<!--
function showitem(id,name)
{
    //return ("<span><a href='"+id+"' target=_blank>"+name+"</a></span><br>")
    return ("<span>"+name+"</span><br>")
}
function switchoutlookBar(number)
{
    var i = outlookbar.opentitle;
    outlookbar.opentitle=number;
    var id1,id2,id1b,id2b
    if (number!=i && outlooksmoothstat==0){
        if (number!=-1)
        {
            if (i==-1){
                id2="blankdiv";
                id2b="blankdiv";
            }
            else{
                id2="outlookdiv"+i;
                id2b="outlookdivin"+i;
                document.all("outlooktitle"+i).style.border="1px none navy";
                document.all("outlooktitle"+i).style.background=outlookbar.maincolor;
                document.all("outlooktitle"+i).style.color="#000000";
                document.all("outlooktitle"+i).style.textalign="left";
            }
            id1="outlookdiv"+number
            id1b="outlookdivin"+number
            document.all("outlooktitle"+number).style.border="1px none white";
            document.all("outlooktitle"+number).style.background=outlookbar.maincolor; //title
            document.all("outlooktitle"+number).style.color="#000000";
            document.all("outlooktitle"+number).style.textalign="left";
            smoothout(id1,id2,id1b,id2b,0);
        }
        else
        {
            document.all("blankdiv").style.display="";
            document.all("blankdiv").sryle.height="100%";
            document.all("outlookdiv"+i).style.display="none";
            document.all("outlookdiv"+i).style.height="0%";
            document.all("outlooktitle"+i).style.border="1px none navy";
            document.all("outlooktitle"+i).style.background=outlookbar.maincolor;
            document.all("outlooktitle"+i).style.color="#000000";
            document.all("outlooktitle"+i).style.textalign="left";
        }
    }
}
function smoothout(id1,id2,id1b,id2b,stat)
{
    if(stat==0){
        tempinnertext1=document.all(id1b).innerHTML;
        tempinnertext2=document.all(id2b).innerHTML;
        document.all(id1b).innerHTML="";
        document.all(id2b).innerHTML="";
        outlooksmoothstat=1;
        document.all(id1b).style.overflow="hidden";
        document.all(id2b).style.overflow="hidden";
        document.all(id1).style.height="0%";
        document.all(id1).style.display="";
        setTimeout("smoothout('"+id1+"','"+id2+"','"+id1b+"','"+id2b+"',"+outlookbar.inc+")",outlookbar.timedalay);
    }
    else
    {
        stat+=outlookbar.inc;
        if (stat>100)
            stat=100;
        document.all(id1).style.height=stat+"%";
        document.all(id2).style.height=(100-stat)+"%";
        if (stat<100)  
            setTimeout("smoothout('"+id1+"','"+id2+"','"+id1b+"','"+id2b+"',"+stat+")",outlookbar.timedalay);
        else
        {
            document.all(id1b).innerHTML=tempinnertext1;
            document.all(id2b).innerHTML=tempinnertext2;
            outlooksmoothstat=0;
            document.all(id1b).style.overflow="auto";
            document.all(id2).style.display="none";
        }
    }
}
function getOutLine()
{
    outline="<table "+outlookbar.otherclass+">";
    for (i=0;i<(outlookbar.titlelist.length);i++)
    {
        outline+="<tr><td name=outlooktitle"+i+" id=outlooktitle"+i+" ";  
        if (i!=outlookbar.opentitle)  
            outline+=" nowrap align=left style='cursor:hand;background-color:"+outlookbar.maincolor+";color:#000000;height:20;border:1 none navy' ";
        else
            outline+=" nowrap align=left style='cursor:hand;background-color:"+outlookbar.maincolor+";color:#000000;height:20;border:1 none white' ";
        outline+=outlookbar.titlelist[i].otherclass
        outline+=" onclick='switchoutlookBar("+i+")'><span class=smallFont>";
        outline+=outlookbar.titlelist[i].title+"</span></td></tr>";
        outline+="<tr><td name=outlookdiv"+i+" valign=top align=left id=outlookdiv"+i+" style='width:100%"
        if (i!=outlookbar.opentitle)  
            outline+=";display:none;height:0%;";
        else
            outline+=";display:;height:100%;";
        outline+="'><div name=outlookdivin"+i+" id=outlookdivin"+i+" style='overflow:auto;width:100%;height:100%'>";
        for (j=0;j<outlookbar.itemlist[i].length;j++)
            outline+=showitem(outlookbar.itemlist[i][j].key,outlookbar.itemlist[i][j].title);
        outline+="</div></td></tr>"
    }
    outline+="</table>"
    return outline
}
function show()
{
    var outline;
    outline="<div id=outLookBarDiv name=outLookBarDiv style='width=100%;height:100%'>"
    outline+=outlookbar.getOutLine();
    outline+="</div>"
    document.write(outline);
}
function theitem(intitle,instate,inkey)
{
    this.state=instate;
    this.otherclass=" nowrap ";
    this.key=inkey;
    this.title=intitle;
}
function addtitle(intitle)
{
    outlookbar.itemlist[outlookbar.titlelist.length]=new Array();
    outlookbar.titlelist[outlookbar.titlelist.length]=new theitem(intitle,1,0);
    return(outlookbar.titlelist.length-1);
}
function additem(intitle,parentid,inkey)
{
    if (parentid>=0 && parentid<=outlookbar.titlelist.length)
    {
        outlookbar.itemlist[parentid][outlookbar.itemlist[parentid].length]=new theitem(intitle,2,inkey);
        outlookbar.itemlist[parentid][outlookbar.itemlist[parentid].length-1].otherclass=" nowrap align=left style='height:5' ";
        return(outlookbar.itemlist[parentid].length-1);
    }
    else
        additem=-1;
}
function outlook()
{
    this.titlelist=new Array();
    this.itemlist=new Array();
    this.divstyle="style='height:100%;width:100%;overflow:auto' align=left";
    this.otherclass="border=0 cellspacing='0' cellpadding='0' style='height:100%;width:100%'valign=middle align=left ";
    this.addtitle=addtitle;
    this.additem=additem;
    this.starttitle=-1;
    this.show=show;
    this.getOutLine=getOutLine;
    this.opentitle=this.starttitle;
    this.reflesh=outreflesh;
    this.timedelay=50;
    this.inc=10;
    this.maincolor = "#ffffff"
}
function outreflesh()
{
    document.all("outLookBarDiv").innerHTML=outlookbar.getOutLine();
}
function locatefold(foldname)
{
    if (foldname=="")
        foldname = outlookbar.titlelist[0].title
    for (var i=0;i<outlookbar.titlelist.length;i++)
    {
        if(foldname==outlookbar.titlelist[i].title)
        {
            outlookbar.starttitle=i;
            outlookbar.opentitle=i;
        }
    }
}
var outlookbar=new outlook();
var tempinnertext1,tempinnertext2,outlooksmoothstat
outlooksmoothstat = 0;
 
 
var t;
<%
'读取好友组类
Dim DayUserTop,sqlDayUserTop
    Set DayUserTop = Server.CreateObject("ADODB.Recordset")
    sqlDayUserTop="SELECT TOP 3  fGroupID,fUserID,fGroupName,fParentGroupID FROM FriendGroups WHERE fUserID = "&UserID&" ORDER BY fGroupID ASC"
 
    DayUserTop.Open sqlDayUserTop, Conn, 1, 2
Dim i
i = 0
    do while not DayUserTop.eof
i = i + 1
 
'统计总好友
set rszs=server.CreateObject("adodb.recordset")
    rszs.open "select count(*) as fFriendID from Friends where fUserID = "&UserID&"",Conn,1,1
    Dim rsfjzs
    rsfjzs = rszs("fFriendID")
    rszs.close
Set rszs = Nothing
 
'统计我的好友
set rszss=server.CreateObject("adodb.recordset")
    rszss.open "select count(*) as fFriendID from Friends where fUserID = "&UserID&" and fGroupID = "&DayUserTop(0)&"",Conn,1,1
    Dim rsfjzss
    rsfjzss = rszss("fFriendID")
    rszss.close
Set rszss = Nothing
 
dim rscount
rscount = ""
if i=1 then
rscount = "("&rsfjzss&"/"&rsfjzs&")"
else
rscount = "("&rsfjzss&")"
end if
%>
t=outlookbar.addtitle('<img src=leftimg/py.jpg>&nbsp;<%=DayUserTop(2)%><%=rscount%>')
<%
'读取好友
    Dim DayUserPY,sqlDayUserPY
    Set DayUserPY = Server.CreateObject("ADODB.Recordset")
    sqlDayUserPY="SELECT fUserID,fFriendID,fGroupID FROM Friends WHERE fUserID = "&UserID&" and fGroupID = "&DayUserTop(0)&" ORDER BY fFriendID ASC"
 
    DayUserPY.Open sqlDayUserPY, Conn, 1, 2
    Dim f
    f = 0
        do while not DayUserPY.eof
    f = f + 1
 
'读取用户昵称
Dim DayfNickName,sqlDayfNickName
    Set DayfNickName = Server.CreateObject("ADODB.Recordset")
    sqlDayfNickName="SELECT TOP 1 fNickName,fHeaderIndex FROM Users WHERE fUserID = "&DayUserPY(1)&" ORDER BY fUserID DESC"
    DayfNickName.Open sqlDayfNickName, Conn, 1, 2
    Dim fNickName,fNickNameTx
    If DayfNickName.Eof Then
    fNickName = "该用户已不存在"
    fNickNameTx = 0
    Else
    fNickNameTx = DayfNickName(1)
    fNickName = DayfNickName(0)
    If fNickName = "" Then
    fNickName = DayUserPY(1)
    End If
    If Len(fNickName) > 8 Then
    fNickName = Left(fNickName,8) & "."
    End If
    End If
    DayfNickName.close
    Set DayfNickName = Nothing
%>
outlookbar.additem('&nbsp;&nbsp;&nbsp;&nbsp;<img src=images/face/<%=fNickNameTx%>-2.bmp width=20 height=20 style=border:1px solid #999999;>&nbsp;<%=fNickName%>',t,'')
<%
    DayUserPY.movenext
    loop
    DayUserPY.close
    Set DayUserPY = Nothing
'读取结束
    DayUserTop.movenext
    loop
    DayUserTop.close
    Set DayUserTop = Nothing
'读取结束
%>
//-->
</script>
<style>
.aa {margin:1px}
ul {width:80px; float:left; margin:0px}
.aa li a{border:1px #FFFFFF solid; background-color:#FFFFFF; width:185px; height:30px; list-style:none; margin:0px;float: left; border-top-color:#FFFFFF; border-left-color:#FFFFFF}
.aa li a:hover{border:1px #999999 solid; background-color: #EEF0F3;}
</style>
    </HEAD>
<body style="overflow-x:hidden;overflow-y:hidden" bgcolor=#ffffff onLoad="remove_loading();">
<div id="loader_container">
 <div id="loader">
  <div align="center">房间列表更新中 ...</div>
  <div id="loader_bg"><div id="progress"> </div></div>
 </div>
</div>
<SCRIPT src="js/hd.js"></SCRIPT>
<table border="0" cellpadding="0" cellspacing="0" width="223">
  <tr>
   <td><img src="leftimg/spacer.gif" width="34" height="1" border="0" alt="" /></td>
   <td><img src="leftimg/spacer.gif" width="187" height="1" border="0" alt="" /></td>
   <td><img src="leftimg/spacer.gif" width="2" height="1" border="0" alt="" /></td>
   <td><img src="leftimg/spacer.gif" width="1" height="1" border="0" alt="" /></td>
  </tr>
 
  <tr>
   <td rowspan="2"><a href="javascript:location.reload()"><img name="left_r1_c1" src="leftimg/left_r1_c1.jpg" width="34" height="40" border="0" id="left_r1_c1" alt="刷新名单" /></a></td>
   <td colspan="2"><img name="left_r1_c2" src="leftimg/left_r1_c2.jpg" width="189" height="5" border="0" id="left_r1_c2" alt="" /></td>
   <td><img src="leftimg/spacer.gif" width="1" height="5" border="0" alt="" /></td>
  </tr>
  <tr>
   <td rowspan="3" valign="top" background="leftimg/left_r2_c2.jpg">
     <table id=mnuList style="WIDTH:100%;HEIGHT: 100%" cellspacing=0 cellpadding=0 align=center border=0>
    <tr>  
        <td bgcolor=#FFFFFF id=outLookBarShow style="HEIGHT: 210" valign=top align=middle name="outLookBarShow">
            <script language="JavaScript">
            <!--
            locatefold("")
            outlookbar.show()  
            //-->
            </script>
        </td>
    </tr>
</table>
</td>
   <td rowspan="3"><img name="left_r2_c3" src="leftimg/left_r2_c3.jpg" width="2" height="216" border="0" id="left_r2_c3" alt="" /></td>
   <td><img src="leftimg/spacer.gif" width="1" height="35" border="0" alt="" /></td>
  </tr>
  <tr>
   <td><img name="left_r3_c1" src="leftimg/left_r3_c1.jpg" width="34" height="41" border="0" id="left_r3_c1" alt="" /></td>
   <td><img src="leftimg/spacer.gif" width="1" height="41" border="0" alt="" /></td>
  </tr>
  <tr>
   <td width="34" rowspan="5" background="leftimg/left_r4_c1.jpg">&nbsp;</td>
   <td><img src="leftimg/spacer.gif" width="1" height="140" border="0" alt="" /></td>
  </tr>
  <tr>
   <td><img name="left_r5_c2" src="leftimg/left_r5_c2.jpg" width="187" height="3" border="0" id="left_r5_c2" alt="" /></td>
   <td width="2" rowspan="4" background="leftimg/left_r5_c3.jpg"></td>
   <td><img src="leftimg/spacer.gif" width="1" height="3" border="0" alt="" /></td>
  </tr>
 <%
     '统计当前总在线人数
set AllCountUserSum=server.CreateObject("adodb.recordset")
    AllCountUserSum.open "SELECT top 1 sum(fNowUserCount) as fCountUserSum from Roomlist order by (sum(fNowUserCount)) desc",Conn,1,1
    Dim AllCountUserSums
    AllCountUserSums = 0
    If AllCountUserSum("fCountUserSum") <> "" Then
    AllCountUserSums = "<font color=red>"&AllCountUserSum("fCountUserSum")&"</font>"
    End If
    AllCountUserSum.close
Set AllCountUserSum = Nothing
 %>
  <tr>
   <td width="187" height="62" valign="top" background="leftimg/left_r6_c2.jpg"><table width="100%" border="0" cellspacing="0" cellpadding="0">
     <tr>
       <td><div class="aa">
<ul>
<li><a href="#"><img src="leftimg/d2.gif" border=0>帐户冲值</a></li>
<li><a href="javascript:location.reload()"><img src="leftimg/d3.gif" border=0>更新列表(共<%=AllCountUserSums%>人在线)</a></li>
</ul>
</div></td>
     </tr>
   </table></td>
   <td><img src="leftimg/spacer.gif" width="1" height="62" border="0" alt="" /></td>
  </tr>
  <tr>
   <td><img name="left_r7_c2" src="leftimg/left_r7_c2.jpg" width="187" height="8" border="0" id="left_r7_c2" alt="" /></td>
   <td><img src="leftimg/spacer.gif" width="1" height="8" border="0" alt="" /></td>
  </tr>
  <tr>
   <td width="187" valign="top" background="leftimg/left_r8_c2.jpg" align="left"><table width="165" border="0" cellspacing="0" cellpadding="0">
  <%
  '读取好友
    Dim Cate,sqlCate
    Set Cate = Server.CreateObject("ADODB.Recordset")
    sqlCate="SELECT fGroupID,fGroupName,fParentGroupID,fNowUserCount FROM RoomGroup where fParentGroupID > 0 ORDER BY fGroupID ASC"
 
    Cate.Open sqlCate, Conn, 1, 2
    Dim c
    c = 0
        do while not Cate.eof
    c = c + 1
    '统计当前区人数
set CountUserSum=server.CreateObject("adodb.recordset")
    CountUserSum.open "SELECT top 1 sum(fNowUserCount) as fCountUserSum from Roomlist where fGroupID = "&Cate(0)&" order by (sum(fNowUserCount)) desc",Conn,1,1
    Dim CountUserSums
    CountUserSums = 0
    If CountUserSum("fCountUserSum") <> "" Then
    CountUserSums = CountUserSum("fCountUserSum")
    End If
    CountUserSum.close
Set CountUserSum = Nothing
  %>
     <tr>
     <td width="165" height="29" background="leftimg/r1.jpg" onmouseover="javascript:this.background='leftimg/r2.jpg'" onmouseout="javascript:this.background='leftimg/r1.jpg'">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="room.asp?cateId=<%=Cate(0)%>" target="main"><%=Cate(1)%>(<%=CountUserSums%>)</a></td>
     </tr>
<%
    Cate.movenext
    loop
    Cate.close
    Set Cate = Nothing
'读取结束
%>
<tr>
     <td width="165" height="29" background="leftimg/r1.jpg" onmouseover="javascript:this.background='leftimg/r2.jpg'" onmouseout="javascript:this.background='leftimg/r1.jpg'">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="index.asp" target="main">收藏房间</a></td>
     </tr>
     <tr>
     <td width="165" height="29" background="leftimg/r1.jpg" onmouseover="javascript:this.background='leftimg/r2.jpg'" onmouseout="javascript:this.background='leftimg/r1.jpg'">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="http://ok. target="_blank">个人练歌厅</a></td>
     </tr>
      <tr>
     <td width="165" height="29" background="leftimg/r1.jpg" onmouseover="javascript:this.background='leftimg/r2.jpg'" onmouseout="javascript:this.background='leftimg/r1.jpg'">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="index.asp" target="main">返回大厅首页</a></td>
     </tr>
 
     <tr>
     <td width="165" height="29">&nbsp;&nbsp;&nbsp;版权所有:出售程序QQ：1185834001</td>
     </tr>
   </table></td>
   <td><img src="leftimg/spacer.gif" width="1" height="330" border="0" alt="" /></td>
  </tr>
  <tr>
   <td colspan="3"><img name="left_r9_c1" src="leftimg/left_r9_c1.jpg" width="223" height="4" border="0" id="left_r9_c1" alt="" /></td>
   <td><img src="leftimg/spacer.gif" width="1" height="4" border="0" alt="" /></td>
  </tr>
</table>
</body>
</HTML>
<!--#INCLUDE FILE="inc/CloseConn.asp" -->
#6
oklong19822009-09-23 14:24
高手帮我看下可以吗、
#7
oklong19822009-09-23 14:44
555555555555555555555
#8
aspic2009-09-24 08:44
引用那个js文件了没？outlookbar
#9
oklong19822009-09-26 14:45
以下是引用aspic在2009-9-24 08:44:40的发言：

引用那个js文件了没？outlookbar
能具体一点吗？
#10
hmhz2009-09-26 17:09
这个JS是哪个垃圾写的，千窗百孔
#11
aspic2009-09-28 09:01
你都没有引用这个垃圾类 你怎么可以var outlookbar=new outlook(); 来调用它
1
©2025, BC-CN.NET
电脑版