AdRotator

Hur bär man sig åt för att få klickstatisik i filen ads.asp

<% 
URLEN = request.querystring("url") 
select case URLEN 
case "http://www.webforum.nu" 
Application("www.webforum.nu") = Application("www.webforum.nu") + 1 
case "http://www.figure-art.nu" 
Application("http://www.figure-art.nu") = Application("http://www.figure-art.nu") + 1 
case "http://www.fuzzydizzie.com" 
Application("http://www.fuzzydizzie.com") = Application("http://www.fuzzydizzie.com") + 1 
End select 
response.redirect URLEN 
%>

har du en databas eller nånting att spara klicken i?

som din kod ser ut nu så nollställs statistiken så fort din applikation startas om.

Nåt förslag på hur man sparar ner infon och hur man sköter redirecten, har inte hittat nåt om det på nätet

Har skapat tabellen och det ser ut som:

<%
Dim objConn, addStats 
Dim varSite
Dim varClicks

varSite= 
varClicks

	SET objConn = connect()
	addStats = "INSERT INTO statistiktabellen"
	addStats = addNews & "(site,clicks) "
	addStats = addNews & "VALUES('"& varSite&"',#"& varClicks&"#)"

	response.write addStats 
	'response.end
	objConn.Execute(addStats )
%>

Nu är bara frågan vilka värden man ska ange

 
<%
URLEN = request.querystring("url") 

if(URLEN = "") Then 
    Response.Write("Error: url saknas!")
Else
    SQL = "UPDATE tbl SET col=col +1 WHERE url='" & URLEN & "'"
    ObjConn.ExeCute(SQL)
    response.redirect(URLEN)
End if
%>

förutsätter att sidornas url finns i databasen! :)

Det borde se ut något såhär, förutsätter att du har en kolumn Id också i databastabellen med ett unikt id för varje rad.

Dim url, SQLStmtRead, SQLStmtUpdate, Connection, RS
url = Request.QueryString("url")

SQLStmt = "SELECT Id From statistiktabellen Where site = " & url & ""

Set Connection = CreateObject("ADODB.Connection")
Connection.Open strConn

Set RS = Connection.Execute(SQLStmtRead)
SQLStmtUpdate = "UPDATE statistiktabellen SET clicks = clicks+1 Where Id = " & RS("id") & ""

If NOT RS.EOF Then
	Connection.Execute(SQLStmtUpdate)),,128
End If
RS.Close
Set RS = Nothing
Connection.Close
Set Connection = Nothing

Response.Redirect(url)

jag löste det med

	SET objConn = connect()
	addStats = "INSERT INTO statistiktabellen"
	addStats = addStats & "([site],[clicks]) "
	addStats = addStats & "VALUES('"& URLEN &"',1)"
	response.write addStats
	'response.end
	objConn.Execute(addStats)

Response.Redirect(URLEN)