[此贴子已经被作者于2006-2-5 21:43:35编辑过]

以下是引用caiyakang在2006-2-5 23:55:00的发言：
我想把你的美观给盗来用


算不算侵权

楼上的说得对，我也是用MSN的外观

计数器代码：global.asa
<script language="VBScript" runat="server">
sub application_onstart
application("online")=0
end sub

sub session_onstart
application.lock()
allview=Server.MapPath("/allview.txt")
set fso=server.createobject("scripting.filesystemobject")
if not fso.FileExists(allview) then
Set objCountFile=fso.CreateTextFile(allview,True)
objCountFile.Write 0
objCountFile.Close
Set objCountFile=Nothing
end if
Set objCountFile = fso.OpenTextFile(allview,1,True)
If Not objCountFile.AtEndOfStream Then application("allview") = CLng(objCountFile.ReadAll)
objCountFile.Close
Set objCountFile=Nothing
application("allview")=application("allview")+1
Set objCountFile=fso.CreateTextFile(allview,True)
objCountFile.Write application("allview")
objCountFile.Close
Set objCountFile=Nothing

application("online")=application("online")+1

application.UnLock()
end sub

sub session_onend
application.lock()
application("online")=application("online")-1
application.UnLock()
end sub
</script>