如何编写一个网络传呼机？.doc

。bbs s end.asp 寻呼台页面,向在线网友发送寻呼信息%@ Language=VBScript % % users=split(application(OnlineUser),,) 分割得到当前在线用户的列表, If trim(request(act))=wantsend then 判断操作状态who=trim(Request.Form(who)) content=trim(Request.Form(content)) 呼叫内容meme=trim(request(userid)) 获取发送寻呼的网友昵称If who= or content= then Response.Redirect error.asp?msg= 噢,姓名或者讯息内容不能为空, 请重新输入! error.asp 为错误信息提示页面,可自己定制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 script language=javascriptself.close();/script 发送完毕, 关闭页面end if % html