附：源代码3：BBSSENDINFO.ASP
日期：2013-06-28 浏览次数：20820 次
<%@ Language=VBScript %>
<%
id=trim(Request.QueryString("userid")) '得到当前的用户名称,就是自己(等于Session("UserID"))
if Request.QueryString("act")="send" then '获取当前的操作状态
who=trim(Request.Form("who")) '如果是发送状态,就获取发送到的用户名称
content=trim(Request.Form("content")) '如果是发送状态,就获取发送的内容
if who="" or content="" then
Response.Redirect "error.asp?msg=姓名或者讯息内容为空,无法传送!"
end if
'因为&,$是传呼信息区的分割符号,所以要过滤掉这些字符,不允许用户输入这些字符
if instr(1,who,"&")>=1 or instr(1,who,"$")>=1 or instr(1,content,"&")>=1 or instr(1,content,"$")>=1 then
Response.Redirect "error.asp?msg=姓名或者讯息内容包含非法字符($/&),无法传送!"
end if
if trim(application("Message"))="" then
Application.Lock '将传呼信息放到传呼信息队列当中
application("Message")=who & "$" & content & "$" & trim(Request.QueryString("userid"))
Application.UnLock
else
Application.Lock '将传呼信息放到传呼信息队列当中
application("Message")="&" & who & "$" & content & "$" & trim(Request.QueryString("userid"))
Application.UnLock
end if
Response.Write "<script language=javascript>self.close()</script>"
Response.End
else
'**************************
'开始分析处理"传呼信息队列",取得属于自己的传呼信息
if trim(application("Message"))<>"" then
msg=split(application("Message"),"&") '分割得到传呼信息区，并保存到数组
for i=0 to ubound(msg)
if instr(1,trim(msg(i)),trim(Request.QueryString("userid")))>=1 then
mymsg=split(msg(i),"$") '分割得到每个传呼信息区的详细信息
if trim(mymsg(0))=trim(Request.QueryString("userid")) then '这条传呼信息是发给我的!
msgok=1 '有人呼叫我的表记置为1
from=trim(mymsg(2)) '获得传呼的详细内容
content=trim(mymsg(1))
sendto=trim(mymsg(0))
end if
end if
next
end if
'****************************
end if
%>
<html>
<title>网络传呼机</title>
<head>
<script language="javascript">
function nosend()
{
document.frmmail.action="bbsSendInfo.asp?act=wait&userid=<%=trim(Request.QueryString("userid"))%>"
document.frmmail.submit();
}
function meclose()
{
document.frmmail.action="bbsSendInfo.asp?act=closeme&userid=<%=session("userid")%>"
document.frmmail.submit();
}
function destory()
{
<% if trim(re
<%
id=trim(Request.QueryString("userid")) '得到当前的用户名称,就是自己(等于Session("UserID"))
if Request.QueryString("act")="send" then '获取当前的操作状态
who=trim(Request.Form("who")) '如果是发送状态,就获取发送到的用户名称
content=trim(Request.Form("content")) '如果是发送状态,就获取发送的内容
if who="" or content="" then
Response.Redirect "error.asp?msg=姓名或者讯息内容为空,无法传送!"
end if
'因为&,$是传呼信息区的分割符号,所以要过滤掉这些字符,不允许用户输入这些字符
if instr(1,who,"&")>=1 or instr(1,who,"$")>=1 or instr(1,content,"&")>=1 or instr(1,content,"$")>=1 then
Response.Redirect "error.asp?msg=姓名或者讯息内容包含非法字符($/&),无法传送!"
end if
if trim(application("Message"))="" then
Application.Lock '将传呼信息放到传呼信息队列当中
application("Message")=who & "$" & content & "$" & trim(Request.QueryString("userid"))
Application.UnLock
else
Application.Lock '将传呼信息放到传呼信息队列当中
application("Message")="&" & who & "$" & content & "$" & trim(Request.QueryString("userid"))
Application.UnLock
end if
Response.Write "<script language=javascript>self.close()</script>"
Response.End
else
'**************************
'开始分析处理"传呼信息队列",取得属于自己的传呼信息
if trim(application("Message"))<>"" then
msg=split(application("Message"),"&") '分割得到传呼信息区，并保存到数组
for i=0 to ubound(msg)
if instr(1,trim(msg(i)),trim(Request.QueryString("userid")))>=1 then
mymsg=split(msg(i),"$") '分割得到每个传呼信息区的详细信息
if trim(mymsg(0))=trim(Request.QueryString("userid")) then '这条传呼信息是发给我的!
msgok=1 '有人呼叫我的表记置为1
from=trim(mymsg(2)) '获得传呼的详细内容
content=trim(mymsg(1))
sendto=trim(mymsg(0))
end if
end if
next
end if
'****************************
end if
%>
<html>
<title>网络传呼机</title>
<head>
<script language="javascript">
function nosend()
{
document.frmmail.action="bbsSendInfo.asp?act=wait&userid=<%=trim(Request.QueryString("userid"))%>"
document.frmmail.submit();
}
function meclose()
{
document.frmmail.action="bbsSendInfo.asp?act=closeme&userid=<%=session("userid")%>"
document.frmmail.submit();
}
function destory()
{
<% if trim(re
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
