<%
response.Charset="gb2312"
Response.Expires = 0
action = Request("action")
id = Request("id")
If Len(id) = 0 Then id = "default"
If action = "clear" Then
Application(id) = ""
End If
sn=request("sn")
msg = Request("msg")
c = Request("c")
if c="" then c="00FFFF"
u=request("u")
n=request("n")
'if n<>Request.Cookies("XH_Myname") then
'Response.Write "ERROR"
'Response.End
'end if
Function FpHtmlEnCode(fString)
fString = Replace(fString,"""","")
fString = Replace(fString,"  "," ")
fString = Replace(fString, ">", "&gt;")
fString = Replace(fString, "<", "&lt;")
fString = Replace(fString, "我操", "＊＊")
fString = Replace(fString, "我草", "＊＊")
fString = Replace(fString, "去死", "＊＊")
fString = Replace(fString, "我靠", "＊＊")
fString = Replace(fString, "靠你", "＊＊")
fString = Replace(fString, "你妈", "＊＊")
fString = Replace(fString, "他妈", "＊＊")
fString = Replace(fString, "垃圾", "＊＊")
fString = Replace(fString, "共产党", "＊＊＊")
fString = Replace(fString, "法伦功", "＊＊＊")
fString = Replace(fString, "国民党", "＊＊＊")
fString = Replace(fString, "管理员", "＊＊＊")
fString = Replace(fString, "系统信息", "＊＊＊＊")
fString = Replace(fString, "|", "｜")
fString = Replace(fString, "$", "￥")
fString = Replace(fString, "#", "＃")
fString = Replace(fString, "_", "-")
fString = Replace(fString, "温馨提示", "＊＊＊＊")
fString = Replace(fString, "/face:", "")
fString = Replace(fString, "/mf:", "")
FpHtmlEnCode=fString
End Function
msg=FpHtmlEnCode(msg)
msglist = Application(id)
if msglist="" then msglist="|"
If action = "send" and msg<>"" and left(msg,1)<>" " then
Application.Lock
if sn="" then
if left(request("msg"),6)="/face:" and IsNumeric(msg) then
listHtml="$"+ n +"_face_F2B8FC_"+ msg +"_"&int(timer())&"_"&u
elseif  left(request("msg"),4)="/mf:" and IsNumeric(msg) then
listHtml="$"+ n +"_mf_FFFFFF_"+ msg +"_"&int(timer())&"_"&u
else
listHtml="$"+ n +"_00FFFF_"+ c +"_"+ msg +"_"&int(timer())&"_"&u
end if
else
listHtml="$"+ sn + "_00FF00_"+ c +"_"+ msg +"_"&int(timer())&"_"&u
end if
msglist=msglist + listHtml
Application(id) = msglist
Application.Unlock
end if
msglist=right(msglist,550)
if left(msglist,1)<>"|" then msglist="|" + msglist
response.write msglist +"|"&int(timer())
%>