📄 default.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>聊天室程序</title>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<script language="jscript">
<!--
function Check()
{
var NotNull
NotNull=true
if (document.Login.UID.value=="")
{
window.alert("请输入姓名")
NotNull=false
}
if (document.Login.PWD.value=="")
{
window.alert("请输入密码")
NotNull=false
}
if (document.Login.NickName.value=="")
{
window.alert("请输入昵称!")
NotNull=false
}
return NotNull
}
//-->
</script>
<link href="style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style2 {font-weight: bold}
.style3 {color: #000000}
-->
</style>
</head>
<body>
<%
dim mysql,howmanyusers
set myuser=server.CreateObject ("ADODB.Recordset")
mysql="select * from UserOnLine"
myuser.Open mysql,"DSN=ChatRoom",1,3
if not myuser.BOF then
myuser.MoveLast
howmanyusers=myuser.RecordCount
else
howmanyusers=0
end if
myuser.Close
set myuser=nothing
%>
<form name="Login" method="post" action="Enter.asp" align="center" onSubmit="return Check()">
<div align="center"><center><table width="36%" border="0" cellpadding="5" cellspacing="1" bgColor="#5A8BCE" style="HEIGHT: 237px; WIDTH: 306px">
<tr bgcolor="#E6F7FF">
<td width="100%" colspan="2" align="middle" class="style1"><div align="center"><strong><big><big>欢迎进入聊天室</big></big></strong></div></td>
</tr>
<tr>
<td align="middle" bgcolor="#FFFFFF" class="style2"><font color="#800080">请输入你的大名:</font></td>
<td align="middle" bgcolor="#FFFFFF" class="style1"><input name="UID" class="smallInput" maxlength="10" ></td>
</tr>
<tr>
<td align="middle" bgcolor="#FFFFFF" class="style2"><font color="#800080">请输入你的密码:</font></td>
<td align="middle" bgcolor="#FFFFFF" class="style1"><input name="PWD" type="password" class="smallInput" maxlength="10" ></td>
</tr>
<tr>
<td align="middle" bgcolor="#FFFFFF" class="style2"><font
color=#800080>请输入你的昵称:</font></td>
<td align="middle" bgcolor="#FFFFFF" class="style1"><input name="NickName" class="smallInput"></td>
</tr>
<tr>
<td colspan="2" align="middle" bgcolor="#FFFFFF" class="style1"><div align="center">
<input name="submit" type="submit" class="smallInput" value="提交">
<input name="Reset" type="reset" class="smallInput" value="清除">
</div></td>
</tr>
<tr>
<td width="100%" colspan="2" align="middle" bgcolor="#FFFFFF">
<p align="center"><font color="#800080"><font face="楷体_GB2312"><A href="Room.asp">查看当前聊天室</A>
</font> <font face="楷体_GB2312"><A href="NewUser.asp">新用户注册</A></font></font></p> </td></tr>
<td width="100%" colspan="2" align="middle" bgcolor="#FFFFFF"><i><font face="隶书"><font color="#0000ff">
<marquee behavior="alternate" scrolldelay="200" scrollamount="3" style="COLOR: #008000">
</marquee>
</font>
</font>
</i>
<marquee behavior="alternate" scrolldelay="200" scrollamount="3" style="COLOR: #008000">
<span class="style3">目前本聊天室共有
<% =howmanyusers %>
人聊天
</span>
</marquee> </td>
</tr></table>
</center></div>
</form></CENTER>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -