📄 pmscript.asp
字号:
<!--#include file="config.asp" -->
<%
response.write "<html><head><title></title>" & vbCrLf
response.write "<link href='styles.css' rel='stylesheet' type='text/css'>"
'获取聊天双方的用户名称
varUserID = session.contents("UserID")
varUser2ID = request("sltUser2ID")
varMessage = request("txtMessage")
'将表情用语替换成相应的图标
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, "'", "''")
'去掉script的标志
varMessage = Replace(varMessage, "<!--", "")
varMessage = Replace(varMessage, "<script", "")
'get the date/time
varDate = now()
'write the new form
%>
</head>
<BODY class="topbar" onload="document.frmNatterChatPM.txtMessage.focus()" topmargin="3">
<CENTER>
<FORM ACTION="pmscript.asp" METHOD="POST" NAME="frmNatterChatPM">
输入信息:
<input type="text" name="txtMessage" class="input" size="35"><br>
<input type="hidden" name="sltUser2ID" value="<%=varUser2ID%>">
<input type="submit" value="发送" name="submit" class="inputbtn">
</form>
<%
if NOT varMessage = "" then
varMessage = "<b><font color=red>" & session.contents("Username") & ":</b></font> " & varMessage
'将聊天信息保存到数据库
call writeDB("INSERT INTO PM(UserID, User2ID, Message, New) VALUES('" & varUserID & "', '" & varUser2ID & "', '" & varMessage & "', 0);")
'更改用户的最后发言时间
call writeDB("UPDATE USERS SET LastPost = '" & varDate & "' WHERE UserID = " & varUserID & ";")
end if
response.write "</font></body></html>" & vbCrLf
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -