📄 home.asp
字号:
<html>
<head>
<title>SBHS CHAT Logon</title>
<link href="styles.css" rel="stylesheet" type="text/css">
</head>
<body>
<p align="center"><br>
<br>
<!--#include file="config.asp" -->
<!--#include file="houseclean.asp" -->
<!-- houseclean.asp 清空用户列表,以及清空聊天室,如果聊天室没有用户,则删除 -->
<font size="3">欢迎光临开心聊天室</font></p>
<p align="center">聊天开心，开心聊天
<%
'读取客户端的数据.
varStatus = request("Status")
varError = request("Error")
'提示注册信息
if varStatus = "Registered" then
response.write "<p><b>你注册成功，请登录</b></p>"
elseIf varError = "badcomb" then
response.write "<p><b>登录失败，请重新登录</b></p>"
end if
response.write "<p><b>请首先登录</b></p><p>如果没有用户名，单击<a href='register.asp'>这里</a>进行注册.</p>"
'从数据库中查询所有的聊天室,并显示在下拉框中
Dim arrRooms()
i = 0
'获得房间编号
call openDB
varSQL = "SELECT * FROM ROOMS;"
rs.Open varSQL, conn
if rs.EOF then
varRooms = "<option value='0'>没有聊天室</option>"
else
rs.movefirst
do
'读入每个聊客的id保存在数组中
varRoomID = rs("RoomID")
arrayR = "yes" 'this tells us that there are entries in the array.
redim Preserve arrRooms(i)
arrRooms(i) = varRoomID
i = i + 1
rs.movenext
loop until rs.EOF
end if
call closeDB
'获得每个聊天室的人数
if arrayR = "yes" then
For F = LBound(arrRooms) To UBound(arrRooms)
call openDB
'统计每个房间的人数
varSQL = "SELECT Count(UserID) AS NoUsers FROM USERS WHERE RoomID = " & arrRooms(F) & ";"
rs.Open varSQL, conn
varNoUsers = rs("NoUsers")
call closeDB
call openDB
'获得聊天室名称
varSQL = "SELECT * FROM ROOMS WHERE RoomID = " & arrRooms(F) & ";"
rs.Open varSQL, conn
varName = rs("Name")
call closeDB
'在下拉框中显示所有聊天室信息.
varRooms = varRooms & "<option value='" & arrRooms(F) & "'>" & varName & " (" & varNoUsers & ")</option>"
Next
end if
%>
</p>
<form name="frmLogin" action="login.asp" method="post">
<table border="0" align="center" cellpadding="0">
<tr>
<td>用户名:</td><td><input type="text" name="txtUsername" class="input"></td>
</tr><tr>
<td>密码:</td><td><input type="password" name="txtPassword" class="input"></td>
</tr><tr>
<td>聊天室:</td><td><select name="sltRoom" class="input"><%=varRooms%></select></td>
</tr><tr>
<td></td><td><input type="submit" name="submit" value="登录" class="inputbtn"></td>
</tr></table>
<div align="center"></div>
</form>
<p align="center"> </p>
<div align="center">
<script type="text/javascript" language="JavaScript">
var file='../stats/count.asp';
var d=new Date();
var s=d.getSeconds();
var m=d.getMinutes();
var x=s*m;
f='' + escape(document.referrer);
if (navigator.appName=='Netscape'){b='NS';}
if (navigator.appName=='Microsoft Internet Explorer'){b='MSIE';}
if (navigator.appVersion.indexOf('MSIE 3')>0) {b='MSIE';}
u='' + escape(document.URL); w=screen.width; h=screen.height;
v=navigator.appName;
fs = window.screen.fontSmoothingEnabled;
if (v != 'Netscape') {c=screen.colorDepth;}
else {c=screen.pixelDepth;}
j=navigator.javaEnabled();
info='w=' + w + '&h=' + h + '&c=' + c + '&r=' + f + '&u='+ u + '&fs=' + fs + '&b=' + b + '&x=' + x;
document.write('<img src="' + file + '?'+info+ '" width=0 height=0 border=0>');
</script>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -