M-Gheibi
چهارشنبه 21 اردیبهشت 1384, 19:49 عصر
سلام
کدی که در زیر میذارم از سایت IranASP.NET برداشت شده. (لینک مستقیمش رو ندارم) :sorry:
<p align="Left">To run this sample you have to run it in an IIS application Folder. For doing this, first create a folder, for example in your Inetpub/wwwroot. then go to IIS and find your folder do this:
right click | Properties | Create button
then save it and exit from IIS and run your sample.</p>
Global.asa
<script language="vbscript" runat="server">
Sub Application_OnStart
Application("visitors")=0
End Sub
Sub Session_OnStart
Application.Lock
Application("visitors")=Application("visitors")+1
Application.UnLock
End Sub
Sub Session_OnEnd
Application.Lock
Application("visitors")=Application("visitors")-1
Application.UnLock
End Sub
</script>
VISITOR.ASP
<%@ Language=VBScript %>
<%
' ============================================
' NOTE: all source code downloaded from IranASP.NET is
' copyright (c) 2002 by IranASP.NET .
' You may use this source code on your web sites, but
' please don't publish or distribute in any way.
'
' I would appreciate an HTML comment in any code you use, i.e.
' <!-- portions (c) Info@IranASP.net-->
' (you can use Server Side Includes - SSI for this)
'
' <shameless plug>
' Please contact me to discuss any ASP contract work you may have.
' </shameless plug>
' ============================================
%>
<HTML>
<HEAD>
</HEAD>
<BODY>
<p>
There are <%response.write(Application("visitors"))%>
online now!
</p>
</BODY>
</HTML>
روز خوش :)