Empfohlen: Entwerfen Sie das Anmeldemodul für ASP -Benutzer Benutzeranmeldungsüberprüfungsskript, chkpwd.asp. Folgendes ist der referenzierte Inhalt: % '========= Benutzeranmeldung Überprüfungskript ======' Wenn das übergebene Objekt noch nicht definiert ist, ist es als falsch definiert, und zeigt an, dass es keine gibt, dass es kein
Dieses Programm stellt die Anzahl des Zählers in der Zugriffsdatenbank ein und können natürlich auch andere gewünschte ODBC -Datenquellen verwenden. Dieses Programm liest die Zählinformationen aus der URL. Wie folgt:
<Img src = id = myTest & seq = Standard & cells = 7>
Parameter
Ausweis
Peugeot (d. H. Benutzername) der Client -Webseite. Jedes Mal, wenn Sie eine neue ID verwenden, wird ein neuer Datensatz in die Datenbank eingefügt. Wenn diese ID vorhanden ist, wird die Anzahl um 1. erhöht. Wenn Sie nicht möchten, dass der Client eine ID automatisch startet und sich registrieren muss, werden Sie den Wert automatisch an False zuweisen.
SEQ
Optional. Wird verwendet, um den Stil des Zählerbildes auszuwählen. Der Name des auf dem Client angezeigten Bilds ist .gif. Der Standardwert ist Defalut.gif, und dieses Defalut.gif muss im aktuellen Arbeitsverzeichnis platziert werden!
Zellen
Optional. Die Anzahl der im Count -Ergebnis angezeigten Bits beträgt 5 Bit (Sie können diesen Wert im Programm anpassen), wie dieses Programm ausführt
Kopieren Sie dieses Programm dort, wo Sie es auf dem Server möchten.
Erstellen Sie eine Datenquellen -Webcounter. In dieser Datenquelle muss ein Tabellenname vorhanden sein, und die folgenden Felder in dieser Tabelle:
Das Folgende ist der zitierte Inhalt:
<Tabellenrand = 1 Cellpadding = 3 Cellpacing = 1>
<tr>
<Th> Feld < /th>
<Th> Typ < /th>
<Th> indiziert < /th>
<Th> bedeutet < /th>
< /tr>
<tr>
<td> ident < /td>
<td> autonumber </td>
<td> Ja < /td>
<td> für Ihre Bedürfnisse </td>
< /tr>
<tr>
<td> id < /td>
<td> text < /td>
<td> Ja < /td>
<td> Benutzername </td>
< /tr>
<tr>
<td> count < /td>
<td> Nummer < /td>
<td> nein < /td>
<td> Zählnummern < /td>
< /tr>
< /table>
Weisen Sie bei Bedarf eine Berechtigung zur Datenbank zu
Erstellen Sie ein Verzeichnis, das GIF -Grafiken speichert, und platzieren Sie mindestens eine Standard -GIF -Grafikgruppe in diesem Verzeichnis. Geben Sie diese Datei gegebenenfalls Berechtigungen an.
Stellen Sie in diesem Verzeichnis einige digitale Grafiken ein, die durch 10 teilbar sein können.
Das Folgende ist der zitierte Inhalt:
<Tabellenbreite = 100% Grenze = 1 Cellpacing = 1 Cellpadding = 2>
<tr>
<td bgcolor =#ccffff> Datei <b> counter.asp < /b> < /td>
< /tr>
<tr>
<td bgcolor =#ffffcc> <pre>
< %
Antwort.ContentType = Image/GIF
Response.expires = 0
'Das Verzeichnis, in dem GIF -Balken platziert werden. Endet mit /
workDir = c:/gifbars/
'Setzen Sie dies auf false, wenn Sie das Autoeinfügen deaktivieren möchten
'Neue Zähleraufzeichnungen zu Datenbank bei jedem Hit mit Unique
'ID String
auto_insert = true
id = trim (request.queryString (id))
seq = trim (request.queryString (seq))
Wenn seq = dann seq = Standard
Zellen = Trim (Request.queryString (Zellen))
Wenn Zellen = dann Zellen = 5 sonst Zellen = Zellen*1
Setzen Sie conn = server.createObject (adodb.Connection)
Conn.open Webcounter
SQL = Wählen Sie Graf, identifizieren Sie sie aus dem Main Where Where id = '& id &'
Setzen Sie RS = Conn.Execute (SQL)
wenn nicht rs.eof dann
count = rs (count) 1
ident = rs (ident)
rs.close ()
conn.execute (aktualisieren Hauptset count = count 1 wobei Identity = & Identity)
conn.close ()
Gezeigtumbers ()
anders
rs.close ()
Wenn auto_insert = true und id <> dann
conn.execute (in die Hauptwerte (ID, Count) einfügen ('& id &', 1))
count = 1
Gezeigtumbers ()
Ende wenn
conn.close ()
Ende wenn
Subdestumumbers ()
Setzen Sie g = createObject (Shotgraph.image)
Dateiname = WorkDir & SEQ & .gif
Wenn G.GetFiledimensions (Dateiname, xsize, ysize, pal) <> 1 dann beenden
xDigit = xsize/10
G.Createimage XDIGIT*Zellen, ysize, Ubound (pal) 1
G.Initclipboard Xsize, ysize
G.SelectClipboard True
für i = 0 bis Ubound (Kumpel)
G.Setcolor I, Kumpel (I, 0), Kumpel (i, 1), Kumpel (i, 2)
nächste
G.Readimage Filename, Pal, 0,0
für i = 1 zu Zellen
K = getDigit (Graf, Zellen-I)
G.Copy (I-1)*xdigit, 0, xdigit, ysize, k*xdigit, 0, srccopy
nächste
Response.binarywrite g.gifimage (-1,1,)
Ende sub
Funktion getDigit (Nummer, Position)
Nummer1 = Nummer/(10^Position)
tmp = number1/10
GetDigit = number1-tmp*10
Endfunktion
%>
<xmp>
< /pre>
< /td>
< /tr>
< /table>
<hr> < /span> < /td>
< /tr>
<tr>
<td width = 50%> < /td>
<td width = 50%> <br> < /td>
< /tr>
<tr>
<td colspan = 2 align = rechts>
<img border = 0 src = bilder/bbstitle.gif> <a id = hlkaddmsg href =/addmsg.aspx? id = 234 style = color: rot> Hinterlasse einen Kommentar </a>
<img border = 0 src = Bilder/mail.gif> <a id = hlkmailto href =/mailto.aspx? id = 234> maile diese Seite </a> mailen </a>
<img border = 0 src = bilder /print.gif> <a href = javaScript: window.print ()> diese Seite drucken < /a>
<img border = 0 src = bilder/profil.gif> <a href = javaScript: void (null) onclick = if (! document.execcommand ('Saveas', 'shospx', 1)) return false; > Speichern Sie diese Seite < /a>
<img border = 0 src = bilder/saz.gif> <a href = bbs/index.asp> Sie haben Fragen </a>
< /td>
< /tr>
<tr bgcolor =#97b9ff>
<td width = 50%> <b> <font color =#ffffff> verwandte Artikel < /font> < /b> < /td>
<td width = 50%> <b> <font color =#ffffff> Verwandte Kommentare < /font> < /b> < /td>
< /tr>
<tr>
<td Breite = 50% Valign = Top>
< /td>
<td Breite = 50% Valign = Top>
< /td>
< /tr>
<tr>
<td width = 50%>
< /td>
<td width = 50% align = rechts> <img border = 0 src = bilder /more
< /tr>
< /table>
< /td>
< /tr>
< /table>
< /td>
< /tr>
< /table>
< /body>
< /html>
Anteil: Eine kurze Diskussion über das Prinzip des ASP -Akquisitionsprogramms Die Hauptschritte des Sammelprogramms sind wie folgt: 1. Erhalten Sie den Inhalt der gesammelten Seite 2. Extrahieren Sie alle Daten aus dem Erfassungscode 1. Erhalten Sie den Inhalt der gesammelten Seite. Ich kenne derzeit ASP häufig verwendete Methoden, um die gesammelte Seite zu erhalten: 1.