📄 hand.asp
字号:
<% option explicit %>
<!--#include File="function.asp"-->
<%
Dim SayStr,i,NewName,StrMsg,UserName,PicURL
If Session("NickName")="" Then Response.End
PicURL=Left(Session("NickName"),2)
UserName=Replace(Session("NickName"),PicURL,"")
PicURL=PicURL&".gif"
Session("OldTime")=Now()
If Request("Says")<>"" Then
If Left(Request("Says"),2)="//" Then
Select Case Replace(Request("Says"),"//","")
Case "bye"
SayStr = "<font color=red>%m留恋地说道：“世上没有不散的宴席，我先走一步了，大家保重”</font>"
Case "faint"
SayStr = "<font color=red>%m扑通一声晕倒在%t面前</font>"
case "hi"
SayStr="<font color=red>%m热情地向%t打招呼</font>。"
case "look"
SayStr="<font color=red>%m直勾勾地看着%t，只看得%t心慌意乱</font>"
case "shy"
SayStr="<font color=red>%m低下头，嫣然一笑，露出颊上浅浅的梨涡，害羞地脸红了起来！</font>"
case "agree"
SayStr="<font color=red>%m热泪盈眶地对%t说：“好，好，好！”</font>"
case "eat"
SayStr="<font color=red>%m嘟哝道：“今儿个不知该到谁家蹭饭去了......”</font>"
case "welcome"
SayStr="<font color=red>%m向着%t大叫：“欢迎，欢迎，热烈欢迎！！”</font>"
case "sorry"
SayStr="<font color=red>%m结结巴巴地跟%t道歉：“实在是对不住，我下次再也不敢了。”</font>"
case "help"
SayStr="<font color=red>%m见%t不怀好意，连忙抓起电话：114，119，120，122，96315......心想：“警察叔叔怎么还不来呀？”</font>"
case "en"
SayStr="<font color=red>%m听话地对%t说：“恩”</font>"
case "admire"
SayStr="<font color=red>%m笑呵呵地对%t抱拳打揖：“久仰阁下大名，如雷灌耳，今日相见，三生有幸！”</font>"
Case Else
SayStr=""
End Select
SayStr=Replace(SayStr,"%m","<img width=16 height=16 src=images/pic/"&PicURL&">"&UserName)
SayStr=Replace(SayStr,"%t",Request("towho"))
If SayStr<>"" Then
SayStr="<div style='font-size:12px'><b>[动作]</b>"&SayStr&"</div>"
End If
Else
SayStr="<img width=16 height=16 src=images/pic/"&PicURL&"><a href=javascript:parent.Input.selectwho('"&UserName&"')>"
SayStr=SayStr&"<font color="&Request("nicknamecolor")&">"&UserName&"</font></a>"
SayStr=SayStr&"<font color="&Request("sayscolor")&">"&Request("addsays")&Request("towho")&"说："
SayStr=SayStr&Server.HTMLEncode(Request("Says"))&"</font>"
If Session("IsOnlyToOne")=1 and Request("towho")<>"大家" Then SayStr="$OnlyTo$"&Request("towho")&"$"&SayStr
End IF
Application.Lock()
Application("ID")=Application("ID")+1
i=YuShu(Application("ID"))
Application(i)=SayStr
Application.UnLock()
End If
%>
<html>
<head><title>被动刷新页面</title>
</head><body>
<script language=javascript>
<!--
<%For i = 1 to Application("ID")-Session("ID")
StrMsg=Application(YuShu((Session("ID")+i)))
If InStr(StrMsg,"$OnlyTo$"&Request("towho")&"$")<>0 Then
StrMsg=Replace(StrMsg,"$OnlyTo$"&Request("towho")&"$","<b>[密谈]</b>")
End If%>
parent.Msg.document.write("<div style='font-size:12px'><%=StrMsg%></div>");
<%Next
session("ID")=Application("ID")
If Request("IsAuto")="1" then
If Session("IsAuto")=1 Then
Session("IsAuto")=0
%>
parent.Msg.document.write ("<%=Str_SetAutoOFF%>");
<%else
Session("IsAuto")=1
%>
parent.Msg.document.write ("<%=Str_SetAutoON%>");
<%End If
End If
If Request("IsOnlyToOne")="1" then
If Session("IsOnlyToOne")=1 Then
Session("IsOnlyToOne")=0
%>
parent.Msg.document.write ("<%=Str_SetOnlyOFF%>");
<%else
Session("IsOnlyToOne")=1
%>
parent.Msg.document.write ("<%=Str_SetOnlyON%>");
<%End If
End If
If Session("IsAuto")<>0 Then%>
parent.Msg.window.scrollTo( 0, 10000);
<%End If%>
//-->
</script>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -