sendmessage.asp

程序功能: /// 多人即时聊天 新信息声音提示 用户自主选择表情和颜色 管理员删除信息/踢出用户 高强度管理密码

<%@ Language=VBScript %>
<%response.charset="utf-8"%>
<!--#include file="inc/conn.asp"-->
<%
lastM=clng(session("old"))
nowM=clng(timer)
if nowM-lastM>=3 then
	session("old")=nowM
	if trim(request.form("rnd"))="" then
    		response.write "非法提交!"
    		response.end
	end if
	if session("user")<>"" then
		set rs=server.createobject("adodb.recordset")
		rs.open "select * from [Msg]",conn,1,3
		rs.addnew()
		rs("FromUser")=session("user")
		rs("ToUser")=request.form("towho")
		rs("MsgColor")=request.form("fcolor")
		rs("MsgFace")=request.form("fface")
		rs("MsgContent")=request.form("tomsg")
		rs("MsgDate")=now()
		rs("MsgIP")=request.servervariables("REMOTE_ADDR")
		rs.update()
		rs.close
		set rs=nothing
		conn.execute "update [online] set [LastTime]=" & cint(timer/60) & "  where [User]='" & session("user") & "'"
	else
		response.write "err"
	end if
else
	response.write "fast"
end if
conn.close
set conn=nothing
%>