易截截图软件、单文件、免安装、纯绿色、仅160KB

asp vb.net 在线统计 简单版本 和精确版本

 简单
在Global.asa文件中加入如下的代码:
Java代码
1. <SCRIPT LANGUAGE="VBScript" RUNAT="Server">
2.
3. Sub Application_OnStart
4.
5. '当服务器开启时,设置在线用户计数器为0
6. Application("ActiveUsers") = 0
7.
8. '设置每天访问量为0
9. Application("EveryDayUsers") = 0
10. '访问的时间为
11. Application("RecordDate") = "2009-01-01"
12.
13. End Sub
14.
15. Sub Session_OnStart
16.
17. '设置Session对象的有效时间为20分钟(也可以更长,但是越长对服务器的资源'占用越多,因为服务器不接受少于20分钟的有效时间,所以设置少于20分钟的'有效时间是无效的)
18. Session.Timeout = 30
19.
20. ' 当开始一个Session时在线用户计数器加1
21. Application.Lock
22. Application("ActiveUsers") = Application("ActiveUsers") + 1
23.
24. '每天的访问量加1
25. if Application("RecordDate") <> Date() Then
26. Application.Lock
27. Application("RecordDate") = Date()
28. Application("EveryDayUsers") = 1
29. Application.UnLock
30. else
31. Application.Lock
32. Application("EveryDayUsers") = Application("EveryDayUsers")+1
33. Application.UnLock
34. end if
35.
36. '统计总访问量
37. CountFile=Server.MapPath("txtcounter.txt")
38. Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
39. Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE)
40. counter=Out.ReadLine
41. Out.Close
42. SET FileObject=Server.CreateObject("Scripting.FileSystemObject")
43. Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE)
44. Application.lock
45. counter= counter + 1
46. Application("TotalUsers") = counter
47. Out.WriteLine(counter)
48. Ap


相关文档:

一个ASP的高级模板引擎

这个模板引擎比较方便,跟HTML结合了
Class template
Private c_Char, c_Path, c_FileName, c_Content, c_PageUrl, c_CurrentPage, c_PageStr, ReplacePageStr
Private TagName

' ***************************************
' 设置编码
' ***************************************
Public Property Let Char( ......

ASP学习,你准备好了吗?

如何令你的网站“动感十足”
您的网站是否仍一如既往地保持“静态”?目前呈几何增长的互联网网站中,有相当一部分仍固守“静态”,无形中已大大落后于时代的步伐。所谓“静态”指的就是网站的网页内容“固定不变”,当用户浏览器通过互联网的HTTP(Hypertext Transpor ......

推荐一些VB的学习交流网站

http://www.Experts-Exchange.com: 非常好的问题 讨论区,高手数不尽,而且这里的人很有专业精神,不会讨论一些和程序无关又无聊的问题。不过想要别人帮你 解决问题,自己也要有真诚的态度。
http://www.Codeguru.com/vb: 有名的源码讨论站 点,特点是在每个源码下面都可以跟帖讨论。
http://www.planet-source-code.co ......

asp中cookie的用法


有2种使用cookie的基本方式:
1、将cookie写入访问者的计算机(使用 RESPONSE 命令)
2、从访问者的计算机中取回cookie(使用 REQUEST 命令)
创建cookie的基本语法
Response.Cookies("CookieName")=value   //将值value写入cookie
执行下面的代码将会在访问者的计算机中创建一个cookie,名字=VisitorNam ......

ASP高级技术精选集

ASP高级技术精选集
 
一、GetRows的使用方法:
<%
Set conn=Server.CreateObject("Adodb.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("test.mdb")
Set Rs=Server.CreateObject("Adodb.Recordset")
Rs.Open "Select Top 2 * from 表名",conn,0,1 &nb ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号