Har en databas där jag lagrar En liten lösning: Hej! Hoppas att detta ska ge dig en vink om vägen fram till ditt mål att visa annonserna i ordning samt att uppdatera klicken på de olika bannrarna:Hur kan man göra??
source - sökväg till banner
link - länken till bannerns hemsida
klick - räknar klick på banner
id - bannerns id
Detta har jag som räknar klicken:
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source = "& Server.MapPath("db/banner1.mdb")
SQL = "SELECT Count(*) AS klick FROM banner"
Set RecSet = Connect.Execute(SQL)
strPoster = RecSet("klick")
RecSet.Close
Set RecSet = Nothing
%>
Sen kommer det svåra!!
Jag vill kunna hämta post1 vid första träffen på sidan, vid en Reload så skall post2 hämtas osv. Alltså först visas post 1 och vid en reload post 2 och när den kommit till sista posten i databasen så ska den börja om på post 1 igen!! Tacksam för svar!!
/Åsa Gruvsjö
www.gruvsjo.comSv: Hur kan man göra??
<code>
<%
Dim Conn
Dim rsTemp
Dim strSQL
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("db/banner1.mdb")
strSQL = "SELECT TOP 1 * FROM banner ORDER BY klick"
Set rsTemp = Connect.Execute(strSQL)
Response.Write ""
strSQL = "UPDATE banner SET klick = klick + 1 WHERE id = " & rsTemp("id")
Connect.Execute strSQL
rsTemp.Close
Set rsTemp = Nothing
Connect.Close
Set Connect=Nothing
%>
</code>
Annars bör du lagra banners som visats för användaren i cookie, sessionsvariabel eller en tabell.Sv: Hur kan man göra??
Vi kan addera en sida som heter raknaklick.asp. Vi får ändra om Andreas rad
Response.Write ""
till
Response.Write ""
och innehållet i raknaklick.asp borde se ut något i stil med
<%
Dim Conn
Dim strSQL
Dim strURL
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("db/banner1.mdb")
strURL = Replace(Request.QueryString("url"), "'", "''")
strSQL = "UPDATE banner SET klick = klick + 1 WHERE link = '" & strURL & "'"
Connect.Execute strSQL
Connect.Close
Set Connect=Nothing
Request.Redirect(strURL)
%>
Lycka till och lev väl,
Tom S.Sv: Hur kan man göra??
<%
If Session("ShowBanner") = "" Then
Session("ShowBanner") = 0
Else
Session("ShowBanner") = Session("ShowBanner") + 1
End If
intBannerPos = Session("ShowBanner")
strSQL = "SELECT * FROM banner"
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source = "& Server.MapPath("db/banner1.mdb")
Set objRS = Connect.Execute(strSQL)
If Not objRS.EOF Then
arrBanners = objRS.GetRows()
End If
Set objRS = Nothing
Connect.Close
Set Connect = Nothing
If intBannerPos > UBound(arrBanners,2) Then
intBannerPos = 0
Session("ShowBanner") = intBannerPos
End If
intBannerID = arrBanners(0, intBannerPos)
strBannerSource = arrBanners(1, intBannerPos)
strBannerURL = arrBanners(2, intBannerPos)
intBannerClicks = arrBanners(3, intBannerPos)
%>
<html>
<head>
<title>Show Banner</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
Response.Write "" & _
""
%>
</body>
</html>
Skapa sedan en sida som heter redir.asp och i den sidan lägger du in följande kod:
<%
strBannerURL = Request.QueryString("url")
strSQLupd = "UPDATE banner SET klick = klick + 1 WHERE link = '" & strBannerURL & "'
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source = "& Server.MapPath("db/banner1.mdb")
Connect.Execute(strSQLupd)
Connect.Close
Set Connect = Nothing
Response.Redirect strBannerURL
%>
cya,
PatrikB