设为首页收藏本站
开启辅助访问 切换到窄版

仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
仓酷云»社区 › 程序开发 Program › ASP网页编程 › ASP网页编程之把持用户上岸到网站和显现在线用户列表... ...
返回列表 发新帖
查看: 574|回复: 11
打印 上一主题 下一主题

[学习教程] ASP网页编程之把持用户上岸到网站和显现在线用户列表...

[复制链接]
只想知道 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 23:34:43 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有帐号？立即注册

x
写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了.另外大家可以回去问问公司里的小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做网站，开发效率高，使用人数少，减少不必要的开销。交互性是互动方式，是有开发人员决定的。
databases, 在线用户, insert, values, store

相关帖子
回复

使用道具 举报

若相依 该用户已被删除
沙发
发表于 2015-1-19 10:08:56 | 只看该作者
没有坚实的理论做基础，那么我们连踏入社会第一步的资本都没有，特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP，从平时的学习过程中。
回复 支持 反对

使用道具 举报

板凳
发表于 2015-1-24 12:07:47 | 只看该作者
最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。
回复 支持 反对

使用道具 举报

小妖女 该用户已被删除
地板
发表于 2015-1-24 21:59:22 | 只看该作者
接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。
回复 支持 反对

使用道具 举报

透明 该用户已被删除
5#
发表于 2015-1-29 14:47:47 来自手机 | 只看该作者
那么，ASP.Net有哪些改进呢？
回复 支持 反对

使用道具 举报

只想知道 该用户已被删除
6#
 楼主| 发表于 2015-1-29 20:31:56 | 只看该作者
他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。
回复 支持 反对

使用道具 举报

柔情似水 该用户已被删除
7#
发表于 2015-2-3 11:22:58 | 只看该作者
接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。
回复 支持 反对

使用道具 举报

深爱那片海 该用户已被删除
8#
发表于 2015-2-8 20:23:42 | 只看该作者
ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。
回复 支持 反对

使用道具 举报

分手快乐 该用户已被删除
9#
发表于 2015-2-26 04:37:29 | 只看该作者
多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。
回复 支持 反对

使用道具 举报

小女巫 该用户已被删除
10#
发表于 2015-3-8 12:02:23 | 只看该作者
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。
回复 支持 反对

使用道具 举报

冷月葬花魂 该用户已被删除
11#
发表于 2015-3-15 22:30:18 | 只看该作者
Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名")
回复 支持 反对

使用道具 举报

因胸联盟 该用户已被删除
12#
发表于 2015-3-22 17:11:06 | 只看该作者
先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-11-13 13:09

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表