Dieses Programm speichert die Zählernummern in der ACCESS-Datenbank, Sie können jedoch jede andere ODBC-Datenquelle verwenden. Dieses Programm liest die Zählerinformationen von der URL:
< IMG src="id=MYTEST&seq=default&cells =7" >
Parameter
id ist
die Bezeichnung der Kunden-Webseite (d. h. der Benutzername), wenn Sie eine neue ID verwenden, wird ein neuer Datensatz in die Datenbank eingefügt. Wenn die ID ursprünglich vorhanden ist, erhöht sich ihre Anzahl um 1. Wenn Sie nicht möchten, dass der Kunde automatisch eine ID aktiviert, können Sie den Wert „Automatische Einfügung“ auf „Falsch“ zuweisen.
Dies
ist optional, um den Stil des Zählerbilds auszuwählen Der Name des auf dem Client angezeigten Bildes ist .gif. Der Standardwert ist „defalut.gif“, und diese „defalut.gif“ muss im aktuellen Arbeitsverzeichnis abgelegt werden.
Die Anzahl der angezeigten Ziffern ist
optional
Ergebnis ist der Standardwert 5 Ziffern (dieser Wert wird im Programm festgelegt (kann auch angepasst werden). Wie wird dieses Programm ausgeführt? Kopieren Sie dieses Programm an die gewünschte Stelle auf dem Server.
Erstellen Sie eine Datenquelle „Webcounter“. Es muss vorhanden sein eine Tabelle mit dem Namen „main“ in dieser Datenquelle. Das Folgende sind die Tabellenfelder in:
< table border="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 >Anzahl< /td >
< td >Nummer</ td >
< td >Nein< /td >
< td >Zahlen zählen</td>
< /tr >
< /table >
Weisen Sie der Datenbank ggf. Berechtigungen zu
und erstellen Sie ein Verzeichnis zum Speichern von GIF-Grafiken. In diesem Verzeichnis müssen Sie gegebenenfalls Berechtigungen für diese Datei erteilen.
Legen Sie in diesem Verzeichnis einige Zahlengrafiken ab, die durch 10 teilbar sind.
< table width="100%" border="1" cellspaced="1" cellpadding="2" >
<tr>
< td bgcolor="#ccffff" >Datei < b >counter.asp< /b > </ /td >
< /tr >
<tr>
< td bgcolor="#ffffcc" >< pre >
<%
Response.ContentType="image/gif"
Response.Expires=0
'Das Verzeichnis, in dem GIF-Balken platziert werden. Endet mit .
workdir="c:gifbars"
„Setzen Sie dies auf „Falsch“, wenn Sie das automatische Einfügen deaktivieren möchten
'Neue Zählerdatensätze für die Datenbank bei jedem Treffer mit Einzigartigkeit
'id string
auto_insert=True
id=Trim(Request.QueryString("id"))
seq=Trim(Request.QueryString("seq"))
wenn seq="" dann seq="default"
Zellen=Trim(Request.QueryString("Zellen"))
Wenn Zellen="", dann Zellen=5, sonst Zellen=Zellen*1
set conn=Server.CreateObject("ADODB.Connection")
conn.Öffnen Sie „Webcounter“
sql="select count,ident from main where id='" & id & "'"
set rs=conn.Execute(sql)
wenn nicht rs.EOF dann
count=rs("count")+1
ident=rs("ident")
rs.close()
conn.Execute("update main set count=count+1 where ident=" & ident)
conn.close()
ShowNumbers()
anders
rs.close()
wenn auto_insert=True und id< >"" dann
conn.Execute("in Hauptwerte (id,count) einfügen ('" & id & "',1)")
Anzahl=1
ShowNumbers()
Ende wenn
conn.close()
end if
Sub ShowNumbers()
set g=CreateObject("shotgraph.image")
Dateiname=Arbeitsverzeichnis & seq & ".gif"
if g.GetFileDimensions(filename,xsize,ysize,pal)< >1 then Exit Sub
xdigit=xsize10
g.CreateImage xdigit*cells,ysize,UBound(pal)+1
g.InitClipboard xsize,ysize
g.SelectClipboard True
für i=0 bis UBound(pal)
g.SetColor i,pal(i,0),pal(i,1),pal(i,2)
nächste
g.ReadImage-Dateiname,pal,0,0
für i=1 in Zellen
k=GetDigit(count,cells-i)
g.Copy (i-1)*xdigit,0,xdigit,ysize,k*xdigit,0,"SRCCOPY"
nächste
Response.BinaryWrite g.GifImage(-1,1,"")
End Sub
Function GetDigit(number,position)
Nummer1=Nummer(10^Position)
tmp=Nummer110
GetDigit=Nummer1-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="right" >
< img border="0" src="images/bbstitle.gif" >< a id="hlkAddMsg" href="/AddMsg.aspx?id=234" style="color:red" >Hinterlasse einen Kommentar</a >
< img border="0" src="images/mail.gif" >< a id="hlkMailTo" href="/MailTo.aspx?id=234" >Diese Seite per E-Mail versenden</a>
< img border="0" src="images/print.gif" >< a href="javascript:window.print()" >Diese Seite drucken</a>
< img border="0" src="images/profile.gif" >< a href="javascript:void(null)" onclick="if(!document.execCommand('SaveAs','show.aspx',1 )) return false;" >Diese Seite speichern< /a >
< img border="0" src="images/ask.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 width="50%" valign="top" >
</ /td >
< td width="50%" valign="top" >
</ /td >
< /tr >
<tr>
< td width="50%" >
</ /td >
< td width="50%" align="right" >< img border="0" src="images/more.gif" >< a id="hlkRela" >< /a >< /td >
< /tr >
< /table >
</ /td >
< /tr >
< /table >
</ /td >
< /tr >
< /table >
< /body >
< /html >