zydronium/aspclassiccompiler
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

changed source folder names

Browse source
This commit is contained in:
Joham of bitSOCIAL 2020-04-14 14:05:42 +02:00
parent 146f0eeb0a
commit a69a1d99fb
824 changed files with 0 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

15
aspclassiccompiler/DLRSoft.Examples.ASPWebApp/components/Counters/Docs/Contents.Htm Normal file
View file

@ -0,0 +1,15 @@
<HTML><HEAD><TITLE>Contents</TITLE><BASE TARGET="TEXT"></HEAD>
<BODY BGCOLOR="#FFFFFF">
<TABLE><TR><TD NOWRAP><FONT FACE="ARIAL,HELVETICA" SIZE=2>
<OL>
Counters Component<BR>
<OL>
<A HREF="counter1.htm">Counters Component</A><BR>
<A HREF="counter2.htm">Get method</A><BR>
<A HREF="counter3.htm">Increment method</A><BR>
<A HREF="counter4.htm">Remove method</A><BR>
<a href="counter5.htm">Set method</a><BR>
</OL>
</OL>
</FONT></TABLE>
</BODY></HTML>

143
aspclassiccompiler/DLRSoft.Examples.ASPWebApp/components/Counters/Docs/Counter1.Htm Normal file
View file

@ -0,0 +1,143 @@
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
<html>
<head>
<meta HTTP-EQUIV="Content-Type" Content="text-html; charset=Windows-1252">
<title>Counters Component</title>
<script language="JavaScript">
szNavVersion = navigator.appVersion
if (navigator.appName == "Microsoft Internet Explorer") {
if (szNavVersion.indexOf ("4.") >= 0) {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie4.css">');
} else {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie3.css">');
}
}
else if (navigator.appName == "Netscape") {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie4.css">');
}
else {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie3.css">');
}
</script>
<meta NAME="DESCRIPTION" CONTENT="Internet Information Server reference information">
</head>
<body BGCOLOR="#FFFFFF" TEXT="#000000">
<font face="Verdana, Arial, Helvetica">
<h1><a name="_counters_component"></a>Counters Component</h1>
<p>The Counter component creates a <b>Counters </b>object that can create, store,
increment, and retrieve any number of individual counters. </p>
<p>A counter is a persistent value that contains an integer. You can manipulate a counter
with the <b>Get</b>, <b>Increment</b>, <b>Set</b>, and <b>Remove </b>methods of the <b>Counters
</b>object. Once you create the counter, it persists until you remove it.</p>
<p>Counters do not automatically increment on an event like a page hit. You must manually
set or increment counters using the <a href="counter5.htm"><b>Set</b></a> and <a
href="counter3.htm"><b>Increment</b></a> methods.</p>
<p>Counters are not limited in scope. Once you create a counter, any page on your site can
retrieve or manipulate its value. For example, if you increment and display a counter
named <i>hits</i> in a page called Page1.asp, and you increment <i>hits</i> in another
page called Page2.asp, both pages will increment the same counter. If you hit Page1.asp,
and increment <i>hits</i> to 34, hitting Page2.asp will increment <i>hits</i> to 35. The
next time you hit Page1.asp, <i>hits</i> will increment to 36.</p>
<p>All counters are stored in a single text file, Counters.txt, which is located in the
same directory as the Counters<i>.</i>dll file. </p>
<h2>File Names</h2>
<table>
<tr valign="top">
<td>Counters.dll</td>
<td>The Counters component.</td>
</tr>
<tr valign="top">
<td>Counters.txt</td>
<td>The file that stores all individual counters on a site. Counters.txt is a UTF8-encoded
file. You can have any Unicode characters in a counter name. </td>
</tr>
</table>
<p><br>
</p>
<h2>Syntax</h2>
<p>Create the <b>Counters</b> object one time on your server by adding the following to
the Global.asa file:</p>
<pre><b>&lt;OBJECT
RUNAT=Server
SCOPE=Application
ID=Counter
PROGID=&quot;MSWC.Counters&quot;&gt;
&lt;/OBJECT&gt;</b></pre>
<h2>Registry Entries</h2>
<p>None.</p>
<h2>Remarks</h2>
<p>Only create one <b>Counters </b>object in your site. This single <b>Counters </b>object
can create any number of individual counters. </p>
<p><b>Note</b> For Personal Web Server on Windows 95, a Counters component has already
been specified in the Global.asa file in the default virtual directory. You can work with
the <b>Counters </b>object the component creates as if it were a built-in object by
calling <b>Counters.Get</b>, <b>Counters.Increment</b>, <b>Counters.Remove</b>, and <b>Counters.Set</b>. You should not create another instance of the <b>Counters </b>object. </p>
<h2>Methods </h2>
<table>
<tr valign="top">
<td><a href="counter2.htm"><b>Get</b></a> </td>
<td>Returns the value of the counter. </td>
</tr>
<tr valign="top">
<td><a href="counter3.htm"><b>Increment</b></a> </td>
<td>Increases the counter by 1.</td>
</tr>
<tr valign="top">
<td><a href="counter4.htm"><b>Remove</b></a> </td>
<td>Removes the counter from the Counters.txt file. </td>
</tr>
<tr valign="top">
<td><a href="counter5.htm"><b>Set</b></a> </td>
<td>Sets the value of the counter to a specific integer. </td>
</tr>
</table>
<p><br>
</p>
<h2>Example</h2>
<p>Create an instance of the <b>Counters </b>object in the Global.asa file with the ID
attribute set to <code>Counter</code>: </p>
<pre>&lt;OBJECT RUNAT=Server SCOPE=Application ID=Counter PROGID=&quot;MSWC.Counters&quot;&gt; &lt;/OBJECT&gt;
</pre>
<p>You can then use that <b>Counters </b>object on one page to create all the counters you
need:</p>
<pre>There have been &lt;%= Counter.Increment('defaultPageHits') %&gt; to this site.
</pre>
<p>Then on another page you can increment the counter in the following manner:</p>
<pre>You are visitor number&lt;%= Counter.Increment('LinksPageHits') %&gt; to this page.
</pre>
</font>
</body>
</html>

85
aspclassiccompiler/DLRSoft.Examples.ASPWebApp/components/Counters/Docs/Counter2.Htm Normal file
View file

@ -0,0 +1,85 @@
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
<html>
<head>
<meta HTTP-EQUIV="Content-Type" Content="text-html; charset=Windows-1252">
<title>Get</title>
<script language="JavaScript">
szNavVersion = navigator.appVersion
if (navigator.appName == "Microsoft Internet Explorer") {
if (szNavVersion.indexOf ("4.") >= 0) {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie4.css">');
} else {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie3.css">');
}
}
else if (navigator.appName == "Netscape") {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie4.css">');
}
else {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie3.css">');
}
</script>
<meta NAME="DESCRIPTION" CONTENT="Internet Information Server reference information">
</head>
<body BGCOLOR="#FFFFFF" TEXT="#000000">
<font face="Verdana, Arial, Helvetica">
<h1><a name="_get"></a>Get</h1>
<p>The <b>Get </b>method takes the name of a counter and returns the current value of the
counter. If the counter doesn't exist, the method creates it and sets it to 0.</p>
<h2>Syntax</h2>
<pre><b>Counters.Get</b>(<i>CounterName</i>)
</pre>
<h2>Parameters</h2>
<dl>
<dt><i>CounterName</i></dt>
<dd>A string containing the name of the counter.</dd>
</dl>
<h2>Example</h2>
<p>Display the value a counter with <code>&lt;%= Counters.Get(<i>CounterName</i>) %&gt;</code>.
Assign the value of the counter to a variable with <code>&lt;% countervar = Counters.Get(<i>CounterName</i>)
%&gt;</code>. </p>
<p>The following script displays the vote tally from a poll about favorite colors. </p>
<pre>&lt;% If colornumber = &quot;1&quot; Then
Counters.Increment(&quot;greencounter&quot;)
Else
If colornumber = &quot;2&quot; Then
Counters.Increment(&quot;bluecounter&quot;)
Else
If colornumber = &quot;0&quot; Then
Counters.Increment(&quot;redcounter&quot;)
End If
End If
End If %&gt;
&lt;P&gt;Current vote tally:
&lt;P&gt;red: &lt;% =Counters.Get(&quot;redcounter&quot;) %&gt;
&lt;P&gt;green: &lt;% = Counters.Get(&quot;greencounter&quot;) %&gt;
&lt;P&gt;blue: &lt;% = Counters.Get(&quot;bluecounter&quot;) %&gt;
</pre>
<h2>Applies To</h2>
<p>Counters component</p>
<h2>See Also</h2>
<p><a href="counter3.htm"><b>Increment</b></a>, <a href="counter4.htm"><b>Remove</b></a>, <a
href="counter5.htm"><b>Set</b></a> </p>
</font>
</body>
</html>

78
aspclassiccompiler/DLRSoft.Examples.ASPWebApp/components/Counters/Docs/Counter3.Htm Normal file
View file

@ -0,0 +1,78 @@
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
<html>
<head>
<meta HTTP-EQUIV="Content-Type" Content="text-html; charset=Windows-1252">
<title>Increment</title>
<script language="JavaScript">
szNavVersion = navigator.appVersion
if (navigator.appName == "Microsoft Internet Explorer") {
if (szNavVersion.indexOf ("4.") >= 0) {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie4.css">');
} else {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie3.css">');
}
}
else if (navigator.appName == "Netscape") {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie4.css">');
}
else {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie3.css">');
}
</script>
<meta NAME="DESCRIPTION" CONTENT="Internet Information Server reference information">
</head>
<body BGCOLOR="#FFFFFF" TEXT="#000000">
<font face="Verdana, Arial, Helvetica">
<h1><a name="_increment"></a>Increment</h1>
<p>The <b>Increment</b> method takes the name of a counter, adds 1 to the current value of
the counter, and returns the counter's new value. If the counter doesn't exist, the method
creates it and sets its value to 1.</p>
<h2>Syntax</h2>
<pre><b>Counters.Increment</b>(<i>CounterName</i>)
</pre>
<h2>Parameters</h2>
<dl>
<dt><i>CounterName</i></dt>
<dd>A string containing the name of the counter.</dd>
</dl>
<h2>Example</h2>
<p>Increment the value of a counter with <code>&lt;% Counters.Increment(<i>CounterName</i>)
%&gt;</code>. Increment and display the value of a counter with <code>&lt;%=
Counters.Increment(<i>CounterName</i>) %&gt;</code>. </p>
<p>To retrieve the value of a counter, use <b>Counters.Get</b>. To set a counter to a
specific value, use <b>Counters.Set</b>. </p>
<p>The following code implements a one-line page-hit counter. </p>
<pre>&lt;P&gt;There have been &lt;%= Counters.Increment(&quot;hits&quot;) %&gt; visits to this Web page. &lt;/P&gt;
</pre>
<p>In this example, <b>Counters.Increment </b>increases the counter by one each time the
client requests the page from the server. </p>
<h2>Applies To</h2>
<p>Counters component</p>
<h2>See Also</h2>
<p><a href="counter2.htm"><b>Get</b></a>, <a href="counter4.htm"><b>Remove</b></a>, <a
href="counter5.htm"><b>Set</b></a> </p>
</font>
</body>
</html>

68
aspclassiccompiler/DLRSoft.Examples.ASPWebApp/components/Counters/Docs/Counter4.Htm Normal file
View file

@ -0,0 +1,68 @@
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
<html>
<head>
<meta HTTP-EQUIV="Content-Type" Content="text-html; charset=Windows-1252">
<title>Remove</title>
<script language="JavaScript">
szNavVersion = navigator.appVersion
if (navigator.appName == "Microsoft Internet Explorer") {
if (szNavVersion.indexOf ("4.") >= 0) {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie4.css">');
} else {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie3.css">');
}
}
else if (navigator.appName == "Netscape") {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie4.css">');
}
else {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie3.css">');
}
</script>
<meta NAME="DESCRIPTION" CONTENT="Internet Information Server reference information">
</head>
<body BGCOLOR="#FFFFFF" TEXT="#000000">
<font face="Verdana, Arial, Helvetica">
<h1><a name="_remove"></a>Remove</h1>
<p>The <b>Remove </b>method takes the name of a counter, removes the counter from the
Counters object, and deletes the counter from the Counters.txt file.</p>
<h2>Syntax</h2>
<pre><b>Counters.Remove(</b><i>CounterName</i><b>)
</b></pre>
<h2>Parameters</h2>
<dl>
<dt><i>CounterName</i></dt>
<dd>A string containing the name of the counter.</dd>
</dl>
<h2>Example</h2>
<p>The following code removes the counter <code>hitscounter </code>from the Counters.txt
file. </p>
<pre>&lt;% Counters.Remove(hitscounter) %&gt;
</pre>
<h2>Applies To</h2>
<p>Counters component</p>
<h2>See Also</h2>
<p><a href="counter2.htm"><b>Get</b></a>, <a href="counter3.htm"><b>Increment</b></a>, <a
href="counter5.htm"><b>Set</b></a> </p>
</font>
</body>
</html>

74
aspclassiccompiler/DLRSoft.Examples.ASPWebApp/components/Counters/Docs/Counter5.Htm Normal file
View file

@ -0,0 +1,74 @@
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
<html>
<head>
<meta HTTP-EQUIV="Content-Type" Content="text-html; charset=Windows-1252">
<title>Set</title>
<script language="JavaScript">
szNavVersion = navigator.appVersion
if (navigator.appName == "Microsoft Internet Explorer") {
if (szNavVersion.indexOf ("4.") >= 0) {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie4.css">');
} else {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie3.css">');
}
}
else if (navigator.appName == "Netscape") {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie4.css">');
}
else {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie3.css">');
}
</script>
<meta NAME="DESCRIPTION" CONTENT="Internet Information Server reference information">
</head>
<body BGCOLOR="#FFFFFF" TEXT="#000000">
<font face="Verdana, Arial, Helvetica">
<h1><a name="_set"></a>Set</h1>
<p>The <b>Set </b>method takes the name of a counter and an integer, sets the counter to
the value of the integer, and returns the new value. If the counter doesn't exist, <b>Counters.Set
</b>creates it and sets it to the value of the integer.</p>
<p>To retrieve the value of a counter, use <b>Counters.Get</b>. To increment a counter by
1, use <b>Counters.Increment</b>. </p>
<h2>Syntax</h2>
<pre><b>Counters.Set</b>(<i>CounterName</i>, <i>int</i>)
</pre>
<h2>Parameters</h2>
<dl>
<dt><i>CounterName</i></dt>
<dd>A string containing the name of the counter.<br>
</dd>
<dt><i>int</i></dt>
<dd>The new integer value for <i>CounterName</i>.</dd>
</dl>
<h2>Example</h2>
<p>The following code resets the hit counter <code>pageHits </code>to 0: </p>
<pre>&lt;% Counters.Set(pageHits, 0) %&gt;
</pre>
<h2>Applies To</h2>
<p>Counter component</p>
<h2>See Also</h2>
<p><a href="counter2.htm"><b>Get</b></a>, <a href="counter3.htm"><b>Increment</b></a>, <a
href="counter4.htm"><b>Remove</b></a> </p>
</font>
</body>
</html>

16
aspclassiccompiler/DLRSoft.Examples.ASPWebApp/components/Counters/Docs/Default.Htm Normal file
View file

@ -0,0 +1,16 @@
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<head>
<title>Counters Component</title>
</head>
<frameset FRAMEBORDER="1" FRAMESPACING="1" cols="320,*">
<frame SRC="contents.htm" name="TOC" scrolling="auto" target="TEXT">
<frame SRC="counter1.htm" name="TEXT" scrolling="auto">
<noframes>
<body>
</body>
</noframes>
</frameset>
</html>

33
aspclassiccompiler/DLRSoft.Examples.ASPWebApp/components/Counters/Sample/Counters_JScript.Asp Normal file
View file

@ -0,0 +1,33 @@
<%@ LANGUAGE="JSCRIPT" %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual InterDev 1.0">
<META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
<TITLE>Document Title</TITLE>
</HEAD>
<BODY>
<h2>Demo of the Counters ASP Component</h2>
<%
var ObjCounter;
var nCount;
try
{
ObjCounter = Application("MSCounters");
nCount = ObjCounter.Increment("NoOfHits") ;
}
catch (err)
{
Response.Write ("<P>Error: Could not get the instance of the Counters Object.<br> Error Code:" + err.errCode );
Response.End();
}
Response.Write ("<h4><P>There have been <font color=RED>"+ nCount + "</font> visits to this Web page. Refresh this page to increment <br>the counter.</h4>");
%>
</BODY>
</HTML>

31
aspclassiccompiler/DLRSoft.Examples.ASPWebApp/components/Counters/Sample/Counters_VBScript.Asp Normal file
View file

@ -0,0 +1,31 @@
<%@ LANGUAGE="VBSCRIPT" %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual InterDev 1.0">
<META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
<TITLE>Document Title</TITLE>
</HEAD>
<BODY>
<h2>Demo of the Counters ASP Component</h2>
<%
On Error Resume Next
Dim ObjCounter
Dim nCount
Set ObjCounter = Application("MSCounters")
nCount = ObjCounter.Increment("NoOfHits")
If (Err <> 0) then
Response.Write ("<P>Error: Could not get the instance of the Counters Object.<br> Error Code:" + CStr(nErr) )
Else
Response.Write ("<h4><P>There have been <font color=RED>"+ CStr(nCount) + "</font> visits to this Web page. Refresh this page to increment <br>the counter.</h4>")
End If
%>
</BODY>
</HTML>

41
aspclassiccompiler/DLRSoft.Examples.ASPWebApp/components/Counters/Sample/Global.Asa Normal file
View file

@ -0,0 +1,41 @@
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Option Explicit
Sub Application_OnStart
On Error Resume Next
Dim ObjCounter
Dim strCounter
strCounter = "NoOfHits"
Application("CounterName") = strCounter
Set ObjCounter = Server.CreateObject("MSWC.Counters")
If (Err <> 0) Then
Application("IsErr" ) = Err.Number
Else
Call ObjCounter.Set(strCounter, 1 )
Set Application("MSCounters") = ObjCounter
Application("IsErr") = 0
End If
Err.Clear
End Sub
Sub Application_OnEnd
On Error Resume Next
Application("IsErr") = Nothing
Application("MSCounters") = Nothing
End Sub
Sub Session_OnStart
Err = 0
End Sub
Sub Session_OnEnd
Err = 0
End Sub
</SCRIPT>

2
aspclassiccompiler/DLRSoft.Examples.ASPWebApp/components/Counters/TOURL.Htm Normal file
View file

@ -0,0 +1,2 @@
<meta http-equiv="Refresh"
content="0; URL=http://localhost/Counters/Counters.asp">