<!-- #include file="include/config_other.asp" -->
<!--#include file="include/conn.asp"-->

<%
index_url="chat"
tit_fir=format_menu(index_url)
tit=tit_fir
tit_fir=""
call web_head(0,0,0,0,0)
'------------------------------------left----------------------------------
call format_login()
response.write left_action("jt13",4)
'----------------------------------left end--------------------------------
call web_center(0)
'-----------------------------------center---------------------------------
%>
<table border=0 width='98%' cellspacing=0 cellpadding=0 align=center>
<tr><td align=center><%call chat_main(180)%></td></tr>
<tr><td align=center><%call chat_main2()%></td></tr>
</table>
<%
'---------------------------------center end-------------------------------
call web_end(0)

sub chat_main(mh)
  dim temp1
      temp1="<table border=0 width='100%' class=tf>" & _
	  vbcrlf&"<tr><td><IFRAME name=showmsg marginWidth=1 marginHeight=1 src='chat/showmsg.asp' frameBorder=no width='100%' scrolling=yes height="&mh&"></IFRAME></td></tr>" & _
	  vbcrlf&"<tr><td><IFRAME name=pros marginWidth=0 marginHeight=0 src='about:blank' frameBorder=no width=0 scrolling=no height=0></IFRAME></td></tr>" & _
	  vbcrlf&"<tr><td height=1></td></tr>" & _
	  vbcrlf&"<tr><td><IFRAME name=sendm frameborder=0 src='sendm.asp' width='100%' scrolling=no height=65></IFRAME></td></tr>" & _
	  vbcrlf&"</table>" 

  response.write kong&format_bar("<font class=end><b>A. “即时聊天”</b></font>",temp1,11,0,0,"||","")
end sub

sub chat_main2()
%>
<script language=javascript>
function chat_go()
{
  var chat2 = open_win2('','chat');
  document['form1'].action='http://talk3.silversand.net/cgi-bin/login.cgi';
  document['form1'].method='get';
  document.form1.submit();
}
function open_win2(url,name)
{
  var open_win=window.open(url,name,'width=' + screen.width + ',height=' + screen.height-30 + ',left=0,top=0,toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=yes' );
}
</script>
 <%
  dim temp1
      temp1="<table border=0 width='100%' class=tf><tr><td>" & _
      vbcrlf&"<tr><td height=30 align=center>（当前聊天室在线人数：<font class=red><b><SCRIPT language='JavaScript' src='http://admin.bliao.com/onlinenum.php?111111'></SCRIPT></b></font> 人）</td></tr>" & _
      vbcrlf&"<tr><td height=75 align=center valign=middle>" & _
      vbcrlf&"<form action='/' method=post name=form1 target=chat>" & _
      vbcrlf&"<input type=hidden name=USER value="&lcase(login_username)&">" & _
      vbcrlf&"<input type=hidden name=PASS>" & _
      vbcrlf&"<input name=roomid type=hidden value=111111></form>" 
  if login_mode="" then
    temp1=temp1&"<font color=#00659c>您是否还没有 <a href=login.asp?action=register class=red><b>注册</b></a> 或还没有 <a href=login.asp class=red><b>登陆</b></a> 本站？！</font>"
  else
    temp1=temp1&"<a href='javascript:;' onclick=""javascript:chat_go();"">进入"&tit&"</a>"
  end if
    temp1=temp1&"</td></tr>" & _
    vbcrlf&"<tr><td align=center>此聊天室支持一般常用动作功能，支持语音聊天，可插入图片和声音等。</td></tr>" & _
    vbcrlf&"</table>" 

  response.write kong&format_bar("<font class=end><b>B. “免费碧聊”</b></font>",temp1,11,0,0,"||","")
end sub
%>