📄 list.asp
字号:
<%
Response.Buffer =true
Response.Expires =-1
%>
<!--#include file="dbconn.asp"-->
<%
if session("icqusername")="" then
response.write "您需要登陆"
Response.Redirect "index.htm"
response.end
end if
'------------------------------------------------------------------------------------
dim x()
dim y()
dim news
dim thenews
dim i
dim j
news=false
i=0
set rs=server.CreateObject ("ADODB.RecordSet")
sqlstr="select * from msg where receiver='"&session("icqusername")&"' and state='new'"
rs.Open sqlstr,conn,3,3
if not rs.BOF then
do while not rs.EOF
redim Preserve x(i)
redim Preserve y(i)
x(i)=rs("sender")
y(i)=rs("msgid")
rs.MoveNext
i=i+1
loop
end if
rs.Close
%>
<HTML><HEAD><TITLE>bicq网络寻呼机---在线列表</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<meta http-equiv="refresh" content="10;url=<%=Request.ServerVariables("SCRIPT_NAME")%>">
<LINK href="images/forum.css" type=text/css rel=stylesheet>
<script language="javascript">
<!--
function document_onkeydown() {
if(event.ctrlKey && window.event.keyCode==78)
{
window.alert ("欢迎使用B-ICQ")
}
}
//-->
</SCRIPT>
<SCRIPT LANGUAGE=javascript FOR=document EVENT=onkeydown>
<!--
document_onkeydown()
//-->
</SCRIPT>
<SCRIPT src="images/coolbuttons.js" type=text/javascript></SCRIPT>
<SCRIPT language=javascript>
function showitem(id,name)
{
if (id=="")
{
return(name+"<br>")
}
else
{
return ("<a target=frmright href='main.asp?boardid="+id+"'>"+name+"</a><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="#93bee2";
//未激活BAR
document.all("outlooktitle"+i).style.color="#333399";
document.all("outlooktitle"+i).style.textalign="center";
}
id1="outlookdiv"+number
id1b="outlookdivin"+number
document.all("outlooktitle"+number).style.border="1px none white";
document.all("outlooktitle"+number).style.background="#C8DEF0";
//激活BAR
document.all("outlooktitle"+number).style.color="black";
document.all("outlooktitle"+number).style.textalign="center";
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="YELLOW";
document.all("outlooktitle"+i).style.color="black";
document.all("outlooktitle"+i).style.textalign="center";
}
}
}
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+" align=center>";
for (i=0;i<(outlookbar.titlelist.length);i++)
{
outline+="<tr><td align=center name=outlooktitle"+i+" id=outlooktitle"+i+" ";
if (i!=outlookbar.opentitle)
outline+=" nowrap style='cursor:hand;background-color:#93bee2;color:#333399;height:5;border:1 none navy' ";
else
outline+=" nowrap style='cursor:hand;background-color:#005D99;color:white;height:5;border:1 none white' ";
outline+=outlookbar.titlelist[i].otherclass
outline+=" onclick='switchoutlookBar("+i+")'><b><span class=smallFont>";
outline+=outlookbar.titlelist[i].title+"</span></td></tr>";
outline+="<tr><td align=center name=outlookdiv"+i+" valign=top 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+="<tr><td align=center name=blankdiv valign=top id=blankdiv style='height:100%;width:100%:"
if (outlookbar.opentitle!=-1)
outline+=";display:none;";
else
outline+=";display:;";
outline+="'><div style='overflow:auto;width:100%;height:100%'>";
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=center style='backgroundColor:blue;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=center";
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;
}
function outreflesh()
{
document.all("outLookBarDiv").innerHTML=outlookbar.getOutLine();
}
function locatefold(foldname)
{
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;
</SCRIPT>
<SCRIPT language=javascript>
function openScript(url, width, height ,isbars) {
window.open(url,"",'width=' + width + ',height=' + height + ',resizable=no,scrollbars='+ isbars + ',status=no,toolbar=no,menubar=no,location=no ');
}
</SCRIPT>
<META content="MSHTML 6.00.2600.0" name=GENERATOR>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function window_onresize() {
if(window.screen.width > 100 || window.screen.height > 500 ){
window.resizeTo(100,500)
}
}
function window_onblur() {
//window.focus ()
}
//function changeface(o,face){
//o.src="face/"+face
//}
//-->
</SCRIPT>
<title>显示在线名单 </title>
</HEAD>
<BODY oncontextmenu=self.event.returnValue=false style="MARGIN: 0px" >
<TABLE height="100%" cellSpacing=0 width="100%" bgColor=buttonface border=0 >
<TBODY>
<TR>
<TD vAlign=top align=center width="100%" bgColor=buttonface colSpan=2 style='overflow:auto'>
<SCRIPT language=javascript>
var t
//在线会员
t=outlookbar.addtitle('我的好友')
<%
'set rs=server.createobject("adodb.recordset")
sqlstr="select * from userinfor where username <> '"&session("icqusername")&"' and online=true"
rs.open sqlstr,conn,1,1
do while not rs.eof
for j=0 to i-1
if rs("username")=x(j) then
news=true
thenews=y(j)
exit for
end if
next
if news=true then
%>
outlookbar.additem("<img src=face/jump.gif border=0 alt='查看消息' style='CURSOR: se-resize' onClick=javascript:openScript('messanger.asp?action=<%=thenews%>&touser=<%=rs("username")%>',370,210)><br><%=rs("username")%>",t,"","")
<%
news=false
else
%>
outlookbar.additem("<img src=face/<%=rs("face")%> border=0 style='cursor:hand' alt='双击发送消息' ondblClick=javascript:openScript('messanger.asp?touser=<%=rs("username")%>',370,210)><br><%=rs("username")%>",t,"","")
<%
end if
rs.movenext
loop
rs.close
set rs=nothing
%>
locatefold("我的好友")
</SCRIPT>
<TABLE height="100%" cellSpacing=0 cellPadding=0 width="100%"
align=center>
<TBODY>
<TR>
<TD id=outLookBarShow style="HEIGHT: 20px" vAlign=bottom width="100%"
bgColor=buttonface colSpan=4 name="outLookBarShow"><IMG
src="images/triangle2.gif" border=0></TD>
</TR>
<TR>
<TD id=outLookBarShow style="HEIGHT: 5px" vAlign=bottom align=left
width="100%" bgColor=buttonface colSpan=4
name="outLookBarShow"></TD>
</TR>
<TR>
<TD id=outLookBarShow style="HEIGHT: 100%" vAlign=top align=center
width="100%" bgColor=#e4f0f8 colSpan=4 name="outLookBarShow"><FONT
color=#ffffff>
<SCRIPT>
outlookbar.show()
</SCRIPT>
</FONT></TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TBODY>
</TABLE>
<%
if session("first_times") ="" then
%>
<SCRIPT LANGUAGE=javascript>
<!--
window.resizeTo (100,500)
self.location.reload ()
function changeface(){
<%=rs("sender")%>.src="face/0.bmp"
//-->
</SCRIPT>
<%
session("first_times")=false
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -