【www.bbyears.com--php常用代码】
<%@ 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"))