
<html>
<head>
<title>
on-line meeting
</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<style type="TEXT/CSS"> 
<!--
body,table {color:#202030;font-family: 宋体_GB2312; font-size: 9pt; line-height: 12pt}
A:link {text-decoration: none; color:#6060FF; font-family: "宋体"; font-size: 9pt; line-height: 12pt}
A:visited {text-decoration: none; color: #6060FF; font-family: "宋体"; font-size: 9pt; line-height: 12pt}
A:active {text-decoration: underline; color: #FF6000; font-family: "宋体"; font-size: 9pt; line-height: 12pt}
A:hover {text-decoration: underline; color:#FF6000; font-family: "宋体"; font-size: 9pt; line-height: 12pt}

A.B:link {text-decoration: none; color:#EFEFEF; font-family: "宋体"; font-size: 9pt; line-height: 12pt}
A.B:visited {text-decoration: none; color: #EFEFEF; font-family: "宋体"; font-size: 9pt; line-height: 12pt}
A.B:active {text-decoration: underline; color: #EFEFFE; font-family: "宋体"; font-size: 9pt; line-height: 12pt}
A.B:hover {text-decoration: underline; color:#EFEFFE; font-family: "宋体"; font-size: 9pt; line-height: 12pt}

-->
</style>

</head>
<!-- #include file="../Inc/Conn.asp" -->
<%
LoginID=Session("LoginID")
if LoginID="" then LoginID=0
%>
<body bgcolor="#F9F9FF" background="chat.gif">
<table width="100%" height="100%">
<tr><td>
<form action="enter.asp" target="pplchtroom">
<table border="0" align="center" bgcolor="#F0E0F0">
<tr align="center"><td colspan="2" bgcolor="#E0F0F0"><font color="#308080"><Big>在线聊天室</Big></font></td></tr>
<tr><td>
用户名:</td><td><input type="text" name="UserName"><BR></td></tr><tr><td>
房间:</td><td>

<select name="CRNAME">
<option value="Room1">房间一</option>
<option value="Room2">房间二</option>
<option value="Room3">房间三</option>
<option value="Room4">房间四</option>
</select>
</td></tr><tr align="center"><td colspan="2">
<input type="submit" value=" 进 入 "></td></tr></table>
</form>
</td></tr></table>      
</body>
</html>
<!-- #include file="../Inc/Conn_close.asp" -->
<%
Function GetTableValue(TableName,Field,ValueField,Value)
	if TableName<>"" and Value<>"" then
		Set RsTmp = Server.Createobject("Adodb.recordset")
		strSql = "Select "& Field &" from "& TableName &" where "& ValueField &"='"& Value &"'"
		Rstmp.open strSql,oConn,1,1
		If not Rstmp.eof then
			GetTableValue=trim(Rstmp(Field))
		else
			GetTableValue=""
		end if
		Rstmp.close
		'set RsTmp = Nothing
	else
		GetTableValue=""
	end if
End Function
%>
<%Response.End%>

