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
相关文档：
写了一个vb的程序，用来把原来写的几个vb和vc的程序整合起来。就是使用Shell函数。结果发现，vc的程序可以很好的显示，但vb写的却一运行就最小化了。仔细查看了一下以下文章，才发现原来shell函数的默认显示模式是windowstyle是等于vbMinimizedFocus。然后就是直接加上一个vbNormalFocus。一切ok!
vb的s ......
vb使用open方法读写文件
（一）打开和关闭文件
1、顺序文件
打开顺序文件，我们可以使用Open语句。它的格式如下：
Open pathname For [Input |Output |Append] As [#]filenumber [Len = buffersize]
说明：
（1）参数pathname 表示要打开的文件名，文件名可以包含有驱动器和目 ......
http://www.Experts-Exchange.com: 非常好的问题 讨论区，高手数不尽，而且这里的人很有专业精神，不会讨论一些和程序无关又无聊的问题。不过想要别人帮你 解决问题，自己也要有真诚的态度。
http://www.Codeguru.com/vb: 有名的源码讨论站 点，特点是在每个源码下面都可以跟帖讨论。
http://www.planet-source-code.co ......
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 ......
创建指定的文件名并返回一个 TextStream 对象，可以使用这个对象对文件进行读写。
object.CreateTextFile(filename[, overwrite[, unicode]])
参数
object
必选项。应为 FileSystemObject 或 Folder 对象的名称。
filename
必选项。指明所要创建文件的字符串表达式。
overwrite
可选项。Boolean 值，指� ......
