|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
asp,jsp,php是web开发的三大技术,asp简单易用且有microsoft做靠山,jsp功能强大是因为有java支持,php则开源跨平台.在国内,asp应用范围最广,jsp发展势头最猛,php则处于劣势.这可能与公司的支持以及技术的培训有关.源代码<%@Language=VBScript%>
<%
users=split(application("OnlineUser"),",",-1)支解失掉以后在线用户的列表,保留到一个数组中
Iftrim(request("act"))="wantsend"then判别今朝的操纵形态
who=trim(Request.Form("who"))失掉被呼唤用户称号
content=trim(Request.Form("content"))失掉呼唤内容
meme=trim(request("userid"))失掉发送传呼的用户称号
Ifwho=""orcontent=""then
Response.Redirect"bbsmsg.asp?msg=姓名大概讯息内容为空,没法传送!"
endif
上面将发送的信息送至传呼信息行列傍边.
Iftrim(application("Message"))=""then
Application.Lock
application("Message")=who&"$"&content&"$"&meme安排到传呼信息行列傍边
Application.UnLock
else
Application.Lock安排到传呼信息行列傍边
application("Message")=application("message")&"&"&who&"$"&content&"$"&meme
Application.UnLock
endif
发送终了,封闭页面
Response.Write"<scriptlanguage=javascript>self.close();</script>"
Response.Redirect"bbsmsg.asp?msg=完成了!"
endif
%>
<html>
<title>收集传呼机</title>
<head>
<scriptlanguage="javascript">
functioncheck()
{
if(document.send.content.value.length<1)
{
alert("您必需要说两句喔!");
return;
}
document.send.action="bbsSendBegin.asp?act=wantsend&userid=<%=trim(session("userid"))%>";
document.send.submit();
}
</script>
</head>
<bodybgcolor=GhostWhite>
<br>
<center>
网络传呼机
</center>
<br>
<%ifUbound(users)>=1then%>
<center>
<formname="send"method="post">
<table>
<tr>
<td>送讯息给:</td>
<!--失掉以后在线用户的列表,并放到下拉列表框中-->
<td>
<selectname="who">
<%Fori=0toubound(users)%>
<%Iftrim(users(i))trim(meme)then%>
<%ifi>1then
ifusers(i)users(i-1)then%>
<option><%=users(i)%>
<%endif
else
ifusers(i)memethen%>
<option><%=users(i)%>
<%endif
endif
endif
Next%>
</select>
</td>
</tr>
<tr>
<td>讯息内容:</td>
<td>
<inputtype="text"name="content"si</p>只要你想学,就没什么优缺点,上面那位大哥已经把网上的评论说了,但我认为想学哪个都一样,不然它就不可能在当今时代数字艺术方面存活到今天 |
|