仓酷云

标题: ASP网页编程之把持用户上岸到网站和显现在线用户列表... [打印本页]

作者: 只想知道    时间: 2015-1-16 23:34
标题: ASP网页编程之把持用户上岸到网站和显现在线用户列表...
写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了.另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们)把持|显现|在线
上面是global.asa的内容:

SubApplication_OnStart
Deleteallsavedsessioninformation,incaseofacrash
setobjADO=Server.CreateObject("ADODB.Connection")
sDatabasePath=Server.MapPath("/databases")
sConnection
="filedsn="&sDatabasePath&"eadwrite.dsn;DBQ="&sDatabasePath&"sessi
ons.mdb;"
objADO.Open(sConnection)

sUpdateCmd="delete*fromsession;"
objADO.Execute(sUpdateCmd)
Closethedatabasedownagain
objADO.close
setobjADO=Nothing

NowstoretheDSNconnectionstringaway,sowedonthavetolook
itupagain
Application("sessionDSN")=sConnection

EndSub

SubSession_OnStart

Writethesessioninformationawayintothesessiondatabase
setsession_objADO=Server.CreateObject("ADODB.Connection")
session_objADO.Open(Application("sessionDSN"))
session_sUpdateCmd="insertintosessionvalues
("&Session.SessionID&","
session_sUpdateCmd=session_sUpdateCmd&""&Request.ServerVariables
("REMOTE_ADDR")&","
session_sUpdateCmd=session_sUpdateCmd&""&Request.ServerVariables
("HTTP_USER_AGENT")&");"
session_objADO.Execute(session_sUpdateCmd)
Closethedatabasedownagain
session_objADO.close
setsession_objADO=Nothing

EndSub

SubSession_OnEnd

Deletethesessioninformationfromthesessiondatabase
setsession_objADO=Server.CreateObject("ADODB.Connection")
session_sConnection=Application("sessionDSN")
session_objADO.Open(session_sConnection)
session_sUpdateCmd="delete*fromsessionwhere
SessionID="&Session.SessionID&";"
session_objADO.Execute(session_sUpdateCmd)
Closethedatabasedownagain
session_objADO.close
setsession_objADO=Nothing

EndSub

上面是完成功效的一个例子:

<%OPTIONEXPLICIT

currentusers.aspV1.0
Copyright1998/99BannConsultantsbarryd@bann.co.uk
Created03/11/98Modified03/11/98
On-linedocumentationathttp://www.bann.co.uk/asp/

COPYRIGHTNOTICE
Copyright1998-1999BarryDorransAllRightsReserved.

CurrentUsersmaybeusedandmodifiedfreeofchargebyanyoneso
long
asthiscopyrightnoticeandthecommentsaboveremainintact.By
using
thiscodeyouagreetoindemnifyBarryDorransfromanyliability
that
mightarisefromitsuse.

Sellingthecodeforthisprogramwithoutpriorwrittenconsentis
expresslyforbidden.Inotherwords,pleaseaskfirstbeforeyou
tryand
makemoneyoffofmyprogram.

Obtainpermissionbeforeredistributingthissoftwareoverthe
Internetor
inanyothermedium.Inallcasescopyrightandheadermustremain
intact
%>
<html>
<title>CurrentUserreport</title>
<bodybgcolor="#fffaf0">

<h1>CurrentUserReport</h1>

<br>
<tableborder=0>
<tr><td><p><b>RemoteHost</b></td>
<td><p><b>Browser</b></td></tr>
<%

DIMobjADO,sDatabasePath,sConnection,sessionRecords
DIMuserCount

userCount=0

SETobjADO=Server.CreateObject("ADODB.Connection")
sDatabasePath=Server.MapPath("/databases")
sConnection
="filedsn="&sDatabasePath&"eadonly.dsn;DBQ="&sDatabasePath&"sessio
ns.mdb;"
objADO.Open(sConnection)

SETsessionRecords=objADO.execute("select*fromsession;")

DOWHILENOTsessionRecords.EOF
userCount=userCount+1
%>
<tr><td><p><%=sessionRecords("Host")%></td>
<td><p><%=sessionRecords("BrowserType")%></td></tr>
<%sessionRecords.MoveNext
LOOP

sessionRecords.Close
objADO.close
SETsessionRecords=Nothing
SETobjADO=Nothing

%>


Session变量的无效期默许为20分钟,能够经由过程上面来改动它的默许无效期:
Session.Timeout=(无效期的分钟数)
</p>在实现ERP等高端的ASP应用时,用户需要提供核心的经营资料,需要ASP商有很高的信用度。楼上说交互性不好,太牵强了吧。在微软提供的一套框架中,利用asp做网站,开发效率高,使用人数少,减少不必要的开销。交互性是互动方式,是有开发人员决定的。
作者: 若相依    时间: 2015-1-19 10:08
没有坚实的理论做基础,那么我们连踏入社会第一步的资本都没有,特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP,从平时的学习过程中。
作者: 仓酷云    时间: 2015-1-24 12:07
最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。
作者: 小妖女    时间: 2015-1-24 21:59
接下来就不能纸上谈兵了,最好的方法其实是实践。实践,只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好,因为你还没有熟练的能力去综合各种技术,这样只能使你自己越来越迷糊。
作者: 透明    时间: 2015-1-29 14:47
那么,ASP.Net有哪些改进呢?
作者: 只想知道    时间: 2015-1-29 20:31
他的语法和设计思路和VB完全相同,导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是,相当多的ASP教程混合了Javascript,VBscript等等脚本语言,搞的初学者。
作者: 柔情似水    时间: 2015-2-3 11:22
接下来就不能纸上谈兵了,最好的方法其实是实践。实践,只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好,因为你还没有熟练的能力去综合各种技术,这样只能使你自己越来越迷糊。
作者: 深爱那片海    时间: 2015-2-8 20:23
ASP(ActiveServerPages)是Microsfot公司1996年11月推出的WEB应用程序开发技术,它既不是一种程序语言,也不是一种开发工具,而是一种技术框架,不须使用微软的产品就能编写它的代码,能产生和执行动态、交互式、高效率的站占服务器的应用程序。
作者: 分手快乐    时间: 2015-2-26 04:37
多看多学多思。多看一些关于ASP的书籍,一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人,向同学老师多多学习,不论知识的大小;多思则是要将学到的知识灵活运用。
作者: 小女巫    时间: 2015-3-8 12:02
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质,我们可以在实践中不断提升自己,不断充实自己。
作者: 冷月葬花魂    时间: 2015-3-15 22:30
Request:从字面上讲就是“请求”,因此这个是处理客户端提交的东东的,例如Resuest.Form,Request.QueryString,或者干脆Request("变量名")
作者: 因胸联盟    时间: 2015-3-22 17:11
先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习




欢迎光临 仓酷云 (http://ckuyun.com/) Powered by Discuz! X3.2