Counter på sidan!

http://www.thecounter.com om du inte orkar göra en egen...

------------------
tl@beta.telenordia.se
http://go.insane.org

Grejen är inte den att jag inte orkar...det är så att jag inte riktigt kommit igång med programeringen. Men jag är i akut behov av ett "eget" script!

------------------
.:cobraeyes:.

Kolla då http://www.aspcode.com, där finns säkert koden om du vill göra den i asp, eller vad hade du tänkt dig?

------------------
tl@beta.telenordia.se
http://go.insane.org

Eller om vi pratar Perl:
http://cgi.resourceindex.com/Programs_and_Scripts/Perl/Access_Counters/Graphical/ http://cgi.resourceindex.com/Programs_and_Scripts/Perl/Access_Counters/Text_Based/ http://cgi.resourceindex.com/Programs_and_Scripts/Perl/Logging_Accesses_and_Statistics/

/Csson

Bilder får du göra eller om du vill ha mina som jag har på min sida så hojta till. Denna räknare stegar BARA första gången och sedan kan man "springa runt" utan att få en glädje räknare ;) Detta script är mitt så....Men varsågod om det är ngt sånt här du vill ha :)
<%
Dim dbCounterPath
Dim myConn
Dim SQLStmt
Dim SQLupd
Dim rsCounter
Dim totCountDigits
Dim CounterBgColor
Dim CounterBorderColor
Dim strPage

' Response.Write Server.MapPath("/katalog/katalog.mdb")
strPage = Request.ServerVariables("URL")
' cookie check
' om den finns eller ej
If Request.Cookies(strPage) = "" Then
Response.Cookies(strPage) = 1
Application.Lock
'Response.Write strPage & "<br>"
dbCounterPath = "DBQ=" & Server.MapPath("/katalog/katalog.mdb")
Set myConn = CreateObject("ADODB.Connection")
Set rsCounter = CreateObject("ADODB.Recordset")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & dbCounterPath
' New Page ?
SQLStmt = "SELECT fldCount FROM tblCount where Page='" & strPage & "'"
set rsCounter = myConn.Execute(SQLStmt)
'rsCounter.Open SQLStmt, myConn
if rsCounter.EOF then
rsCounter.Close
Set rsCounter = nothing
SQLStmt = "INSERT INTO tblCount (fldCount,Page) VALUES (0,'" & strPage & "');"
'SQLStmt = "INSERT INTO tblCount (fldCount,Page) VALUES (0,'NISSE');"
'Response.Write SQLStmt & "<br>"
myConn.Execute SQLStmt
else
rsCounter.Close
Set rsCounter = nothing
end if
' Get count and add 1
SQLStmt = "SELECT fldCount FROM tblCount where Page='" & strPage & "'"
set rsCounter = myConn.Execute(SQLStmt)
rsCounter.MoveFirst
count = Int(rsCounter("fldCount") + 1)
rsCounter.Close
Set rsCounter = nothing
' Update
SQLupd ="UPDATE tblCount SET fldCount = " & Count & " where Page='" & strPage & "'"
myConn.Execute (SQLupd)
myConn.Close
Set myConn = nothing
Application.UnLock
end if

sub WriteCounter

strPage = Request.ServerVariables("URL")

CounterBgColor = "#F6D9AC"
CounterBorderColor = "#666666"

totCountDigits = 5 ' så många siffror ska räknaren bestå av

dbCounterPath = "DBQ=" & Server.MapPath("/katalog/katalog.mdb")

'Response.Write dbCounterPath & "<br>"
'Response.Write strPage & "<br>"

' hämta uppgift om hur många besök som varit
Application.Lock
dbCounterPath = "DBQ=" & Server.MapPath("/katalog/katalog.mdb")
Set myConn = CreateObject("ADODB.Connection")
Set rsCounter = CreateObject("ADODB.Recordset")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & dbCounterPath
SQLStmt = "SELECT fldCount FROM tblCount where Page='" & strPage & "'"
'Response.Write SQLStmt & "<br>"

set rsCounter = myConn.Execute(SQLStmt)
'rsCounter.Open SQLStmt, myConn

Count = rsCounter("fldCount")

rsCounter.Close
Set rsCounter = nothing
myConn.Close
Set myConn = nothing

' hur många siffror ska räknaren bestå av

If Len(Count) < totCountDigits Then
Do Until Len(Count) = totCountDigits
Count = "0" & Count
Loop
End If

Application.UnLock

' Denna funktion ändrar text siffrorna till bild siffror

Count = Replace(Count,"0","<img src=/katalog/0.gif border=0>")
Count = Replace(Count,"1","<img src=/katalog/1.gif border=0>")
Count = Replace(Count,"2","<img src=/katalog/2.gif border=0>")
Count = Replace(Count,"3","<img src=/katalog/3.gif border=0>")
Count = Replace(Count,"4","<img src=/katalog/4.gif border=0>")
Count = Replace(Count,"5","<img src=/katalog/5.gif border=0>")
Count = Replace(Count,"6","<img src=/katalog/6.gif border=0>")
Count = Replace(Count,"7","<img src=/katalog/7.gif border=0>")
Count = Replace(Count,"8","<img src=/katalog/8.gif border=0>")
Count = Replace(Count,"9","<img src=/katalog/9.gif border=0>")

	Response.Write  "\<table border=0 cellspacing=0 cellpadding=0\>" & vbcrlf
	Response.Write "\<tr bgcolor=#636363\>" & vbcrlf
	Response.Write "    \<td\>"
	Response.Write "      \<table border=0 cellspacing=1 cellpadding=0\>"
	Response.Write "        \<tr bgcolor=" & CounterBgColor & "\> "
	Response.Write "          \<td\>" & count & "\</td\>"
	Response.Write "        \</tr\>"
	Response.Write "      \</table\>"
	Response.Write "    \</td\>"
	Response.Write "  \</tr\>"
	Response.Write "\</table\>"

end sub

%>

------------------
/Mvh Annelie( http://www.annelie.nu )

[Redigerat av Annelie den 23 maj 2000]

Annelie
Oj vilken lång kod för en räknare! :)

------------------
woodi

Svenska FF1
www.johan-skog.nu

Mmm men storleken har ju ingen betydelse ;)

------------------
/Mvh Annelie( http://www.annelie.nu )

Mmm men storleken har ju ingen betydelse

så sant som det var sagt!

"It ain't the size that matters, it's the motion of the ocean"

------------------
.:cobraeyes:.

Flyttas till ASP.