<!--#include file="chat/config.asp"-->
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/safe.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/const.asp"-->
<%
'on error resume next'错误忽略，以便能捕获错误信息

Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = 0
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>欢迎光临<%=chat_name%></title>
<meta name="keywords" content="情感,在线,新新,照片,动感影片,诗歌,爱情,纯洁,心连心">
<meta name="description" content="红嫂视屏交友情缘 情感在线">
<link href="style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
	background-image: url();
}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
</head>
<body>
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><!--#include file="top.asp"--></td>
  </tr>
</table>
<table width="950" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="787" align="center" valign="top" bgcolor="#FFFFFF"><div align="left">
        <table width="778" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="200" align="center" valign="top"><div align="left"><!--#include file="lefta.asp"-->
            </div></td>
            <td align="center" valign="top" style="border-left:#C7C8CC 1px solid;border-right:#C7C8CC 1px solid;border-bottom:#C7C8CC 1px solid"><table width="565" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td width="577" align="center" valign="top"><TABLE width="100%" border=0 
            cellPadding=0 cellSpacing=0 bgColor=white class="STYLE4" >
                      <TBODY>
                        <TR>
                          <TD width="2%" align=left background="image/tiao_4.gif"><img src="image/tiao_3.gif" width="10" height="31"></TD>
                          <TD width="22%" align=center background="image/tiao_4.gif"><table width="108" height="25" border="0" cellpadding="0" cellspacing="0">
                              <tr>
                                <td width="108" align="center" class="pgd">聊天室区域分布</td>
                              </tr>
                          </table></TD>
                          <TD width="42%" height="20" align="center" background="image/tiao_4.gif"><!--
		<script language=javascript src="/js/chkRegister.js"></script>
		//-->
&nbsp;</TD>
                          <TD width="32%" align="center" background="image/tiao_4.gif">&nbsp;</TD>
                          <TD width="2%" align="right" background="image/tiao_4.gif"><img src="image/tiao_2.gif" width="10" height="31"></TD>
                        </TR>
                      </TBODY>
                  </TABLE></td>
                </tr>
                <tr>
                  <td height="7"></td>
                </tr>
                <tr>
                  <td><table width="520" border="0" align="center" cellpadding="0" cellspacing="0">                   
                      <tr>
                        <td  align="center" valign="top"><table width="520" border="0" cellpadding="0" cellspacing="0" class="STYLE4">
                            <tr>
                              <td width="560" height="8" colspan="5"></td>
                            </tr>
                            <tr>
                              <td colspan="5" align="left"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                                  <%
set res=server.CreateObject("adodb.recordset")
sql1="select * from sheng"
res.open sql1,conn,1
j=0
response.Write "<tr>"
do while not res.eof
%>
                <td class="STYLE4"><a href="chat_rom.asp?prov=<%=res("id")%>" target="f1" class="alan lh15"><%=res("sheng")%></a></td>
                    <%  
res.movenext
j=j+1
if j mod 9 =0 then response.Write "</tr>"
loop
res.close
set res=nothing
%>
                              </table></td>
                            </tr>
                            <tr>
                              <td height="8" colspan="5" align="left"></td>
                            </tr>                            
                          </table>
                            <table width="520" border="0" cellpadding="0" cellspacing="0" class="STYLE4">
                              <tr>
                                <td align="left">&nbsp;</td>
                              </tr>
                              <tr>
                                <td height="413" align="center"><iframe id="f1" align="middle" frameborder="0" name="f1" src="chat_rom.asp" scrolling="no" width="515" height="400"></iframe></td>
                              </tr>
                        </table></td>
                      </tr>
                  </table></td>
                </tr>                
              </table>
            </td>
          </tr>
        </table>
    </div></td>
    <td width="163" align="center" valign="top" bgcolor="#FFFFFF"><!--#include file="fenlei.asp"--></td>
  </tr>
  <tr>
    <td height="2" valign="top"></td>
    <td valign="top" ></td>
  </tr>
</table>
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><!--#include file="root.asp"--></td>
  </tr>
</table>
</body>
</html>
<%
conn.close
set conn=nothing
%>
