<!--#INCLUDE FILE="conn.asp" -->
<!--#INCLUDE FILE="Class_Checkuser.asp" -->
<!--#INCLUDE FILE="Class_Top.asp" -->
 <%
 locat="聊天室"
if membername="" then
  	errmsg=errmsg+"<br>"+"<li>您还没有<a href=Class_Login.asp><font color=red>登录或注册校友录</font></a>。"
	call top(1,1)
	call error("Information",errmsg)
	
else
  call top(1,1)
  call main()
end if
  sub main()
%>
 <form action="chat/enter.asp" target="_blank">
<Font color="#FF0000"><center><%If Not IsEmpty(Session("pplchatmess")) Then Response.Write(Session("pplchatmess")&"<BR>"):Session("pplchatmess")=Empty%></center></font>
  <table width=500 cellpadding=4 cellspacing=1 bgcolor=#ff0000 align=center>
    <tr align="center" bgcolor=#FFFFFF> 
      <td colspan="2">&nbsp;</td>
    </tr>
    <tr bgcolor=#FFFFFF> 
      <td width="160"> 
        您在聊天室中使用的名字:</td>
      <td width="319"> 
        <input type="text" name="UserName" value="<%=membername %>" class=i>
        <BR></td></tr>
    <tr bgcolor=#FFFFFF> 
      <td width="160"> 
        希望进入的聊天室:</td>
      <td width="319"> 
        <select name="CRNAME">
          <option value="公共聊天室">公共聊天室 
          <%If Application("公共聊天室"&"usernum")>0 then Response.Write("["&Application("公共聊天室"&"usernum")&"]")%>
          </option>
          <option value="女生聊天室">女生聊天室 
          <%If Application("女生聊天室"&"usernum")>0 then Response.Write("["&Application("女生聊天室"&"usernum")&"]")%>
          </option>
          <option value="男生聊天室">男生聊天室 
          <%If Application("男生聊天室"&"usernum")>0 then Response.Write("["&Application("友情聊天室"&"usernum")&"]")%>
          </option>
          <option value="情侣聊天室">情侣聊天室 
          <%If Application("情侣聊天室"&"usernum")>0 then Response.Write("["&Application("情侣聊天室"&"usernum")&"]")%>
          </option>
        </select>
</td></tr>
    <tr align="center" bgcolor=#FFFFFF> 
      <td colspan="2"> 
        <div align="center">
          <input type="submit" value="进入聊天室">
        </div>
      </td></tr></table>
</form>
<table bgcolor="#ff0000" width="500" align="center" cellpadding=10 cellspacing=1><tr bgcolor=#ff9933>
    <td bgcolor="#FFFFFF"><font color="#FF0000">注意事项：</font></b><br>
　　1.请遵守国家有关法律法规，不要在聊天室、留言薄中散布违法的话语；请尊重他人，不要进行人身攻击；这对我们大家都有好处。<br>
      　　2.在聊天室中，如果您要离开，只需要选择其它栏目或者关闭窗口表示您已经下线了。<br>
      　　3.如果在聊天室中掉线，重新拨号上来，登录时显示“该用户名正在使用”中，则请您两分钟后再来，或改用其他名字进入。<br>
　　4.如果您在使用本聊天室时，发现任何问题或错误，请在留言薄中留言。当然，您也可以在留言薄里给聊友们留言。<BR>
      　　5.谢谢大家的合作和支持！</td>
  </tr></table>
</td></tr></table>
  </form>
 </body>
</html><%
end sub
%>
<%Call footer()%>