⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 bbssendbegin.asp

📁 来自中国老乡录的一套交友系统
💻 ASP
字号:
🔍 
<%@ Language=VBScript %>
<%
df_id=Request("df_id")
'users=split(application("OnlineUser"),",")  '分割得到当前在线用户的列表,保存到一个数组中
'meme=trim(request("userid"))                '得到发送传呼的用户名称
If trim(request("act"))="wantsend" then  '判断目前的操作状态
  who=trim(Request.Item("df_id"))         '得到被呼叫用户名称
  content=trim(Request.Form("content")) '得到呼叫内容
  meme=trim(session("User_ID"))                '得到发送传呼的用户名称
  If who="" or content="" then
      Response.Redirect "error.asp?msg=姓名或者讯息内容为空,无法传送!"
  end if
'下面将发送的信息送至传呼信息队列当中.
  If trim(application("Message"))="" then
      Application.Lock 
      application("Message")=who & "$" & content & "$" & meme   '放置到传呼信息队列当中
      Application.UnLock 
  else
      Application.Lock   ''放置到传呼信息队列当中
      application("Message")=application("message") & "&" & who & "$" & content & "$" & meme
      Application.UnLock 
  end if
  '发送完毕,关闭页面
  Response.Write "发送成功"
  Response.Write "<script language=javascript>self.close();</script>"
end if
%>
<html>
<title>网络传呼机</title>
<head>
<script language="javascript">
function check()
{
  if(document.send.content.value.length<1)
  {
    alert("您必须要说两句喔!");
    return;
  }
 document.send.action="bbsSendBegin.asp?act=wantsend&userid=<%=trim(session("User_ID"))%>";
 document.send.submit();
}
</script>
</head>
<body bgcolor=GhostWhite >
<br>
<center>
 网&nbsp;&nbsp;络&nbsp;&nbsp;传&nbsp;&nbsp;呼&nbsp;&nbsp;机
</center>
<br>
<%if  session("user_id")<>df_id then%>
<center>
 <form name="send" method="post">
    <table>
      <tr>
        <td>发信人：</td>
        <td><%=session("user_id")%></td>
      </tr>
      <tr> 
        <td>收信人：</td>
        <td><%=df_id%></td>
      </tr>
      <tr> 
        <td>讯息内容:</td>
        <td> 
          <input type="text" name="content" size="20" maxlength="50">
        </td>
      </tr>
      <tr> 
        <td colspan="2">
          <input type="hidden" name="df_id" value=<%=df_id%>>
        </td>
      </tr>
      <tr> 
        <td colspan="2"> <a href="javascript:check()">发送信息</a>;&nbsp; <a href="javascript:document.send.reset()">重新填写</a>&nbsp;&nbsp; 
          <a href="javascript:self.close()">关闭窗口</a>&nbsp;&nbsp; </td>
      </tr>
    </table>
 </form> 
</center>
<%else%>
<br>
<br>
<br>
 <center>
   目前站上只有您一个人喔,无法传送讯息给其他人呀!
 </center>
<center>
<a href="javascript:self.close()">关产窗口</a>
 </center>
<%end if%>
</body>
</html>

⌨️ 快捷键说明

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