📄 callyouok.asp

📁 基于ASP开发的聊天室源码
💻 ASP
字号:
<%Response.Expires=0%>
<!--#INCLUDE FILE="function.asp" -->
<script language="jscript" runat="server">
function w(v)
{
v=escape(v)
return v
}
</script>
<script language="vbscript" runat="server">
if not IsArray(Session("info")) then Response.Redirect "err1.asp?kind=01"
info=Session("info")
if InStr(Application("maninfo"),"," & info(0) & ",")<>0 then Response.Redirect "manyou.asp"
If DateDiff("s",info(9),now) < 3 Then
  info(9)=now
  Session("info")=info
  Response.Write "<" & "script language='javascript'>alert('服务器忙！请3秒钟后重新进行操作！');<" & "/script>"
  Response.End
End If
info(9)=now
Session("info")=info

towho=Trim(Request.Form("towho"))
towho=Replace(towho,",","")
towho=Replace(towho,";","")
towho=Replace(towho," ","")
towho=Replace(towho,"'","")
towho=Replace(towho,chr(34),"")
towho=Server.HTMLEncode(towho)
callword=Request.Form("callword")
if towho="" then Response.Redirect "err.asp?kind=95"
if towho=info(0) then Response.Redirect "err.asp?kind=38"
if callword="" then Response.Redirect "err.asp?kind=39"
callword=server.HTMLEncode(callword)
callword=w(callword)
if len(callword)>300 then Response.Redirect "err2.asp?kind=01"
if InStr(Application("zzbird_name"),"," & towho & ",")=0 then Response.Redirect "err.asp?kind=30"
roominfo=Application("roominfo")
for j=0 to ubound(roominfo,1)
if InStr(Application("zzbird_name_" & roominfo(j,0)),"," & towho & ",")<>0 then
towhere=roominfo(j,1)
exit for
end if
next
if towhere="" then Response.Redirect "err.asp?kind=30"
 w1=info(0)
 w2=towho & "|" & CStr(time) & "|" & info(6)
 w3="callyou"
 w4=callword
 w5=towhere
saveword w1,w2,w3,w4,w5
</script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>呼叫已发送</title>
<style>
<!--
p            { font-size: 10pt }
body         { font-size: 10pt }
-->
</style>
</head>
<body onload="min()" bgcolor="buttonface" style="border: 3px double buttonface" oncontextmenu=self.event.returnValue=false>
<fieldset style="padding: 2">
  <legend>操作成功</legend>
<p style="font-size:10.5pt"> &nbsp;&nbsp;&nbsp;&nbsp;你已经成功地将短消息发送给正在“<font color="#D90000"><%=towhere%></font>”的聊友“<font color="#D90000"><%=towho%></font>”。本窗口1秒后自动关闭。</p>
<p align="center">
<input type="button" value="关闭窗口" id="B3" name="B3" onclick="JavaScript:window.close();" style="border: 1px double #000000"></p>
</fieldset>
<SCRIPT LANGUAGE="JAVASCRIPT">B3.focus();window.close();</SCRIPT>
<object id="HHCtrl" type="application/x-oleobject" classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11"> 
<param name="Command" value="Minimize"> 
</object> 
<script> 
<!-- 
function min(){ 
this.focus();HHCtrl.Click();} 
//--> 
        </script>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -