|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
Access是一种桌面数据库,只适合数据量少的应用,在处理少量数据和单机访问的数据库时是很好的,效率也很高。但是它的同时访问客户端不能多于4个。access数据库有一定的极限,如果数据达到100M左右,很容易造成服务器iis假死,或者消耗掉服务器的内存导致服务器崩溃。收集 列位喜好上彀冲浪的伴侣必定都去过网易的虚拟社区吧,外面的传呼台功效想必是很得人人的喜欢。经由过程传呼台,咱们可以呼唤任何一个今朝在虚拟社区外面冲浪的网友,可以完成在线扳谈哦。
其实,咱们利用ASP完整可以完成同网易虚拟社区外面传呼台一样的功效,怎样?不信任?那就跟从我一步一步用ASP来完成收集传呼机吧。
Active Server Pages(ASP)是办事器端剧本编写 情况,利用它可以创立和运转静态、交互的 Web 办事器使用法式。利用 ASP 可以组合 HTML 页、剧本号令和 ActiveX 组件以创立交互的 Web 页和基于 Web 的功效壮大的使用法式。ASP 使用法式很轻易开辟和修正。
接上去,咱们就入手下手编写咱们的收集传呼机了。
起首,完成收集传呼的功效有两种办法:
一. 使用数据库完成传呼信息的保留和处置
这类办法的长处是,存储信息处置十分便利,然而它的弱点也是不言而喻的,就是增添了办事器真个承当,由于频仍的存储数据库将会大大增添I/O存取次数,招致网站的毗连速度变得迟缓。
二. 直接利用Application来保留传呼信息
这类办法的长处是,速度分明快于利用数据库来保留传呼信息的办法;弱点是处置信息对照繁琐,然而很值得的哦,咱们起首要包管的是全部网站的功能。
综合下面的要素,咱们将采取第二种办法来编写收集传呼机,关于第一种办法,我会在最初复杂引见一下。
咱们的收集传呼机需求三个页面,也就是“传呼台”页面,“显示传呼信息”页面,“监督传呼机”页面。
“传呼台”页面(bbsSendBegic.asp)是用来向其他在线用户发送信息的页面,天然就仿佛是咱们生涯中的传呼台喽。
“显示传呼信息”页面(bbsSendInfo.asp)是在有人呼唤你的时分,弹出来的显示呼唤内容的页面,就像你本人的BP一样,但咱们的收集BP机功效加倍微弱哦,他可以即时答复他人给你的信息,也能够稍候再答复,或爽性排除失落这条信息。
“监督传呼机”页面(bbsAutoSearch.asp)是随时监督是不是有人呼唤你的页面,就像一个不知倦怠的主动机械人一样一向在监督一切的传呼信息,而且会过滤出来只属于你的传呼信息。
三个页面之间只要“显示传呼信息”页面和“监督传呼机”页面关系亲切, “传呼台”页面是一个绝对自力的页面,三者关系以下图:
没有直接关系 显示到”BP机”
接上去,咱们入手下手编写第一个页面,就是“传呼台”页面。在这个页面外面,咱们要完成以下功效:
1. 获得以后在线的用户列表
2. 发送信息到传呼信息队列傍边停止列队,为今后掏出信息做筹办
页面的详细代码以下(bbsSendBegin.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=姓名或讯息内容为空,没法传送!"
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=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(request("userid"))%>";
document.send.submit();
}
</script>
</head>
<body bgcolor=GhostWhite >
<br>
<center>
网 络 传 呼 机
</center>
<br>
<%If Ubound(users)>=2 then%>
<center>
<form name="send" method="post">
<table>
<tr>
<td>送讯息给:</td>
<!-- 失掉以后在线用户的列表,并放到下拉列表框中 -->
<td>
<select name="who">
<%For i=0 to ubound(users)%>
<%If trim(users(i))<>trim(meme) then%>
<%if i>1 then%>
<%if users(i)<>users(i-1) then%>
<option><%=users(i)%>
<%end if%>
<%else%>
<%if users(i)<>meme then%>
<option><%=users(i)%>
<%end if%>
<%end if%>
<%end if%>
<%Next%>
</select>
</td>
</tr>
<tr>
<td>讯息内容:</td>
<td>
<input type="text" name="content" size="20" maxlength="50">
</td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td colspan="</p> 减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件,简单易用,无需专业技术支持。 |
|