📄 index.asp

📁 一个网站聊天室的模型
💻 ASP
字号:
<%@ Language=VBScript CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!--
@和Language之间必须要有一个空格；
Language=VBScript用来说明页面使用的脚本语言是VBScript；
CODEPAGE="936"是用来设置页面的代码页（字符编码）
-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<!--声明HTML语言的版本信息-->
<head>
<!--头标记的开始标记-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--说明Web页的格式及编码方式。http-equiv="Content-Type"的实际取值由content的值确定。charset=gb2312表示字符集用简体中文。-->
<title>登录界面</title>
<!--标题标记，用来定义文档的标题-->
<!--下面这段代码是用来限制用户名、密码和昵称输入文本框的内容不能为空的-->
<script language="jscript">//声明这段代码的脚本语言是jscript
<!--
	function Check()//定义函数
	{ 
	//定义变量，作为判断用户名或密码或昵称输入文本框的内容是否为空的标志
		var NotNull
		NotNull=true//为变量赋初值
            //如果用户名输入文本框的内容为空
			if (document.Login.UID.value=="")
			//Document是对象，是指在浏览网页时所看到的页面文档
			//login是表单的名称
			//UID是用户名输入文本框的名称
			//value是用户名输入文本框的内容
			{
			//弹出警告对话框提示用户输入用户名
				window.alert("请输入用户名!")
				//Window是对象,就是浏览器窗口
				//alert是函数，它用来弹出一个警告信息框
				NotNull=false//给标志变量赋值,说明有一个输入文本框为空
			}
            //如果密码输入文本框的内容为空
			if (document.Login.PWD.value=="") 
			//PWD是密码输入文本框的名称
			{
			//弹出警告对话框提示用户输入密码
				window.alert("请输入密码!")
				//给标志变量赋值,说明有一个输入文本框为空
				NotNull=false
			}
            //如果昵称输入文本框的内容为空
			if (document.Login.NickName.value=="")
			//NickName是昵称输入文本框的名称
			{
				window.alert("请输入昵称!")
				//给标志变量赋值,说明有一个输入文本框为空
				NotNull=false
			}
			//将标志变量作为函数值返回,供函数判断是否有输入文本框为空
			return NotNull
	}
//-->
</script>
<!--CSS样式表-->
<style type="text/css">
<!--
	a:visited,a:link  {  text-decoration: none; color: #003399}
	a:hover {  text-decoration: none; color: #3333FF}
	a.linkwhite:link,a.linkwhite:visited { text-decoration:none; color:white}
	a.linkwhite:hover { text-decoration: underline; color:white}
	a.linkblack:link,a.linkblack:visited { text-decoration:none; color:black}
	a.linkblack:hover { text-decoration: underline; color:black}
	input { font-family: "宋体"; font-size: 9pt}
	td {  font-family: "宋体"; font-size: 9pt; color: #000000}
	.en {  font-family:"Verdana", "Arial"; font-size: 9pt}
	.white {  color: #FFFFFF}
	.line {  line-height: 20px}
	.title { font-size: 14px }
.style1 {
	color: #FF6633;
	font-size: 16px;
	font-family: "楷体_GB2312";
	font-weight: bold;
}
.style2 {font-size: 12pt; font-family: "方正姚体"; color: #6666FF; }
.style3 {color: #FF6633; font-size: 12px; font-family: "楷体_GB2312"; font-weight: bold; }
-->
</style>
</head>
<!--头标记的结尾标记-->
<body>
<!--体标记的开始标记-->
<%
'统计在线用户的人数,实现页面中显示的“当前聊天室共有多少人在聊天”的功能

'定义变量,dim用来定义普通变量
'mysql保存SQL查询字符串
'Totalusers保存当前聊天室的人数
	dim mysql,Totalusers
	
	'使用server对象的createobject方法创建数据源连接对象
	'set conn=server.CreateObject ("ADODB.Connection")
	'使用server对象的mappath方法取得数据库的存放路径
	'dbpath=server.mappath("chatroom.mdb")
	'建立到数据源的物理连接,只有使用了Connection对象的Open方法后，到数据源的连接才算真正地建立
	'这里是使用字符串的方法创建到数据源的连接,它相对于使用ODBC方法的好处是可以不受相对路径的限制
	'conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
	
	'创建记录集对象
	set myuser=server.CreateObject ("ADODB.Recordset")
	'从在线用户表中查找所有在线用户,统计出在线用户的人数,如果没有在线用户就返回0
	mysql="select * from UserOnLine" 'SQL查询语句
	'打开记录集对象
	myuser.Open mysql,conn,1,3
	'如果记录集不为空,即表示有在线用户
	if not myuser.BOF then
	'将记录指针移到最后一条记录
		myuser.MoveLast 
		'统计出记录集中的记录数
		Totalusers=myuser.RecordCount 
	else
	'如果记录集为空,就表示没有用户在线
		Totalusers=0
	end if
	'关闭记录集对象,但在执行set myuser=nothing语句之前该记录集仍然存在
	myuser.Close 
	'彻底关闭记录集对象
	set myuser=nothing
	'关闭数据库连接对象,但在执行set myconn=nothing语句之前该记录集仍然存在
	conn.close
	'彻底关闭数据库连接对象	
	set conn=nothing
%>
<!--从这里直到最后body结束标记之前是页面显示效果能看到的部分-->
<div align="center">
  <!--区隔标记,设定摆放位置，在此设置居中-->
  <p>&nbsp;</p>
  <p>&nbsp;</p>
  <!--段落标记,留出一空白行；&nbsp;是转义符，表示空格-->
  <p>&nbsp;</p>
  <p><big class="style1"><big>欢迎进入聊天室</big></big></p>
  <!--class="style1"表示应用CSS样式表中的style1样式-->
  <!--<big>标记使浏览器将当前显示的文本字体增大一号-->
  <hr>
  <!--水平线标记-->
</div>
<!--<form>是表单标记-->
<form name="Login" method="post" action="enter.asp" onSubmit="return Check()">
  <!--
name="Login"表示表单名称是login；
method="post"表示表单提交方法是post；
action="enter.asp"表示表单验证成功后提交到enter.asp页面；
onSubmit="return Check()"表示表单提交时要通过Check()函数验证
-->
  <div align="center">
    <center>
      <!--居中标记-->
      <!--表格标记-->
      <table width="257" cellspacing="2" bgcolor="#FAEBD7">
        <tr>
          <!--表格行开始标记-->
          <!--表格列标记-->
          <td height="16" colspan="2"><div align="center" class="style1">登
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -