聊天室代码问题

<html><head><title>在线人员列表</title><metahttp-equiv="Content-Type"content="text/html;cha... <html>
<head>
<title>在线人员列表</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv=refresh content='20;url=namelist.asp'>

<link rel="stylesheet" href="style.css" type="text/css">
<script language="JavaScript">

</script>
<base target="_self">
</head>
<body background="Img/blegtext.gif" topmargin="2" leftmargin="5" >

<div align="center">
<center>
<table width="130" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF" style="border-collapse: collapse">
<tr>
<td width="100%" bgcolor="#66CCFF">
<p align="center"><span lang="zh-cn">用户状态</span></td>
</tr>
<tr>
<td width="100%">
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="38">
<tr>
<td width="100%" height="14"><span lang="zh-cn">等   级</span>: LV<%=session("lv")%></td>
</tr>
<tr>
<td width="100%" height="20"><span lang="zh-cn">经验值</span>:<span lang="zh-cn">
<%if session("exp")=<0 then%><%session("exp")=1%><%end if%><%=session("exp")%></span></td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</div>
<div align="center"><center>
<table width="130" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF" id="AutoNumber1" style="border-collapse: collapse">
<tr>
<td width="100%" height="20" bgcolor="#66CCFF">
<p align="center">在线人员名单</td>
</tr>
<tr>
<td width="100%" height="20">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2">
<tr>
<td width="100%" height="20">
<p align="center"><a href="javascript:selectwho('大家');">大家</a>  中性</td>
</tr>
</table>
<%for i=1 to 100
if application("online"&i)<>"" then%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3">
<tr>
<td width="100%" height="20">
<p align="center"><a href="javascript:selectwho('<%=application("online"&i)%>');"><%if application("sex"&i)="男" then%><font color=black><%else%><font color=#FF0000><%end if%>
<%=application("online"&i)%></font></a><%if application("touxian"&i)<>"" then%><font color=green>(<%=application("touxian"&i)%>)</font><%end if%>  <%=application("sex"&i)%>士</td>
</tr>
</table>
<%end if
next%>
</td>
</tr>
</table>
共有<font color=blue size=3><b>
<% =application("cou") %>
</b></font>人在线
</center>
</div>
</body>

</html>
我想知道如何修改代码用户退出聊天室后，名单始终在聊天室显示的问题！如何修改，请高手指点！展开

2个回答

#热议# 网上掀起『练心眼子』风潮，真的能提高情商吗？

wwwleiycn
2009-05-15 · TA获得超过656个赞

知道小有建树答主

回答量：205

采纳率：0%

帮助的人：172万

我也去答题访问个人页

关注

展开全部

你这个是什么程序，ichat吗？给你个参考！
<HTML>
<head><META content="聊天,语音,语聊,可视,视频,嘉宾,访谈,深圳东方博雅科技,ICHAT,CHAT,VIDEO,AUDIO" name=Keywords><META content="iChat聊天--可视语音嘉宾聊天" name=Description>
<TITLE>用户列表</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {
 font-family: "宋体";
 font-size: 9pt;
 line-height: 12pt;
 margin-left: 0px;
}
select { BACKGROUND-COLOR: #efefef; COLOR: black; FONT-FAMILY: 宋体; FONT-SIZE: 9pt; Border-width: 1px;}
a:visited {  text-decoration: none}
a:link {  text-decoration: none}
a:hover {
 text-decoration: none;
}
.boy { color: 0000FF}
.girl { color: FF80FF}
.private { color: green}
.offline { color: gray}
.p9 {font-size: 9pt}
.p11{font-size: 11pt}

body,td,th {
 font-family: 宋体;
}
a:active {
 text-decoration: none;
}
.STYLE1 {
 font-size: 20pt;
 color: #FFFF00;
}

-->
</style>
<script language="JavaScript">
var strFormat = "<!--$ICON_FORMAT-->" ;
var strMembersTag = "<!--$MEMBERS_TAG-->" ;
var nMembersDisp = <!--$MEMBERS_DISPLAY--> ;

function ShowTips(strUser,pThis)
{
 var obj = parent.Users.FindObject(strUser);
 if(obj == null) return ;
 var xb, cs, level;
 
 if(obj.XB == 0)
 {
  xb = "女士" ;
  cs = "girl" ;
 }else
 {
  if(obj.XB == 1)
  {
   xb = "男士" ;
   cs = "boy";
  }else
  {
   xb = "不详" ;
   cs = "private";
  }
 }
 
 if(obj.Level < 10) 
  level = obj.Level + " " ; 
 else 
  level = obj.Level ;

 var s = "<table width=130 border=0 cellspacing=1 cellpadding=2 bgcolor=#000066><tr bgcolor="

 if(obj.Online == 0) s += "#ffffe7" ;
 else s += "#dedfdf" ;
 
 s += "><td><center><table border=0 class='p9'><tr height=40 align=center><td>" ;

 if(obj.Icon.length > 0)
  s += strFormat.replace("<!--$OBJECT-->", obj.Icon) ;
 else
  s += "<font face=Wingdings size=7 color=#FF0000>J</font>" ;

s += "</td><td valign=bottom><span class='p11'><font color=#FF9900><B>" ;
 s += parent.GetTitle(obj.Level) + "</B></font></span><BR>" ;

 if(parent.Users.FindObject(parent.youself).Level >= level)
 s += "级别：<font color=red>" + level + "级</font><BR>" ;
 else
 s += "<BR>" ;
 s += "性别：" + "<span class='" + cs + "'>" + xb + "</span>" ;

 s += "</td></tr><tr><td>姓名：</td><td class='" + cs + "'>" + obj.UserName ;
 s += "</td></tr><tr><td>昵称：</td><td class='" + cs + "'>" + obj.NickName ;

 if(obj.Arming.length > 0)
 {
  s += "</td></tr><tr><td colspan=2 align=center>" ;
  s += strFormat.replace("<!--$OBJECT-->", obj.Arming) ;
 }
 s += "</td></tr><tr><td colspan=2 align=center>" ;
 if(obj.Admin == 2) 
  s += "<font color=red>★ ★管 理 员★ ★</font>" ; // 正式管理员
 else
 if(obj.Admin == 1)
  s += "<font color=red>☆ ☆临 管 员☆ ☆</font>" ; // 临时管理员
       
 s += "</td></tr></center></table></td></tr></table>" ;       

Tips.innerHTML = s ;

 var pTip = document.all["Tips"].style ;
 pTip.left = getPos(pThis,"left") - 9 ;
 pTip.top = pThis.offsetHeight  + getPos(pThis,"top") ;
 pTip.width = 130;
 pTip.display = "" ;
 if(Tips.offsetTop + Tips.offsetHeight > document.body.offsetHeight)
  pTip.top = getPos(pThis,"top") - Tips.offsetHeight ;
}
function getPos(obj,type)
{
 var n = 0 ;
 while(obj!=null)
 { if(type=="top")
   n += obj.offsetTop ;
  else
   n += obj.offsetLeft ;
  obj = obj.offsetParent ;
 }
 return n;
}
function Hidden()
{
 var obj = document.all["Tips"].style ;
 obj.left = 0 ;
 obj.top = 0 ;
 obj.display = "none" ;
}
function GetComment(obj,type)
{ 
 var xb, state ;
 if(obj.XB == 0) xb = "女士" ;else{if(obj.XB == 1) xb = "男士" ;else xb = "不详" ;}
 if(obj.Online == 0) state = "聊天中…" ;else state = "暂时离开" ;
 
 var s = "" ; 
 var strComment = "\t\t\t\t\t\r\n" ;
 if(type == null) strComment = "      **用户资料**\r\n" ;
 else s = type ;
 strComment += s + "姓名：" + obj.UserName + "\r\n" ;
 strComment += s + "昵称：" + obj.NickName + "\r\n" ;
 strComment += s + "性别：" + xb + "\r\n" ;
 strComment += s + "状态：" + state + "\r\n" ;
 strComment += s + "级别：" + obj.Level + "\r\n" ;
 strComment += s + "头衔：" + parent.GetTitle(obj.Level) ;
 return strComment ;
}
function DoWhois(str)
{ var obj = parent.Users.FindObject(str);
 if(obj == null) return ;
 parent.whois(obj.UserName);
}
function RndUsers()
{ var r, obj , n = parent.Users.GetCount() ;
 if(n > 5)
 { for(var i = 0; i < 5 ; i ++)
  { r = Math.round(Math.random()*(n-1)) ;
   obj = parent.Users.GetObject(r) ;
   if(obj.UserName != parent.youself) break;
  } 
  if(i < 5)
  { if(confirm(GetComment(obj,"\t") + "\r\n\r\n" + "系统推荐[ " + obj.NickName + " ]和您聊天，您愿意吗？"))
    parent.cs(obj.UserName) ;
   return ;
  }
 }
 alert("非常抱歉，没有合适的聊友向您推荐!") ;
}
function OnSort(n)
{
 switch(n)
 { case 0:
   return ;
  case "1":
   parent.Users.SortByXB() ;
   break;
  case "2":
   parent.Users.SortByLevel() ;
   break;
  case "3":
   parent.Users.SortByName();
   break;
  case "4":
   parent.Users.SortByState() ;
   break;
  case "90":
   parent.ToMusic();
   return;
  case "100":
   parent.Loop(0);
   break;
  case "101":
   var loop = prompt("请设定音乐播放的次数，1至99为有效值，-1表示不限次数!",parent.MyMusic.Loop) ;
   if(loop != null && loop < 100) parent.Loop(loop);
   break;
  default:
   parent.Play2(n) ;
   break;
 }
 if(n < 10) parent.start() ;
 else document.userlist.SELECT1.value = "0" ;
}
</script>
</HEAD>
<BODY rightmargin=0 onkeydown="if(event.keyCode==27)return false;" oncontextmenu="return false;">
<script>this.document.bgColor=parent.skin.UserColor;</script>
<div id="Tips" style="position:absolute; left:0; top:0; width:130; display=none;"></div>
<form action="/" name="userlist">
  <table width="100%" border="2" align="left"><tr>
    <th background="http://139007.com/bg8.gif" scope="row"><a href="http://139007.com/phpbbs" target="_blank" class="STYLE1">荆松聊吧</a></th>
  </tr><tr>
    <th background="http://139007.com/3/top2_bg.gif" scope="row"><a href="http://139007.com/phpbbs" target="_blank"><img src="http://139007.com/3/js.gif" width="120" height="30" border="0"></a></th>
  </tr><tr>
    <th background="http://139007.com/3/top2_bg.gif" scope="row"><a href="http://139007.com/dz" target="_blank"><img src="http://139007.com/3/ly.gif" width="120" height="30" border="0"></a></th>
  </tr>
</table>
<div align="center"><br>
  <br>
    <br>
    <br>
    <br><br><br><br><br>
  <script>
document.write("你自己:")
me=parent.youself
objs = parent.Users.FindObject(me)
document.write("<font color=red>")
document.write(objs.UserName)  
document.write("  </font>")
    </script>
  <BR>

  [<A href="javascript:parent.start();">刷新</A>|<A href="javascript:parent.ToMusic()"><font color=red>在线点歌台</font></A>]
  <BR>
      <SELECT name="SELECT1" onChange="OnSort(this.value)">
        <OPTION value='0'>==显示顺序==</OPTION>
        <OPTION value='1'>按女士优先</OPTION>
        <OPTION value='2'>按级别高低</OPTION>
        <OPTION value='3'>按姓名长度</OPTION>
        <OPTION value='4'>按在线状态</OPTION>
        <OPTION value='90' style="BACKGROUND:red; COLOR:white">*在线点歌台*</OPTION>
        <OPTION value="100">停止播放音乐</OPTION>
        <OPTION value="101">设定播放次数</OPTION>
      </SELECT></div><br><div align="left">
  [在线用户:<font color=red><B>
    <script>document.write(parent.Users.GetCount());</script>
    </B></font>人]
  <hr>
  <div align="left">[<A href="javascript:parent.FindFriend();"><font color=red>查寻聊友</font></A>/<A href="javascript:RndUsers();"><font color=red>自动推荐</font></A>]<br>
  [<A href="http://139007.com/kj/xc/" title="本功能需要泡到一定级别才能正常使用！欢迎大家泡分体验！" target="_blank"><font color=red>香港本港台</font></A>]<img src=http://image.ichat.net.cn/voiceimage/video.gif><br><script language="JavaScript">
var color; //性别的颜色区分，修改性别区分颜色请编辑CSS属性的 .boy .girl .private
var obj, UserName, NickName, XB, ICON ;
for(var i=0; i<parent.Users.GetCount(); i ++)//循环写用户列表
{
 obj = parent.Users.GetObject(i) ;
 if(obj.NickName.length > 0)
 {
  UserName = obj.UserName ;  // 姓名
  Nick = obj.NickName;   // 昵称
  XB = obj.XB ;     // 性别
  ICON = obj.Icon ;    // 头像

  if(obj.Online == 0)

  { if(XB == 0)
    color="girl";
   else
   if(XB ==1) //判断性别，然后用不同颜色表示
    color="boy";
   else color="private";
  }else
   color="offline" ;
  document.write("[<A href=\"javascript:parent.cs('"+UserName+"')\" onmouseover=\"ShowTips('" + UserName + "'," + "this" + ");\" onmouseout=\"Hidden();\"");
  document.write(" ondblclick='DoWhois(\"" + obj.UserName + "\")'>") ;
  document.write("<span class='"+color+"'>") ;
  if(obj.Admin == 2) document.write("<font color=#FF0000>★</font>") ; // 正式管理员
              else
  if(obj.Admin == 1) document.write("<font color=#FF0000>☆</font>");// 临时管理员 
  document.write(Nick+"</span></A>]");
  if(UserName==parent.youself) document.write("<font color=red><=</font>");//你自己
  document.write("<BR>");
 }
}
/* 注：变量 parent.MaxOnline 代表本房间历史最高在线人数 */
  </script></div><hr>
<INPUT type="checkbox" name="ch1" onClick="parent.bTimer=this.checked;" onDblClick="parent.bTimer=this.checked;"><A href="javascript:userlist.ch1.click();">定时刷新名单</a>
<BR><BR>
<table width="100%" border="1" bgcolor="#FFFFFF">
  <tr>
    <th align="center" valign="top" bordercolor="" background="http://139007.com/3/top2_bg.gif" bgcolor="" scope="row"><a href="http://www.ltb888.com/1/" target="_blank"><img src="http://139007.com/3/gy.gif" width="120" height="30" border="0"></a></th>
  </tr>
  <tr>
    <th align="center" valign="top" bordercolor="" background="http://139007.com/3/top2_bg.gif" bgcolor="" scope="row"><a href="http://139007.com/dj.htm" target="_blank"><img src="http://139007.com/3/yy.gif" width="120" height="30" border="0"></a></th>
  </tr>
  <tr>
   <th align="center" valign="top" bordercolor="" background="http://139007.com/3/top2_bg.gif" bgcolor="" scope="row"><a href="http://www.nfd.com.tw/house/1976-99.htm" target="_blank" class="STYLE24"><img src="http://139007.com/3/ls.gif" width="120" height="30" border="0"></a></th>
  </tr>
<tr>
   <th align="center" valign="top" bordercolor="" background="http://139007.com/3/top2_bg.gif" bgcolor="" scope="row"><a href="http://www.dffy.com/iq/index.asp?pageid=33" target="_blank" class="STYLE24"><img src="http://139007.com/3/zw.gif" width="120" height="30" border="0"></a></th>
  </tr>
  <tr>
 <th align="center" valign="top" bordercolor="" background="http://139007.com/3/top2_bg.gif" bgcolor=""  scope="row"><a href="http://code.51boba.com" target="_blank"><img src="http://139007.com/3/wl.gif" width="120" height="30" border="0"></a></th>
  </tr>
 <tr>
 <th height="39" align="center" valign="top" bordercolor="" background="http://139007.com/3/top2_bg.gif" bgcolor="" scope="row"><a href="http://www.singaporepools.com.sg/Lottery?page=toto" target="_blank"><img src="http://139007.com/3/xjp.gif" width="120" height="30" border="0"></a></th>
  </tr>
  <tr>
   <th align="center" valign="top" bordercolor="" background="http://139007.com/3/top2_bg.gif" bgcolor="" scope="row"><a href="http://139007.com:8889/UserGuide" target="_blank"><img src="http://139007.com/3/dj.gif" width="120" height="30" border="0"></a></th>
  </tr>
  <tr>
   <th align="center" valign="top" bordercolor="" background="http://139007.com/3/top2_bg.gif" bgcolor="" scope="row"><a href="http://www.ip138.com/" target="_blank"><img src="http://139007.com/3/ip.gif" width="120" height="30" border="0" class="girl"></a></th>
  </tr>
</table>
</a></DIV>
<script>userlist.ch1.checked=parent.bTimer;</script>
</form>
</BODY>
</HTML>


本回答被提问者采纳






已赞过已踩过<

你对这个回答的评价是？
评论收起

小李无刀
2009-05-13 · TA获得超过6359个赞

知道大有可为答主

回答量：8829

采纳率：78%

帮助的人：4986万

我也去答题访问个人页

关注

展开全部

那你要去注销那个ASP里改才行呢

已赞过 已踩过<

评论收起

1条折叠回答

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

聊天室代码问题

其他类似问题

为你推荐：