📄 nchat10.asp
字号:
<!--#include file="config.asp" -->
<html><head><title></title>
<link href='styles.css' rel='stylesheet' type='text/css'>
<%
'get the form contents and do the relevant search and replaces
varUsername = session.contents("Username")
varUserID = session.contents("UserID")
varLogoff = request.form("btnLogoff")
varStyle = request.form("sltStyle")
varRoomID = session.contents("RoomID")
if varStyle = "" then varStyle = "None"
varColour = request.form("sltColour")
if varColour = "" then varColour = "#0066CC"
varMessage = request("txtMessage")
varSwear = request("chkSwear")
varDate = now()
'need the date as hh:mm
varTime = now()'FormatDateTime(varDate, 4)
'将用户的发言替换成默认的字符，以下是命令替换
varMessage = Replace(varMessage, "[1]", "a/s/l?")
varMessage = Replace(varMessage, "[all]", "<i><font color=red>Says to everyone </font></i>")
varMessage = Replace(varMessage, "[2]", "<i><font color=red>Says to </font></i>")
varMessage = Replace(varMessage, "[sol]", "<i><font color=red>Shouts Out Loud </font></i>")
varMessage = Replace(varMessage, "[fl]", "<i><font color=red>Flirts With The Room </font></i>")
varMessage = Replace(varMessage, "[hug]", "<i><font color=red>Hugs Everyone </font></i>")
varMessage = Replace(varMessage, "[mail]", "<i><font color=red>Just Checkin' My Email </font></i>")
varMessage = Replace(varMessage, "[brb]", "<i><font color=red>Be Right Back </font></i>")
'表情替换
varMessage = Replace(varMessage, ":)", "<img src='faces/smile.gif'>")
varMessage = Replace(varMessage, ":(", "<img src='faces/sad.gif'>")
varMessage = Replace(varMessage, ":P", "<img src='faces/tongue.gif'>")
varMessage = Replace(varMessage, ";)", "<img src='faces/wink.gif'>")
varMessage = Replace(varMessage, ":D", "<img src='faces/biggrin.gif'>")
varMessage = Replace(varMessage, ":'(", "<img src='faces/cry.gif'>")
varMessage = Replace(varMessage, ":O", "<img src='faces/omg.gif'>")
varMessage = Replace(varMessage, ":@", "<img src='faces/angry.gif'>")
varMessage = Replace(varMessage, "(L)", "<img src='faces/heart.gif'>")
varMessage = Replace(varMessage, "(U)", "<img src='faces/broken_heart.gif'>")
varMessage = Replace(varMessage, "'", "''")
'Censor Addon
if varSwear = "on" then
session.contents("SwearFilter") = "on"
varSwearStatus = "checked"
else
session.contents("SwearFilter") = "off"
varSwearStatus = ""
end if
'限制Script的执行
varMessage = Replace(varMessage, "<!--", "")
varMessage = Replace(varMessage, "<script", "")
'为私下聊天窗口创建一个随机的名称
varPMRand = int(rnd*1000)+1
'显示聊天表单
if NOT varLogoff = 1 then
%>
</head>
<BODY class="topbar" onload="document.frmNatterChat.txtMessage.focus()" topmargin="3">
<CENTER><TABLE CELLSPACING=0 CELLPADDING=0>
<TR><TD align="left">
<FORM ACTION="nchat10.asp" METHOD="POST" NAME="frmNatterChat">
<div align="right"><strong>聊天信息:</strong>
<input type="text" name="txtMessage" class="input" size="55" style="color: <%=varColour%>">
<input type="submit" value="发送" name="submit" class="inputbtn">
<br>
<b>字体:</b>
<select name="sltStyle" class="inputbtn">
<option selected value="<%=varStyle%>">as
before</option>
<option value="None">normal</option>
<option value="b">bold</option>
<option value="i">italics</option>
<option value="u">underlined</option>
</select>
<b>颜色:</b>
<select name="sltColour" class="inputbtn" onChange="txtMessage.style.color = this.value; return true;" $disb>
<option selected value="<%=varColour%>" style="color: <%=varColour%>">as
before</option>
<option value="#0066CC" style="color: #0066CC">default</option>
<option value="#0000FF" style="color: #0000FF">blue</option>
<option value="#FFFF00" style="color: #FFFF00">yellow</option>
<option value="#008000" style="color: #008000">green</option>
<option value="#FF8000" style="color: #FF8000">orange</option>
<option value="#800080" style="color: #800080">purple</option>
<option value="#FF80C0" style="color: #FF80C0">pink</option>
<option value="#C0C0C0" style="color: #C0C0C0">grey</option>
</select>
<b>刷新:</b>
<input type="checkbox" name="chkSwear" <%=varSwearStatus%> onClick="document.frmNatterChat.submit.click();">
<input type="button" name="btnPM" value="私聊" onClick="window.open('pm.asp', 'pm<%=varPMRand%>', 'width=250, height=150, scroll=no, toolbar=no')" class="inputbtn"></p>
</div>
</form>
</TD><TD valign=top style="padding: 2px">
<FORM ACTION="nchat10.asp" METHOD="POST" NAME="frmLogoff">
<input name="btnLogoff" type=hidden value="1">
<input type="submit" name="off" value="退出" class="inputbtn">
</form>
</TD></TR>
</TABLE>
<%
end if
if NOT varMessage = "" OR varLogoff = 1 then
if varLogoff = 1 then
varColour = "red"
varStyle = "i"
varMessage = "Has Logged Off"
elseIf varMessage = "Has Logged On" AND session.contents("Status") = "LoggingIn" then
varColour = "red"
varStyle = "i"
varMessage = "Has Logged On"
session.contents("Status") = "LoggedIn"
end if
'将用户的聊天信息存入数据库中
call writeDB("INSERT INTO MESSAGES(UserID, RoomID, Message, Style, Colour, [Time]) VALUES(" & varUserID & ", '" & varRoomID & "', '" & varMessage & "', '" & varStyle & "', '" & varColour & "', '" & varTime & "');")
'设置用户最后发言时间，用于计算用户的闲置时间.
call writeDB("UPDATE USERS SET LastPost = '" & varDate & "' WHERE UserID = " & varUserID & ";")
end if
response.write "</font></body></html>" & vbCrLf
'如果用户退出登录
if varLogoff = 1 then
session.Abandon '释放Session变量
'重写该用户的的状态
call writeDB("UPDATE USERS SET RoomID=0, [Time]='" & varDate & "', Active=0 WHERE Username = '" & varUsername & "';")
'回到登录页面
response.write "<script language='Javascript'>parent.location = 'home.asp'</script>"
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -