附：源代码3：BBSSENDINFO.ASP

<%@ 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"))

补充：asp教程,高级应用