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
相关文档：
如何令你的网站“动感十足”
您的网站是否仍一如既往地保持“静态”？目前呈几何增长的互联网网站中，有相当一部分仍固守“静态”，无形中已大大落后于时代的步伐。所谓“静态”指的就是网站的网页内容“固定不变”，当用户浏览器通过互联网的HTTP（Hypertext Transpor ......
asp中插入与修改数据的几种方式。为了方便解说，我们先建立一个名为test的表，表内只有两个数据
项:username和email,分别用来存储用户名与邮箱地址。
1.利用insert语句插入数据：
insert是sql语句的基本指令之一， 用法很简单，这里我只将其基本格式列出.
代码如下：
set conn=s ......
JMAIL安装配置
jmail发送邮件的实例代码网上很多.但是有些细节如果不配置好,发送失败的可能性很大.
首先说明一下jmail安装配置步骤:
1. JMail 下载地址
http://hbdx3.skycn.com/down/w3JMail43Personal.exe
2.安装
本人在Windows 2003下面配置,其它系统还没有测试.
安装到目录比如: C:\Program Files\Dimac\w3JMai ......
创建指定的文件名并返回一个 TextStream 对象，可以使用这个对象对文件进行读写。
object.CreateTextFile(filename[, overwrite[, unicode]])
参数
object
必选项。应为 FileSystemObject 或 Folder 对象的名称。
filename
必选项。指明所要创建文件的字符串表达式。
overwrite
可选项。Boolean 值，指� ......
