📄 input.asp
字号:
<html>
<head>
<title>发言区</title>
</head>
<body bgcolor="#FFFFCC" topmargin="0" leftmargin="0" onload="document.form1.say.focus();">
<form method="post" action="" name="form1">
发言:
<input type="text" name="say" size=40 >
<input type="submit" value="发言" >
<br>
颜色:
<select name="mycolor" style="font-size:12px">
<% If Request("mycolor")="#000000" Then %>
<option value="#000000" style="color:#000000" selected>黑色</option>
<% Else %>
<option value="#000000" style="color:#000000" >黑色</option>
<% End If %>
<% If Request("mycolor")="#FF0000" Then %>
<option value="#FF0000" style="color:#FF0000" selected>红色</option>
<% Else %>
<option value="#FF0000" style="color:#FF0000" >红色</option>
<% End If %>
<% If Request("mycolor")="#FFFF00" Then %>
<option value="#FFFF00" style="color:#FFFF00" selected>黄色</option>
<% Else %>
<option value="#FFFF00" style="color:#FFFF00" >黄色</option>
<% End If %>
<% If Request("mycolor")="#3333FF" Then %>
<option value="#3333FF" style="color:#3333FF" selected>蓝色</option>
<% Else %>
<option value="#3333FF" style="color:#3333FF" >蓝色</option>
<% End If %>
</select>
表情:
<select name="myemote" style="font-size:12px">
<option value="无" selected>无
<option value="回眸一笑">回眸一笑
<option value="幸灾乐祸">幸灾乐祸
<option value="号啕大哭">号啕大哭
<option value="拳打脚踢">拳打脚踢
<option value="气急败坏">气急败坏
<option value="温柔细语">温柔细语
<option value="得意非凡">得意非凡
<option value="大惊失色">大惊失色
</select>
     
<a href="exit.asp" target="_top">离开聊天室</a>
</form>
<%
IF Request("say")<>"" Then
'获取发言的有关信息
Dim say,mycolor,myemote,user_name '声明变量待用
user_name=Session("user_name") '返回用户昵称
say=Server.HtmlEncode(Request("say")) '返回发言，并用HtmlEncode编码
mycolor=Request("mycolor") '返回本次发言的颜色
myemote=Request("myemote") '返回本次发言表情
If myemote="无" Then
myemote=""
End If
'下面三句将得到本次发言的字符串
Dim sayStr
sayStr="<small>" & user_name & Time & myemote & "说：</small>"
sayStr=sayStr & "<font color='" & mycolor & "'>" & say & "</font>"
'下面几句将本次发言信息保存到Application中
Application.Lock
Application("show")= sayStr & "<br>" & Application("show")
If Len(Application("show"))>10000 Then '如果发言总长度超过10000个字符，则截断为10000
Application("show")=Mid(Application("show"),1,10000)
End If
Application.Unlock
End If
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -