📄 f2.asp
字号:
<!--#Include File="Config.asp"-->
<!--#Include File="function.asp"-->
<html>
<head>
<meta http-equiv='content-type' content='text/html; charset=gb2312'>
<title>发言区</title>
<link rel="stylesheet" href="all.css">
</head>
<body background="images/bg.gif">
<form method='post' action='f2.asp' name="form1">
<br><%=Session("UserName")%>
对
<select name='towho' style='font-size:12px'>
<option value='大家' >大家</option>
<%
Dim arrayUserName,I
arrayUserName=Application(Session("chatroom") & "_arrayUserName")
For I=1 To Ubound(arrayUserName)
'这里要保留表单状态
If Request.Form("towho")=arrayUserName(I,1) Then
Response.Write "<option value='" & arrayUserName(I,1) & "' Selected>" & arrayUserName(I,1) & "</p>"
Else
Response.Write "<option value='" & arrayUserName(I,1) & "'>" & arrayUserName(I,1) & "</p>"
End If
Next
%>
</select>
说:
<input type="text" name='says' size="50" maxlength="100" >
<input type="submit" value='发言' >
私聊<input type="checkbox" name="private" value="T" <%If Request.Form("private")="T" Then Response.Write "checked" %> >
<p>
姓名颜色:
<select name='namecolor' style='font-size:12px'>
<option style="background-color: #008888; color:#ffffff" value="0" <%If Request.Form("namecolor")="0" Then Response.Write "selected" %> >默认 </option>
<option style="background-color: #000000; color:#ffffff" value="1" <%If Request.Form("namecolor")="1" Then Response.Write "selected" %> >黑色 </option>
<option style="background-color: #0088FF; color:#ffffff" value="2" <%If Request.Form("namecolor")="2" Then Response.Write "selected" %> >海蓝 </option>
<option style="background-color: #0000FF; color:#ffffff" value="3" <%If Request.Form("namecolor")="3" Then Response.Write "selected" %> >亮蓝 </option>
<option style="background-color: #000088; color:#ffffff" value="4" <%If Request.Form("namecolor")="4" Then Response.Write "selected" %> >深蓝 </option>
<option style="background-color: #888800; color:#ffffff" value="5" <%If Request.Form("namecolor")="5" Then Response.Write "selected" %> >黄绿 </option>
<option style="background-color: #008888; color:#ffffff" value="6" <%If Request.Form("namecolor")="6" Then Response.Write "selected" %> >蓝绿 </option>
<option style="background-color: #008800; color:#ffffff" value="7" <%If Request.Form("namecolor")="7" Then Response.Write "selected" %> >橄榄 </option>
<option style="background-color: #8888FF; color:#ffffff" value="8" <%If Request.Form("namecolor")="8" Then Response.Write "selected" %> >淡紫 </option>
<option style="background-color: #AA00CC; color:#ffffff" value="9" <%If Request.Form("namecolor")="9" Then Response.Write "selected" %> >紫色 </option>
<option style="background-color: #8800FF; color:#ffffff" value="10" <%If Request.Form("namecolor")="10" Then Response.Write "selected" %> >蓝紫 </option>
</select>
说话颜色:
<select name='sayscolor' style='font-size:12px'>
<option style="background-color: #660099; color:#ffffff" value="0" <%If Request.Form("sayscolor")="0" Then Response.Write "selected" %>>默认 </option>
<option style="background-color: #000000; color:#ffffff" value="1" <%If Request.Form("sayscolor")="1" Then Response.Write "selected" %>>黑色 </option>
<option style="background-color: #0088FF; color:#ffffff" value="2" <%If Request.Form("sayscolor")="2" Then Response.Write "selected" %>>海蓝 </option>
<option style="background-color: #0000FF; color:#ffffff" value="3" <%If Request.Form("sayscolor")="3" Then Response.Write "selected" %>>亮蓝 </option>
<option style="background-color: #000088; color:#ffffff" value="4" <%If Request.Form("sayscolor")="4" Then Response.Write "selected" %>>深蓝 </option>
<option style="background-color: #888800; color:#ffffff" value="5" <%If Request.Form("sayscolor")="5" Then Response.Write "selected" %>>黄绿 </option>
<option style="background-color: #008888; color:#ffffff" value="6" <%If Request.Form("sayscolor")="6" Then Response.Write "selected" %>>蓝绿 </option>
<option style="background-color: #008800; color:#ffffff" value="7" <%If Request.Form("sayscolor")="7" Then Response.Write "selected" %>>橄榄 </option>
<option style="background-color: #8888FF; color:#ffffff" value="8" <%If Request.Form("sayscolor")="8" Then Response.Write "selected" %>>淡紫 </option>
<option style="background-color: #AA00CC; color:#ffffff" value="9" <%If Request.Form("sayscolor")="9" Then Response.Write "selected" %>>紫色 </option>
<option style="background-color: #8800FF; color:#ffffff" value="10" <%If Request.Form("sayscolor")="10" Then Response.Write "selected" %>>蓝紫 </option>
</select>
<input type="hidden" name="toone" value="ON">
表情:
<select name='emote' style='font-size:12px'>
<option value="0" selected>无 </option>
<option value="1">微笑 </option>
<option value="2">温柔 </option>
<option value="3">脸红 </option>
<option value="4">得意 </option>
<option value="5">大笑 </option>
<option value="6">神秘 </option>
<option value="7">战兢 </option>
<option value="8">毛手 </option>
<option value="9">嘟嘴 </option>
<option value="10">慢条 </option>
</select>
</form>
<%
If Request.Form("says")<>"" Then
'下面先获取有关数据，这里调用了函数
sayscolor=GetSaysColor(Request.Form("sayscolor"))
namecolor=GetNameColor(Request.Form("namecolor"))
emote=GetEmote(Request.Form("emote"))
If Request.form("towho")="大家" Then
towho=""
Else
towho="对" & Request.form("towho")
end if
says=Request.Form("says")
'因为【】〗有特殊用处，所以如果客户恶意输入了，要将其删除。
says=replace(says,"【","")
says=replace(says,"】","")
says=replace(says,"〗","")
'下面三句将得到本次发言的字符串
Dim sayStr
sayStr=Time() & "<font color='" & namecolor & "'>" & session("username") & "</font>" & emote & towho & "说："
sayStr=sayStr & "<font color='" & sayscolor & "'>" & says & "</font>"
'下面判断，如果是私聊，就需要在前后添加内容
If Request.Form("private")="T" And Request.Form("toWho")<>"大家" Then
sayStr="【" & towho & "】" & sayStr & "〗"
End If
'下面几句将本次发言信息保存到Application中
Application.Lock '先锁定
Application(session("chatroom"))=Application(session("chatroom")) & "<br>" & sayStr
'如果发言信息总长度超过2000，则截断
If Len(Application(session("chatroom")))>2000 Then
Application(session("chatroom"))=Right(Application(session("chatroom")),10000)
End If
Application.Unlock '解除锁定
End If
'下面定位到聊天框
Response.write "<script language='Javascript'> parent.input.document.form1.says.focus();</script>"
Response.write "<script language='Javascript'> parent.main.location.href='f1.asp';</script>"
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -