Ændring af script
Hej eksperter,Jeg har et script jeg bruger til at tælle besøgte sider på mit domæne.
Scriptet virker som det skal men jeg kunne godt tænke mig at den side med fleste hits stod først, herefter den med næstfleste hits, osv.
Håber der er en der kan fixe det :)
<%
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("shop.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
Function fixQuotes( theString )
fixQuotes = Replace( theString, "'", "''" )
End Function
Function Formatdate(theDate)
Formatdate = day(thedate) & "/" & month(thedate) & "-" & year(thedate)
End Function
Function pad(input)
If int(input) < 10 Then
pad = "0" & input
Else
pad = input
End If
End Function
Function Formattime(TheTime)
Formattime = pad(hour(theTime)) & "." & pad(minute(theTime))
End Function
%>
<%
If Request.Querystring("mode") = "" Then
Response.Redirect("statistik.asp?mode=last_ten")
End If
%>
<%
If Request.Querystring("mode") = "last_ten" Then
Sql = "SELECT TOP 10 * FROM count ORDER BY ID DESC"
Set RS = Con.Execute(Sql)
SqlAlle = "SELECT COUNT(*) AS Totalhits FROM count"
Set RSCount = Con.Execute(SqlAlle)
%>
Denne del bruges til sidevisning, da sites er valgt.
<%
If Request.Querystring("mode") = "sites" Then
Sql = "SELECT * FROM sider ORDER BY Count DESC"
Set RS = Con.Execute(Sql)
SqlAlle = "SELECT COUNT(*) AS Totalhits FROM count"
Set RSCount = Con.Execute(SqlAlle)
%>
<html>
<head>
<title>statistik</title>
<link rel=stylesheet type="text/css" href="stylesheet.css">
</head>
<body>
<h1>Site statistik siden 4 juli 2005 - Totale hits siden 4 Juli 2005 : <%=RSCount("Totalhits")%></h1>
<a href="statistik.asp?mode=last_ten">Sidste 10 hits</a> - <a href="statistik.asp?mode=alle">Alle hits</a>
<br><br>
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr>
<td class="top" valign="top" align="center"><strong>Site</strong></td>
<td class="top" valign="top" align="center"><strong>Hits</strong></td>
</tr>
<%Do While Not RS.EOF%>
<tr>
<td valign="top"><%=RS("URL")%></td>
<td valign="top" align="center"><%=RS("Count")%></td>
</tr>
<%
RS.MoveNext
Loop
%>
</table>
<br>
<div align="right">
</div>
</body>
</html>
<%
End If
%>
