Der Inhalt dieses Artikels ist die Verwendung der ActiveX-Serverkomponenten (Komponenten) von ASP.
1. Komponente „Browserfunktionen“:
Wir wissen, dass verschiedene Browser unterschiedliche Funktionen unterstützen können. Beispielsweise unterstützen einige Browser Frames, andere nicht. Mit dieser Komponente können Sie die Fähigkeiten des Browsers überprüfen, sodass Ihre Webseite verschiedene Seiten für verschiedene Browser anzeigen kann (z. B. Anzeigen von Webseiten ohne Frame für Browser, die Frame nicht unterstützen). Die Verwendung dieser Komponente ist sehr einfach. Um diese Komponente korrekt verwenden zu können, müssen Sie sicherstellen, dass die Datei Browscap.ini auf dem neuesten Stand ist (tatsächlich sind alle Browser und ihre Funktionen in dieser Datei aufgeführt). Nachdem Sie es selbst geöffnet haben, verstehen Sie es. Andernfalls können die Ergebnisse sehr unterschiedlich sein. Beispielsweise wird IE5.0, der in der zweiten Version von Win98 enthalten ist, im folgenden Beispiel als Netscape angezeigt. Diese Datei befindet sich im Allgemeinen unter „WinntSystem32InetSrv“ auf dem Webserver. Die neueste Version kann von http://www.asptracker.com/ oder http://www.cyscape.com/browscap heruntergeladen werden.
Beispiel: wuf22.asp
<html>
<KÖRPER>
'Hinweis: Die Verwendung von Komponenten ähnelt der von Objekten, Komponenten müssen jedoch vor der Verwendung erstellt werden und es ist nicht erforderlich, vor der Verwendung integrierter Objekte eine Erstellung vorzunehmen.
<%Set BrowsCap=Server.CreateObject("MSWC.BrowserType")%>
Bitte warten......
<P>
<TABLE BORDER=1 CELLPADDING=10>
<TR><TD>Browsertyp</TD><TD><%=BrowsCap.Browser%></TD></TR>
<TR><TD>Browserversion</TD><TD><%=BrowsCap.version%></TD></TR>
<TR><TD>Ob Tabellen unterstützt werden</TD><TD><%=BrowsCap.tables%></TD></TR>
<TR><TD>Ob ActiveX-Steuerelemente unterstützt werden</TD><TD><%=BrowsCap.activexcontrols%></TD></TR>
<TR><TD>Ob JavaApplets unterstützt werden</TD><TD><%=BrowsCap.javaapplets%></TD></TR>
<TR><TD>Ob JavaScript unterstützt wird</TD><TD><%=BrowsCap.javascript%></TD></TR>
<TR><TD>Ob Cookies unterstützt werden</TD><TD><%=BrowsCap.Cookies%></TD></TR>
<TR><TD>Ob Frames unterstützt werden</TD><TD><%=BrowsCap.Frames%></TD></TR>
<TR><TD>Betriebssystem</TD><TD><%=BrowsCap.Platform%></TD></TR>
<TR><TD>Ob VBScript unterstützt wird</TD><TD><%=BrowsCap.vbscript%></TD></TR>
</TABLE>
<%Set BrowsCap = Nothing%>
</BODY>
</HTML>
Hinweis: In diesem Beispiel haben wir auch die CreateObject-Methode des Server-Objekts berührt. Server.CreateObject wird zum Erstellen von ActiveX-Komponenten verwendet, die auf dem Server registriert wurden (Hinweis: Es gibt andere Methoden zum Erstellen von Komponenten). Vergessen Sie jedoch nicht, „Set Object = Nothing“ zu verwenden, um Ressourcen rechtzeitig freizugeben. Dies sollte zur Gewohnheit werden.
2. File Access-Komponente
Die File Access-Komponente besteht aus einem FileSystemObject-Objekt und einem TextStream-Objekt. Mit dem FileSystemObject-Objekt können Sie Verzeichnisse und Dateien erstellen, abrufen und löschen, während das TextStream-Objekt die Funktion zum Lesen und Schreiben von Dateien bereitstellt.
Beispiel wuf23.asp. Betonung: Nur durch Übung kann das Verständnis vertieft werden. Das Üben und Vergleichen der Ergebnisse bei der Programmausführung ist der beste Weg, Programmierkenntnisse schnell zu erlernen.
<%@ Language=VBScript %>
<% Option explizit
' Beachten Sie den absoluten Pfad: C:Inetpubhomeaspwuf23.asp Homepage-Pfad: C:Inetpubhome
Dim Path, File, FSO, CTF, Str, StrHTML, StrNoHTML
'Verwenden Sie die CreateObject-Methode, um ein FileSystemObject-Objekt-FSO zu erstellen
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Path = Server.MapPath("test") 'Gibt das physische Verzeichnis von test zurück (absoluter Pfad)
„Was dieses Beispiel betrifft, gibt der folgende Satz genau den gleichen Pfad wie der obige Satz zurück
'Path = Server.MapPath("asptest")
Response.Write Path & „<Br>“
Wenn FSO.FolderExists(Path) = false, dann „Bestimmen Sie, ob der Ordner vorhanden ist.“
FSO.CreateFolder(Path) 'Erstellen Sie einen neuen Ordner
Ende, wenn
Datei = Pfad & „asptest.txt“
'Dateivorgang schreiben
Wenn FSO.FileExists(File) = True Then 'Bestimmen Sie, ob die Datei vorhanden ist.'
'TextStream-Objekt CTF erstellen
Set CTF = FSO.OpenTextFile(File, 8, False, 0) 'Öffnen Sie die Datei, siehe Beschreibung für Details
Anders
Setze CTF = FSO.CreateTextFile(File,False, False) 'Neue Datei
Ende wenn
CTF.Write "<P>Die erste Zeichenfolge; " 'Zeichenfolge schreiben
CTF.WriteLine "Zweite Zeichenfolge; " 'Schreiben Sie die Zeichenfolge und fügen Sie ein Zeilenumbruchzeichen hinzu
CTF.Write „Die dritte Zeichenfolge;“
CTF.Close 'Achten Sie darauf, die Datei zu schließen
.' Dateivorgang lesen
Setze CTF = FSO.OpenTextFile(File, 1,,0)
Do While CTF.AtEndOfStream <> True 'Bestimmen Sie, ob die Datei endet (Schleifenanweisung)
Str = CTF.ReadLine 'Eine Zeile lesen (jedes Mal)
StrNoHTML = StrNoHTML & Str & "<BR>" & VbCrLf
StrHTML = StrHTML & Server.HTMLEncode(Str) & "<BR>" & VbCrLf
Schleife
Response.Write StrNoHTML
Response.Write StrHTML
CTF.Close
Set CTF = Nothing 'Das Objekt freigeben
Stellen Sie FSO = Nichts ein
%>
CTF = FSO.OpenTextFile(File, 8, False, 0), der erste Parameter in den Klammern ist der Dateiname; der zweite Parameter ist 8, was bedeutet, dass der Inhalt nach der Originaldatei angehängt wird, wenn er 1 ist bedeutet schreibgeschützt, wenn es 2 ist. Die Originaldatei wird neu geschrieben; der dritte Parameter bedeutet, dass die Datei nicht erstellt wird, wenn die angegebene Datei nicht vorhanden ist vorhanden ist, wird die Datei erstellt. Der vierte Parameter 0 bedeutet, dass die Datei im ASCII-Dateiformat erstellt wird. Wenn er -2 ist, bedeutet dies, dass die Datei im Originalformat geöffnet wird.
CTF = FSO.CreateTextFile(File,False, False), der zweite Parameter false bedeutet, dass die vorhandene Datei nicht überschrieben wird. Wenn er True ist, bedeutet dies, dass die vorhandene Datei überschrieben (OverWrite) wird. Der dritte Parameter false bedeutet, dass das Dateiformat ASCII ist , wenn True bedeutet, dass das Dateiformat Unicode ist.
Die MapPath-Methode des Server-Objekts wandelt den angegebenen virtuellen Pfad in einen realen Dateipfad um. MapPath behandelt die Zeichen „/“ und „“ gleich.
Mit der HTMLEncode-Methode des Server-Objekts können Sie eine bestimmte Zeichenfolge HTML-codieren oder dem Browser ermöglichen, bestimmte Zeichen korrekt anzuzeigen. Im obigen Beispiel wird „<P>“ nicht angezeigt, wenn es nicht codiert ist, sondern vom Browser als HTML-Tag behandelt. Sie können die laufenden Ergebnisse vergleichen.
Tatsächlich ist die Dateizugriffskomponente beim Betrieb von Dateien, Ordnern und Laufwerken relativ leistungsfähig und bietet auch mehr Methoden. Wenn Sie dieses Wissen nutzen müssen, vergessen Sie nicht, es zu verwenden.
Darüber hinaus ist das Schreiben eines Webseitenzählers mittlerweile ein Kinderspiel. Kein Wunder, dass so viele Webseiten kostenlose Zähler anbieten. Wie wäre es damit? Versuchen Sie, selbst einen grafischen Zähler zu schreiben. Sie haben das letzte Wort. (Kleines Geheimnis: Ich habe ein Beispiel von wuf24.asp auf meiner Homepage)
3. AD Rotator (Werbe-Flipping-Komponente)
Jetzt im Internet befürchte ich, dass die Werbebanner auf den Homepages anderer Leute am nervigsten sind, und zwar am meisten Favorit sind die Werbebanner auf meiner eigenen Homepage. Nachrichten gibt es wie Spam in Hülle und Fülle, vor denen man sich nur schwer schützen kann. Sie können solchen Müll auch selbst erstellen. Die AD Rotator-Komponente von ASP kann bei jedem Öffnen oder Neuladen einer Webseite zufällig Anzeigen anzeigen. Dieses Beispiel besteht aus drei Teilen:
Routine wuf25.asp
<%@ Language=VBScript %>
<% Option explizit
Dim Adr
'AD Rotator-Objekt erstellen
Setze adr = Server.CreateObject("MSWC.AdRotator")
adr.Border = 2 'Geben Sie die Rahmengröße der Grafikdatei an
adr.Clickable = True 'Gibt an, ob das angezeigte Bild ein Hyperlink ist
adr.TargetFrame = "_blank" 'Legen Sie den Hyperlink fest, ob der Frame-Name angegeben werden soll, z. B.: _TOP _NEW _PARENT
'Rufen Sie die anzuzeigenden Bild- und Hyperlink-Einstellungen ab – eingestellt in der Datei AdrSet.txt
Response.Write adr.GetAdvertisement("AdrSet.txt")
%>
Inhalt von AdrSet.txt (gefolgt von Kommentaren, nicht der Inhalt dieser Datei):
WEITERLEITEN von wuf26.asp Nach dem Klicken auf die Anzeige wird diese von wuf26.asp verarbeitet
WIDTH 468 Breite des Anzeigenbildes
HÖHE 60 Werbebildhöhe
* Trennzeichen
http://www.163.com/ verweist auf den Link. Wenn kein Hyperlink vorhanden ist, schreiben Sie ein „-“.
NetEase-Textbeschreibung
20 zeigt das relative Gewicht der Werbung, also die Häufigkeit der Anzeige
http://www.sina.com.cn/
sina.com
30
http://www.canon.com.cn/
Kanon
50
In diesem Beispiel gibt es drei Bilder (Bildgröße 468 x 60) und Links. Die Beschreibung jedes Links nimmt vier Zeilen ein. Bei der tatsächlichen Verwendung können Sie der gleichen Methode folgen und weitere Bilder hinzufügen.
<% 'wuf26.asp
URL = Request.QueryString("url")
Response.Redirect(URL)
%>
wuf26.asp ist das einfachste Verarbeitungsprogramm. Sie können hier je nach tatsächlichem Bedarf weiteren Code hinzufügen.
Führen Sie es aus und es stellt sich heraus, dass die Verwendung dieser Komponente ebenfalls sehr einfach ist. Sie müssen lediglich Ihre eigene AdrSet.txt-Datei besorgen. Mit dieser Komponente können Sie sogar eine Ad-Exchange-Homepage entwerfen, die mittlerweile voll im Trend liegt.
4. Inhaltsverknüpfungskomponente
Offensichtlich bezieht sich diese Komponente auf Links. Wenn Sie die spezifische Verwendung dieser Komponente sofort wissen möchten, ist es meiner Meinung nach zu voreilig. Sie können auch zuerst ein klassisches Beispiel zitieren: Angenommen, Sie lesen a Buch im Internet, Sie dürfen mit den folgenden Links nicht vertraut sein: Kapitel 1, Kapitel 2,..., vorheriges Kapitel, nächstes Kapitel (oder vorherige Seite, nächste Seite) usw. Was wir jetzt tun müssen, ist, wie wir Sprünge zwischen diesen Links einfach und schnell einrichten können.
Erstellen Sie zunächst eine Linklisten-Textdatei, z. B. urllist.txt
wuf23.asp: Dateioperation (Dateizugriffskomponente)
wuf28.asp: Beispiel für die Verwendung der Inhaltsverknüpfungskomponente
wuf22.asp: Die Link-URL-Adresse und Beschreibung der Browserfunktionskomponente
werden durch die Tabulatortaste getrennt. Das folgende wuf27.asp wird verwendet, um alle Links in urllist.txt aufzulisten.
<% @LANGUAGE = VBScript %>
<% Option Explicit %>
<html><head><title>Nutzung der Content-Linking-Komponente</title></head>
<Körper>
<h2>Inhaltsverzeichnis: Beachten Sie, dass der Hauptlink Kapitel 2 ist. Sie müssen darauf klicken</h2>
<ul>
<%
Dim NextLink, Count
'Inhaltsverknüpfungskomponente erstellen
Set NextLink = Server.CreateObject("MSWC.NextLink")
'Ermitteln Sie die Anzahl der Links in der Datei urllist.txt
Count = NextLink.GetListCount("urllist.txt")
Dim url, Dscr, I
Für I = 1 Zu zählen
url = NextLink.GetNthURL ("urllist.txt", I) 'Hyperlink abrufen
Dscr = NextLink.GetNthDescription ("urllist.txt", I) 'Textbeschreibung abrufen
Response.Write „<li><a href = „““ & url & „““>“ & Dscr & „</a>“ & vbcrlf
Nächste
%>
</ul></body></html>
Nehmen Sie dann wuf28.asp als Beispiel, um zu veranschaulichen, wie automatisch zum vorherigen und nächsten Kapitel gesprungen wird.
<% @LANGUAGE = VBScript %>
<% Option Explicit %>
<html><head><title>Achten Sie auf diesen Link</title></head>
<body>
<p>Hier ist der Text von Kapitel 2...</p>
<% 'Jede Datei enthält den folgenden Satz, um eine automatische Verknüpfung zu erreichen%>
<!--#include file="wuf29.asp"-->
</body></html>
Fügen Sie hier den letzten Satz hinzu, um einen automatischen Sprung zu realisieren. Der Kern befindet sich in wuf29.asp.
<%
Dim NextLink, Rang
Setze NextLink = Server.CreateObject ("MSWC.NextLink")
„Was ist der aktuelle Link in urllist.txt?“
rank = NextLink.GetListIndex ("urllist.txt")
Response.Write „<hr>“
If (rank > 1) Then 'rank = 1 Die vorherige Seite existiert nicht
Response.Write "|<a href=""" & NextLink.GetPreviousURL("urllist.txt") & """>Vorheriges Kapitel</a>|"
End If
If (rank < NextLink.GetListCount("urllist.txt")) Then 'rank ist am Ende, dann gibt es keine nächste Seite
Response.Write "|<a href=""" & NextLink.GetNextURL("urllist.txt") & """>Nächstes Kapitel</a>|"
Ende wenn
%>
Nachdem Sie dieses Beispiel ausgeführt haben, werden Sie die Rolle dieser Komponente sofort verstehen. Kurz gesagt, es ist nicht erforderlich, auf jeder Seite „vorheriges Kapitel“ und „nächstes Kapitel“ zu schreiben .asp, ist das nicht sehr praktisch? ! Wäre es sonst nicht zu mühsam, wenn Sie den Link manuell ändern würden?
Jetzt sollten Sie verstehen, dass es im Internet eine große Anzahl kostenloser Zähler, kostenloser Message Boards, kostenloser Chatrooms, Werbeaustauschnetzwerke usw. gibt. Ihre Prinzipien sind nichts anderes als das, es besteht also kein Grund, sie anzubeten.
