|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP一般认为只能运行在IIS上,正如前面所提到的,这并不是十分正确,事实上,ASP也能运行在Apache上。ApacheASP可在任意Apache服务器上运行有限的ASP功能,所需做的,只需打开mod_perl。数据|数据库|在线|在耳目数*********利用数据库判别在线名单和在耳目数
*********体系撑持:asp+access,在windows2000+iis5上测试经由过程
*********login.asp*********
<%@LANGUAGE="VBSCRIPT"%>
<%ONERRORRESUMENEXT%>
<!--#INCLUDEFILE="../FPDB/CONNECTION.ASP"-->
.
.
.
登录判别,略
.
.
登录乐成
session("Name")=rs("M_Name")
rs.Close
strSQL="UpdateB_MEMBERSetM_IsOnLine=yes,M_LastTime=now()WhereM_Name="+strName+""
rs.OpenstrSQL,myconn
response.redirect"xxx.asp"
SETRS=NOTHING
MYCONN.CLOSE
SETMYCONN=NOTHING
%>
*********refresh.asp*******
<%@LANGUAGE="VBSCRIPT"%>
<%ONERRORRESUMENEXT%>
<!--#INCLUDEFILE="../FPDB/CONNECTION.ASP"-->
<html>
<head>
<metahttp-equiv="refresh"content="60,url=refresh.asp">
</head>
.
.
.
设置5分钟未举措的id为offline,rers1为后面翻开的毗连,读取id。
setrers2=Server.CreateObject("ADODB.RECORDSET")
Foripage=1toonlinenum
ifminute(now)-minute(rers1("M_LastTime"))>5orminute(now)-minute(rers1("M_LastTime"))<0then
reSQL="UpdateB_MEMBERSetM_IsOnLine=noWhereM_ID="&rers1("M_ID")
rers2.OpenreSQL,myconn
endif
rers1.MoveNext
ifrers1.EOFthenexitfor
next
myconn.close
SETMYCONN=NOTHING
%>
*************main.asp,主文件中判别封闭,避免间接封闭扫瞄器发生毛病
<bodyONUNLOAD="javascript:window.open(close.asp,newwindow,height=20,width=20,top=0,left=0,toolbar=no,menubar=no,scrollbars=no,resizable=no,location=no,status=no)">
*************close.asp,同上**********
<%@LANGUAGE=VBSCRIPT%>
<!--#INCLUDEFILE="../FPDB/CONNECTION.ASP"-->
<%ONERRORRESUMENEXT
SETRSCLO=SERVER.CreateObject("ADODB.RECORDSET")
STRCLO="UPDATEB_MEMBERSETM_ISONLINE=NO,M_ATAREA=不在线WHEREM_NAME="&SESSION("NAME")&""
RSCLO.OpenSTRCLO,MYCONN
RSCLO.Close
MYCONN.CLOSE
SETRSCLOSE=NOTHING
SETMYCONN=NOTHING
Response.Writeerr.description
%>
<scriptlanguage="JavaScript">
window.close();
</script>
基础就是如许。</p>结论:和PHP一样,ASP简单而易于维护,很适合小型网站应用,通过DCOM和MTS技术,ASP甚至还可以完成小规模的企业应用,但ASP的致命缺点就是不支持跨平台的系统,在大型项目开发和维护上非常困难。 |
|