ASP网页编程之附：源代码2：BBSAUTOSEARCH.ASP
专业性的服务。有的ASP商提供垂直型的应用服务，针对某一特定行业提供应用服务。源代码<%@Language=VBScript%><%
*****************************
user=split(application("OnlineUser"),",",-1)取得在线用户列表
fori=0toubound(user)取得非空的在线用户列表
ifuser(i)""then
nowcount=nowcount+1统计在耳目数
iftrim(temp)=""then
temp=user(i)
else
temp=temp+","+user(i)
endif
endif
next
iftrim(temp)""then
Application.Lock
application("OnlineUser")=temp从头收拾在线用户列表
Application.UnLock
endif
%>
<%
dimquit
**************************
入手下手剖析处置"传呼信息行列"中的信息，并支解出来是本人的信息
iftrim(application("Message"))""then
msg=split(application("Message"),"&")支解失掉传呼信息区，并保留到数组
fori=0toubound(msg)
ifinstr(1,trim(msg(i)),trim(session("userid")))>=1then
mymsg=split(msg(i),"$")支解失掉每一个传呼信息区的具体信息
iftrim(mymsg(0))=trim(session("userid"))then这条传呼信息是发给我的!
msgok=1有人呼唤我的表记置为1
from=trim(mymsg(2))取得传呼的具体内容
content=trim(mymsg(1))
sendto=trim(mymsg(0))
endif
endif
next
endif
****************************
quit=0
if(trim(session("UserID"))=""orinstr(1,application("OnlineUser"),session("UserID"))<1)andtrim(session("UserID"))"guest"then
quit=1
else
iftrim(application("OnlineUser"))=""then
counts=0
else
counts=ubound(split(application("OnlineUser"),","))+1
endif
endif
%>
<HTML>
<HEAD>
<metaHTTP-EQUIV="refresh"CONTENT="60;URL=bbsAutoSearch.asp"charset=gb2312>
<scriptlanguage=javascript>
functionwindow_onload()
{
//**************
//在这里就挪用了"显现传呼信息"的页面举行信息的显现
<%ifmsgok=1then%>
mail="网络传呼机
"+"<%=from%>"+"对您说:
"+"<%=content%>";
sendinfo=window.open("bbssendinfo.asp?userid=<%=session("UserID")%>","SendInfo","toolbar=no,top=0,left=0");
<%endif%>
//**************
//假如以后用户超时，就踢出体系
<%ifquit=1then%>
alert("由於超时大概操纵不法而没法利用体系,请您从头登录!");
document.kickout.target="_top";
document.kickout.submit();
<%endif%>
}
</script>
</HEAD>
<BODYonload="javascript:window_onload()">
<%ifquit=1then%>
<center>
超时大概操纵不法!
<%else%>
<%ifsession("UserID")"guest"then%>
今朝在线用户:<fontcolor=red><b><%=counts%></b></font>人
<br>
<br>
接待你：<%=Session("userid")%>
<br>
<br>
<fontcolor=red>加入前，请不要封闭此窗口！</font>
<%else%>
注册用户才可宣布文章.
<%endif
endif%>
<formname=kickoutmethod=postaction="bbslogin.htm"></form>
<ahref="bbsSendBegin.asp"target="_blank"></a>
</cente</p>无法实现跨操作系统的应用。当然这也是微软的理由之一，只有这样才能发挥ASP最佳的能力。可是我却认为正是Windows限制了ASP，ASP的概念本就是为一个能让系统运行于一个大的多样化环境而设计的； ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。 因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。 下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助... Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件 ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。 不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍 不能只是将它停留在纸上谈兵的程度上。 代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。
页:
[1]