📄 index.htm
字号:
<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%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -