全部代码如下：
<!--#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> <%=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(' <img src=images/face/<%=fNickNameTx%>-2.bmp width=20 height=20 style=border:1px solid #999999;> <%=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"> </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'"> <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'"> <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'"> <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'"> <a href="index.asp" target="main">返回大厅首页</a></td>
</tr>
<tr>
<td width="165" height="29"> 版权所有:出售程序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" -->
2009-09-19 14:32
这个是错误提示 不是具体代码 具体代码应该是outlookbar.titlelist[i].title
