goto.asp skal se ud som følgende:
<%
'Denne side sender videre til linket, og opdatere tælleren.
dato = day(date)
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("db.mdb")
ID = Request.QueryString("id")
Set objConn = Server.CreateObject ("ADODB.Connection")
Set objRec2 = Server.CreateObject ("ADODB.Recordset")
Set objRec3 = Server.CreateObject ("ADODB.Recordset")
set objRec4 = Server.CreateObject("ADODB.Recordset")
if month(date) mod 2 = 0 then
if month(date) = 2 then
tomorrow = (dato+1) mod 28
else
tomorrow = (dato +1) mod 30
end if
else
tomorrow = (dato + 1) mod 31
end if
'response.write tomorrow
objConn.Open DSN
sql = "Select * from tcount"
objRec4.open sql, objConn, 3, 3
objRec4.Filter = "dato = '" & tomorrow & "'"
while not objRec4.EOF
objRec4("hits") = 0
objRec4.update
objRec4.movenext
wend
objRec4.close
set objRec4 = nothing
strSQL = "SELECT * FROM TLinks"
strSQL2 = "SELECT * FROM tcount"
objRec3.Open strSQL2, objConn, 3, 3
objRec3.Filter = "linkid = '" & ID & "' AND dato = '" & dato & "'"
objRec3("hits") = ObjRec3("hits") + 1
objRec3.Update
objRec2.Open strSQL, objConn, 3, 3
objRec2.Filter = "id = " & ID
objRec2("LinkHits") = objRec2("LinkHits") + 1
objRec2.Update
Response.Redirect (objRec2("Link"))
objRec2.Close
Set objRec2 = Nothing
objConn.Close
Set objConn = Nothing
'objRec3.Close
'Set objRec3 = Nothing
%>
Dispbesoeg.asp skal så se sådan her ud...
<%
Option Explicit
Response.Expires = 0
Dim objConn, objRS, strQuery, sql, rs, str, i, streng, myarr, dato, tomorrow, numdays, numDaysLast
Dim strConnection
set objConn = Server.CreateObject("ADODB.Connection")
strConnection = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("db.mdb") &";DefaultDir="& Server.MapPath(".") &""
strConnection = strConnection & "UID=sa;PWD=;"
strQuery = "SELECT * From TLinks "
strQuery = strQuery & "ORDER BY ID"
objConn.Open strConnection
set objRS = objConn.Execute(strQuery)
dato = day(date)
%>
<HTML>
<HEAD>
<title>Admin Page</title>
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
</HEAD>
<body>
<br>
<p ALIGN="center"><FONT COLOR="#000000" FACE="verdena" size="+1">Denne side viser hvor mange der har været inde på de enkelte sider.</font></p><BR><BR>
<center>
<h1> Total antal besøgende: </h1>
<table>
<tr bgcolor="#808080" bordercolor="#000000">
<td>
<div align="center"><b><font face="verdena" COLOR="000000">Link</font></b></div>
</td>
<td>
<div align="center"><b><font face="verdena" COLOR="000000">Besøgende</font></b></div>
</td>
<td>
<div align="center"><b><font face="verdena" COLOR="000000">ID</font></b></div>
</td>
</tr>
<%
While Not objRS.EOF
i = 0
%>
<tr bordercolor="#000000">
<td HEIGHT="0" ROWSPAN="0" WIDTH="0">
<p align="left"><font face="verdena" COLOR="000000"><%=objRS.Fields("Link")%>
<% streng = streng & objRS.fields("link") & ", " %></font></p>
</td>
<td HEIGHT="0" ROWSPAN="0" WIDTH="0">
<p align="center"><font face="verdena" COLOR="000000"><%=objRS.Fields("LinkHits")%></font></p>
</td>
<td HEIGHT="0" ROWSPAN="0" WIDTH="0">
<p align="right"><font face="verdena" COLOR="000000"><%=objRS.Fields("ID")%></font></p>
</td>
</tr>
<%
objRS.MoveNext
i = i+1
Wend
objRS.close
objConn.close
set objRS = Nothing
set objConn = Nothing
myarr = Split(streng,",")
%>
</table>
<br><br>
<h1> Besøgende pr. dag </h1>
<table cellspacing="2" border="1" ALIGN="center">
<tr>
<td width="80">
dato:
</td>
<%
i = 0
while i < 16
response.write "<td width='30' ALIGN='center'>" & myarr(i) & "</td>"
i = i+1
wend
%>
</tr>
<%
str = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("db.mdb")
set rs = Server.createObject("ADODB.Connection")
sql = "Select * from tcount"
rs.open str
set rs = rs.execute(sql)
if month(date) mod 2 = 0 then
if month(date) = 2 then
tomorrow = (dato+1) mod 28
numdays = 28
numDaysLast = 31
else
tomorrow = (dato +1) mod 30
numdays = 30
numDaysLast = 31
end if
else
tomorrow = (dato + 1) mod 31
numdays = 31
NumDaysLast = 30
end if
while not rs.eof
response.write "<tr>"
response.write "<td>"
if not rs.fields("dato") = tomorrow then
if not rs.fields("dato") > numDaysLast then
if rs.fields("dato") <= day(date) then
response.write rs.fields("dato") & "/" & month(date)
else
response.write rs.fields("dato") & "/" & (month(date)-1)
end if
response.write "</td>"
response.write "<td ALIGN='center'>"
response.write rs.fields("hits")
response.write "</td>"
response.write "<td ALIGN='center'>"
rs.movenext
response.write rs.fields("hits")
response.write "</td>"
response.write "<td ALIGN='center'>"
response.write rs.fields("hits")
rs.movenext
response.write "</td>"
response.write "<td ALIGN='center'>"
response.write rs.fields("hits")
rs.movenext
response.write "</td>"
response.write "<td ALIGN='center'>"
response.write rs.fields("hits")
rs.movenext
response.write "</td>"
response.write "<td ALIGN='center'>"
response.write rs.fields("hits")
rs.movenext
response.write "</td>"
response.write "<td ALIGN='center'>"
response.write rs.fields("hits")
rs.movenext
response.write "</td>"
response.write "<td ALIGN='center'>"
response.write rs.fields("hits")
rs.movenext
response.write "</td>"
response.write "<td ALIGN='center'>"
response.write rs.fields("hits")
rs.movenext
response.write "</td>"
response.write "<td ALIGN='center'>"
response.write rs.fields("hits")
rs.movenext
response.write "</td>"
response.write "<td ALIGN='center'>"
response.write rs.fields("hits")
rs.movenext
response.write "</td>"
response.write "<td ALIGN='center'>"
response.write rs.fields("hits")
rs.movenext
response.write "</td>"
response.write "<td ALIGN='center'>"
response.write rs.fields("hits")
rs.movenext
response.write "</td>"
response.write "<td ALIGN='center'>"
response.write rs.fields("hits")
rs.movenext
response.write "</td>"
response.write "<td ALIGN='center'>"
response.write rs.fields("hits")
rs.movenext
response.write "</td>"
response.write "<td ALIGN='center'>"
response.write rs.fields("hits")
rs.movenext
response.write "</td>"
response.write "</tr>"
rs.movenext
else
rs.move(16)
end if
else
rs.move(16)
end if
wend
rs.close
set rs = nothing
%>
</table>
<p ALIGN="right"><a href="java script:history.go(-1)">tilbage</a></p>
<br>
<br>
</body>
</html>
Sender db'en samt filerne til din mail...
Mvh. Jens E
Ny bruger
Nybegynder
Opret
Preview
