<%option explicit%>
<!--#include file="inc_const.asp"-->
<%application.lock
dim cschat,connstr
set cschat=server.createobject("ffcschat.cssbchat")
cschat.ConstStr=ConstStr
if application(ConstStr & "_init")<>"true" then
  Connstr="DRIVER={Microsoft Access Driver (*.mdb)};DBQ="+server.mappath("db/global.asa")+";DefaultDir='';DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=15;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
  Application(ConstStr & "_connstr") = ConnStr
  cschat.InitGlobal application
end if
set cschat=nothing
dim psckstr,room_array,room_name
psckstr="document.frmLogin.sUserName.focus();"


room_array=split(Application(ConstStr & "_room_list"),"$>")
application.unlock
room_name=room_array(1)
response.write "<html><head><title>【"&room_name&"】</title>" &_
 "<meta HTTP-EQUIV='Pragma' CONTENT='no-cache'>"&_
 "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>"&_
 "<meta name='author' content='free'>" & _
 "<meta name='e-mail' content='shenlei@163.com'>"&_
 "<meta name='copyright' content='紫儿聊吧'>"&_
 "<style>td{font-size:12px;text-align:center}p{margin:5px}a{text-decoration:none;color:eeeeee}</style>"&_
 "</head><body bgcolor=336699 style='margin:0px' onload='dotrans();"& psckstr &"' >"&_
 "<script LANGUAGE='JavaScript1.1'>" &_
 "mms = new Array('首次访问,自动登录<br>无须注册,记住密码',"&_
 "'IE5.0浏览最佳<br>请允许cookies！','最佳效果:1024*768<br>16位色 小字体',"&_
 "'超酷的动作<br>自定制个性化界面','独特的股票<br>聊天室答题',"&_
 "'不一样的感受<br>全新的体验',"&_
 "'Power By Free<br>www.qiyuan1462.cn');"&_
 "msc = new Array('ffffff','000099','ffff00','cc00cc');"&_
 "msbg = new Array('3355cc','CCFFFF','336699','AAEEFF');"&_
 "var i_mms = 0;"&_
 "var i_f=0;"&_
 "var i_cl=0;"&_
 "var i_font=0;"&_
 "var timer;"&_
 "function dotrans() {"&_
 "if (i_cl>3) i_cl=0;"&_
 "if (i_font>2) i_font=0;"&_
 "if (i_f>10) i_f=0;"&_
 "if (i_mms >= mms.length) i_mms = 0;"&_
 "if (document.all) {"&_
 "ad.filters[i_f].apply();"&_
 "ad.innerHTML = '<table width=100% height=100% border=0><tr><td bgcolor='+"&_
 "msbg[i_cl]+' style=color:'+"&_
 "msc[i_cl++]+"&_
 "';font-size:12px align=center valign=middle>'+"&_
 "mms[i_mms++]+'</td></tr></table>';"&_
 "ad.filters[i_f++].play();"&_
 "}"&_
 "timer = setTimeout('dotrans()',4000)"&_
 "}"&_
 "</script>"%>
<script language="JavaScript">
var highlighting=null,flag=1;
function high(which2) {
 theobject=which2
 highlighting=setInterval("highlightit(theobject)",200)
 }
 function low(which2){
 clearInterval(highlighting)
 which2.filters.alpha.opacity=60
 }
 function highlightit(cur2){
 if (flag==1) {
  cur2.filters.alpha.opacity+=6
  if (cur2.filters.alpha.opacity>95) flag=0
 }
 else {
  cur2.filters.alpha.opacity-=6
  if (cur2.filters.alpha.opacity<45) flag=1
 }
 }
</script>
<table width=100% height=100% border=0 > <tr><td>
<table align=center border=0 >
<script src="showad.asp?id=2"></script>
<tr><td>
<table border=1  cellspacing=0 bordercolorlight=navy bordercolordark=navy bgcolor=3366cc>
<tr>
<td>
<table border=0 bgcolor=navy cellspacing=0 cellpadding=2 width=100%>
<tr>
<td width=100% style="text-align:left" ><font color=FFFFFF face=Wingdings>1</font><font color=FFFFFF>登录窗口 - 【<%=room_name%>】 欢迎你的光临</font></td>
<td width=18>
<table border=1 bordercolorlight=navy bordercolordark=336699 cellpadding=0 bgcolor=e0e0e0 cellspacing=0 width=18>
<tr>
<td width=16><b><a href="/" onMouseOver="window.status='';return true" onMouseOut="window.status='';return true" title="退出"><font color="000000">×</font></a></b></td>
</tr>
</table>
</td>
</tr>
</table>
<table width=100% border=0 cellspacing=0 bgcolor="3366cc">
<tr valign="top">
<td>
<table width="100%" border="0" cellspacing="0" bordercolorlight="#3366cc" bordercolordark="#3366cc" bgcolor="b0d8ff" cellpadding="5">
<tr valign="middle">
<td>
<table width="100%" height="100%" border="0">
<tr><td valign=center>
<table onmouseout='this.style.backgroundColor="#b0d8ff"' onmouseover='this.style.backgroundColor="#bbddff"' width="100" height="220" style="border:1px navy solid;background-color:b0d8ff" border="0" cellspacing="0" cellpadding="5">
<tr><td><input onmouseout='this.style.color="navy";this.style.border="1px solid navy"' onmouseover='this.style.color="#cc00cc";this.style.border="1px solid #990000"' type='button' value='登录说明' onClick="window.open('help.asp?id=1','_blank')" style="color:336699;font-size:10pt;border:'1px solid navy';cursor:hand;background-color:b0d8ff" >
<tr><td><input onmouseout='this.style.color="navy";this.style.border="1px solid navy"' onmouseover='this.style.color="#cc00cc";this.style.border="1px solid #990000"' type='button' value='流量分析' onClick="window.open('hour24.asp','_blank')" style="color:336699;font-size:10pt;border:'1px solid navy';cursor:hand;background-color:b0d8ff" >
<tr><td><input onmouseout='this.style.color="navy";this.style.border="1px solid navy"' onmouseover='this.style.color="#cc00cc";this.style.border="1px solid #990000"' type='button' value='留 言 簿' onClick="window.open('guest.asp','_blank')" style="color:336699;font-size:10pt;border:'1px solid navy';cursor:hand;background-color:b0d8ff" >
<tr><td><input onmouseout='this.style.color="navy";this.style.border="1px solid navy"' onmouseover='this.style.color="#cc00cc";this.style.border="1px solid #990000"' type='button' value='排 行 榜' onClick="window.open('top10.asp','_blank')" style="color:336699;font-size:10pt;border:'1px solid navy';cursor:hand;background-color:b0d8ff" >
<tr><td><input onmouseout='this.style.color="navy";this.style.border="1px solid navy"' onmouseover='this.style.color="#cc00cc";this.style.border="1px solid #990000"' type='button' value='股票市场' onClick="window.open('gupiao/default.htm','_blank')" style="color:336699;font-size:10pt;border:'1px solid navy';cursor:hand;background-color:b0d8ff" >
<tr><td><input onmouseout='this.style.color="navy";this.style.border="1px solid navy"' onmouseover='this.style.color="#cc00cc";this.style.border="1px solid #990000"' type='button' value='紫儿论坛' onClick="window.open('http://www.qiyuan1462.cn/bbs/','_blank')" style="color:336699;font-size:10pt;border:'1px solid navy';cursor:hand;background-color:b0d8ff" >

</td>
</tr>
</table>
</td>
<td>
<p><img src="<%=application(ConstStr & "_logogif")%>" onMouseOut=low(this) onMouseOver=high(this) border=0 alt="<%=room_name%>欢迎您！" style="filter:alpha(opacity=60)"></p>
<p><script lauguage="javascript" src="chatdoor.asp?bg=b0d8ff&fg=000000&af=red"></script></P>
<p><DIV id=ad style="width:90%; height:40px; text-align:center; filter:revealTrans(Transition=12, Duration=3) revealTrans(Transition=1, Duration=3) revealTrans(Transition=11, Duration=2) revealTrans(Transition=2, Duration=3) revealTrans(Transition=3, Duration=2) revealTrans(Transition=8, Duration=1) revealTrans(Transition=10, Duration=1) revealTrans(Transition=13, Duration=1) revealTrans(Transition=14, Duration=2) revealTrans(Transition=15, Duration=3) revealTrans(Transition=16 Duration=1)"></DIV></p>
</td>
<td>
<table width="140" height="100%" border=0>
<tr><td height="100%" style="border:1px navy solid;background-color:EAF2FF">
<iframe style='HEIGHT:220;VISIBILITY:inherit;WIDTH:140;Z-INDEX:1;' scrolling=no frameborder=0 src='roomlist.asp'></iframe>
</td>
</tr>
</table>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<tr><td>
<br>
<marquee style="color:33cccc">聊天室版本升级，新增答题、点歌、股票、商城等很多程序！</marquee>
</td>
</tr>
</td></tr>
</table>
</body>
</html>

