📄 send.asp
字号:
<%@ Language=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">
<title>发送信息</title>
</head>
<script language="jscript">//声明这段代码的脚本语言是jscript
<!--
//控制send.asp页面提交发言信息的words文本框是否为空
function Check()
{
var NotNull
NotNull=true
//如果提交发言信息的words文本框为空,就提示用户输入发言
if (document.send.words.value =="")
{
window.alert("请输入发言!")
NotNull=false
}
else
{
//如果提交发言信息的words文本框不为空,就把原来的发言信息再赋给T1
//如果清除单选框被选中了,就清除words文本框中的信息
document.send .T1.value =document.send .words .value
if (document.send .C2.checked )
{
document.send .words .value =""
}
}
return NotNull
}
//-->
</script>
<body bgcolor="#FF9966">
<%
'如果用户已经登录成功了才显示该页面的内容,这是为了防止未登录的用户请求该页面
if session("login")="ok" then
dim myroom,myname
myroom=session("myroom")
myname=session("myname")
'创建数据库连接对象
set myconn=server.CreateObject ("ADODB.Connection")
dbpath=server.mappath("chatroom.mdb")
myconn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
mysql="select * from UserOnLine where RoomName='" & myroom & "'"
set myrecord=myconn.Execute (mysql)
%>
<form method="POST" action="content.asp" target="ltop" name="send" onSubmit="return Check()">
<!--
name="send"表示表单名称是send；
method="post"表示表单提交方法是post；
action="content.asp"表示表单验证成功后提交到content.asp页面；
target="ltop"表示该页面显示在maim.asp页面的ltop框架窗口中
onSubmit="return Check()"表示表单提交时要通过Check()函数的验证
-->
<div align="left" style="width: 776; height: 127">
<table width="700" height="67" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="86%" height="21">输入发言：
<input type="text" name="words" size="50">
清除
<input name="C2" type="checkbox" value="ON">
</td>
</tr>
<tr>
<td width="78%" height="34">聊天对象：
<select name="D1" size="1" >
<option value="all" selected>全部 </option>
<!--selected表示默认选中该项-->
<%
'如果该房间中有聊天成员就不记录指针移到第一条记录
if not myrecord.bof then
myrecord.MoveFirst
end if
'在列举该房间中所有聊天成员的下拉列表框中列出所有该房间的成员
do while not myrecord.EOF
if myrecord("OnLineUserID")<>myname then
%>
<!--在选项中显示用户昵称,但它的值是用户的帐号-->
<option value="<% =myrecord("OnLineUserID") %>">
<% =myrecord("NickName") %>
</option>
<%
else
mynickname=myrecord("NickName")
end if
myrecord.MoveNext
loop
'关闭数据源连接对象
myconn.close
set myconn=nothing
%>
</select>
字体颜色:
<!--列举字体颜色-->
<select name="D2" size="1">
<option value="blue">兰色</option>
<option selected value="red">红色</option>
<option value="green">绿色</option>
<option value="yellow">黄色</option>
<option value="purple">紫色</option>
<option value="gray">灰色</option>
<option value="silver">银色</option>
<option value="black">黑色</option>
</select>
表情:
<!--列举表情-->
<select size="1" name="facing">
<option value=" ">说</option>
<option value="悄悄地">悄悄</option>
<option value="兴高采烈地">高兴 </option>
<option value="微微笑着">微笑 </option>
<option value="哈!哈!哈!地笑着">大笑叁声 </option>
<option value="笑嘻嘻">嘻笑 </option>
<option value="奸笑着">奸笑 </option>
<option value="毛手毛脚地">毛手毛脚 </option>
<option value="嘟着嘴">嘟嘴 </option>
<option value="快要哭着">快要哭 </option>
<option value="拳打脚踢地">拳打脚踢 </option>
<option value="不怀好意地">不怀好意 </option>
<option value="遗憾地">遗憾 </option>
<option value="瞪大了眼睛,很讶异地">讶异 </option>
<option value="幸福地">幸福 </option>
<option value="翻箱倒柜地">翻箱倒柜 </option>
<option value="悲伤地">悲伤 </option>
<option value="流着口水">流口水 </option>
<option value="正气凛然地">正气凛然 </option>
<option value="生气地">生气 </option>
<option value="大声地">大声 </option>
<option value="傻乎乎地">傻乎乎 </option>
<option value="一付很满足的样子">很满足 </option>
<option value="手足无措地">手足无措 </option>
<option value="很无辜地">无辜 </option>
<option value="喃喃自语地">喃喃自语 </option>
<option value="恶狠狠地瞪着眼">瞪眼 </option>
<option value="快要吐地">想吐 </option>
<option value="感到不舒服地">不舒服 </option>
<option value="无精打采地">无精打采 </option>
<option value="依依不舍地">依依不舍 </option>
<option value="吐着白沫地">白沫 </option>
<option value="掩饰不住狂喜的心情">狂喜 </option>
<option value="笑呵呵一拱手">拱手 </option>
<option value="很有礼貌地作了一揖">作揖 </option>
<option value="咳!慨叹万千">慨叹 </option>
<option value="深深地鞠躬">致歉 </option>
<option value="望着窗外细雨淅淅，不由得双眼朦胧地">伤感 </option>
<option value="含泪要哭">含泪 </option>
<option value="想到伤心处，泪流如注">大哭 </option>
<option value="抱头放声大哭">痛哭 </option>
<option value="好怕怕呀...">害怕 </option>
<option value="感到很是奇特">奇特 </option>
<option value="眯着小眼睛道">眯眼 </option>
<option value="咯咯一笑，很大方的">大方 </option>
<option value="脸上泛起了红晕,">脸红 </option>
<option value="气愤地嚷道">生气 </option>
<option value="提高嗓门">大声 </option>
<option value="运足气一声断喝">断喝 </option>
<option value="一脸的迷茫">迷茫 </option>
<option value="无奈地耸耸肩">耸肩 </option>
<option value="使劲敲敲自己脑门">拍脑 </option>
<option value="看着别人谈笑，无聊的很">无聊 </option>
<option value="顾作沉思状">沉思 </option>
<option value="一付无辜的样子">无辜 </option>
<option value="不舒服地">不适 </option>
</select>
昵称：
<input type="text" name="mynickname" value="<% =mynickname %>" size="15" readonly>
<!--readonly表示该文本框为只读,即不能改写-->
</td>
</tr>
<tr>
<td width="78%" height="34"><table width="179" height="27" align="center" cellspacing="0">
<tr>
<td width="55"><div align="center">
<input type="submit" name="submit" value="提交">
</div></td>
<td width="8"><div align="center"></div></td>
<td width="54"><div align="center">
<input type="reset" name="reset" value="清除">
</div></td>
<td width="8"><div align="center"></div></td>
<td width="62"><div align="center">
<input type="button" name="refresh" value="刷新" language="javascript" onClick="document.URL='send.asp?RoomName=<% =myroom %>&user=<% =myname %>'">
<!--onClick是指单击鼠标事件,它表示单击刷新按钮后要执行的操作,在这里是重新转到send.asp页面,?后的内容是所带的参数-->
</div></td>
</tr>
</table></td>
</tr>
</table>
<!--以下这3个是页面中的隐藏区域标记的代码,它用来向content.asp页面提交信息时提供参数-->
<input type="hidden" value=<% =session("myroom") %> name="roomname">
<input type="hidden" value=<% =myname %> name="userid">
<input type="hidden" name="T1">
</div>
</form>
<%
'这个end if对应开头的if session("login")="ok" then语句
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -