📄 send.asp
字号:
<%@ Language=VBScript%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
<title>发送信息</title>
</head>
<script language="jscript">
<!--
function Check()
{
var NotNull
NotNull=true
if (document.send.words.value =="")
{
window.alert("请输入发言!")
NotNull=false
}
else
{
document.send .T1.value =document.send .words .value
if (document.send .C2.checked )
{
document.send .words .value =""
}
}
return NotNull
}
//-->
</script>
<%
'if request.servervariables("REQUEST_METHOD")="POST" then
dim myroom,myname
myroom=session("myroom")'Request.QueryString ("roomname")
myname=session("myname")'Request.QueryString ("user")
set myconn=server.CreateObject ("ADODB.Connection")
myconn.ConnectionString ="DSN=ChatRoom"
myconn.Open
mysql0="update UserOnLine set RoomName='" & myroom & "' where UserID='" & myname & "'"
mysql="select * from UserOnLine where RoomName='" & myroom & "'"
myconn.Execute (mysql0)
set myrecord=myconn.Execute (mysql)
'end if
%>
<form method="POST" action="content.asp" target="ltop" name="send" onSubmit="return Check()">
<div align="left" style="width: 776; height: 127">
<table border="0" width="101%" height="67" cellspacing="0" cellpadding="0">
<tr>
<td width="86%" height="21">输入发言：<input type="text" name="words" size="49">私聊：<input type="checkbox" name="C1" value="ON">
清除<input type="checkbox" name="C2" value="ON">
</td>
</tr>
<tr>
<td width="78%" height="34">聊天对象：
<select name="D1" size="1" >
<option value="all">全部
</option>
<%
myrecord.MoveFirst
do while not myrecord.EOF
if myrecord("UserID")<>myname then
%>
<option value="<% =myrecord("UserID") %>,<% =myrecord("NickName") %>"><% =myrecord("NickName") %>
</option>
<%
else
mynickname=myrecord("NickName")
end if
myrecord.MoveNext
loop
set myconn=nothing
%>
</select>
字体颜色:
<select name="D2" size="1">
<option value="blue">蓝色</option>
<option value="red">红色</option>
<option value="green">绿色</option>
<option value="yellow">黄色</option>
<option value="purple">紫色</option>
<option value="gray">灰色</option>
<option value="silver">银色</option>
<option selected 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=true>
</td>
</tr>
<tr>
<td width="78%" height="34">
<input type="reset" value="取消" name="reset" ><input type="submit" value="提交" name="submit" >
<input type="button" name="refresh" value="刷新" language="javascript" onclick="document.URL='send.asp?roomname=<% =myroom %>&user=<% =myname %>'">
</td>
</tr>
</table>
<input type="hidden" value=<% =session("myroom") %> name="roomname">
<input type="hidden" value=<% =myname %> name="userid">
<input type="hidden" name="T1">
</div>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -