Globale Konstanten/Funktionen

[Patrick Esche]

Hallo,<br>
Gibt es die Möglichkeit, wie bei anderen Programmiersprachen Teile des Codes auszulagern und dann zu includen?<br>
Es gibt beispielsweise Konstanten, auf die ich auf so ziemlich jeder Webseite zugreifen möchte - ich habe aber keine Lust, jeden Zugriff über "Application(Konstantenname)" zu machen.<br>
Und noch kritischer wird es bei Funktionen/Prozeduren. Wie kann ich diese global machen, so daß ich sie nicht auf jeder zweiten ASP-Seite implementieren muß, sondern eben nur einmal auf einer ASP-Seite, die ich dann include, so daß ich die Funktionen auf dieser ASP-Seite von einer anderen ASP-Seite aus aufrufen kann?<br>
Danke im voraus...<br>
Patrick

[Andreas Kosch]

Hallo,

&gt;..Teile des Codes auszulagern und dann zu includen?

Ja - das folgende Beispiel stammt aus meiner Session <i>D2 - Internet-Anwendungen</i> der EKON6:

<b>a) INCLUDE-Datei <i>OSTimeTool.inc</i> mit den wiederverwendbaren Teilen:</b>
<p>&lt;!-- <br>
<br>
INCLUDE-Datei für die Zeitmessung in einer Active Server Page<br>
© Andreas Kosch 2001<br>
Stand: 08.08.2001<br>
Greif auf die COM+ Library Application OSASP mit dem installierten<br>
ASP-Objekt OSASP.TimeTool zu.<br>
<br>
InitTime = Objektinstanz erzeugen<br>
SetStartTime = Win32-API-Funktion GetTickCount aufrufen und speichern<br>
ReportTime = Zeit anzeigen (seit letzten Aufruf, seit SetStartTime-Aufruf)<br>
DoneTim = Objektinstanz freigeben<br>
<br>
--&gt;<br>
&lt;%<br>
Dim iStartTime, iStopTime, iLastTime<br>
Dim aTimeTool<br>
<br>
Sub InitTime<br>
Set aTimeTool= CreateObject(&quot;OSASP.TimeTool&quot<br>
End Sub<br>
<br>
Sub SetStartTime<br>
iStartTime = aTimeTool.GetTickCount<br>
iLastTime = iStartTime<br>
End Sub<br>
<br>
Sub ReportTime(sMsg)<br>
Dim iCurrentTime<br>
iCurrentTime = aTimeTool.GetTickCount<br>
Response.Write(sMsg &amp; &quot;: &quot<br>
Response.Write iCurrentTime - iLastTime <br>
Response.Write &quot; ms; insges.: &lt;b&gt;&quot; <br>
Response.Write iCurrentTime - iStartTime <br>
Response.Write &quot; ms &lt;/b&gt;&lt;br&gt;&quot;<br>
iLastTime = iCurrentTime<br>
End Sub<br>
<br>
Sub DoneTime<br>
Set aTimeTool= Nothing<br>
End Sub<br>
%&gt;<br>
&nbsp;</p>

<b>b) Aufruf in der ASP-Seite</b>

<p>&lt;%@ LANGUAGE=&quot;VBScript&quot;%&gt;<br>
&lt;% Option Explicit %&gt;<br>
<b><font color="#FF0000">&lt;!--#include file=&quot;OSTimeTool.inc&quot; --&gt;</font></b><br>
&lt;HTML&gt;<br>
&lt;BODY&gt;<br>
&lt;TITLE&gt; Test von Delphi ASP &lt;/TITLE&gt;<br>
&lt;CENTER&gt;<br>
&lt;H3&gt; Sie sollten das Ergebnis Ihrer Delphi Active Server-Methode unten
sehen&lt;/H3&gt;<br>
&lt;/CENTER&gt;<br>
&lt;HR&gt;<br>
&lt;% <br>
Dim vTime, vReturn, DelphiASPObj <br>
vTime = 1000<br>
<br>
InitTime<br>
SetStartTime<br>
<br>
Set DelphiASPObj = Server.CreateObject(&quot;OSASPQC1.OSASPQC1Obj&quo t <br>
vReturn = DelphiASPObj.DoWork(vTime)<br>
%&gt;<br>
Parameterwert:&lt;b&gt; &lt;%=vTime%&gt; &lt;/b&gt;&lt;br&gt;<br>
Rückgabewert: &lt;b&gt;&lt;%=vReturn%&gt; &lt;/b&gt;&lt;br&gt;<br>
&lt;%<br>
ReportTime(&quot;OSASPQC1.OSASPQC1Obj: Methode DoWork&quot<br>
DoneTime<br>
%&gt;<br>
&lt;/BODY&gt;<br>
&lt;/HTML&gt;</p&gt