kommentarer.asp (formuläret)

Ett helt vanligt HTML-formulär där vi använder attributet name för att senare identifiera vilken uppgift som ska till vilket ställe i databasen.

<table width="550" align="left" border="0">
<form method="post" action="spara.asp?do=spara">
  <tr>
	<td colspan="3" width="550"><b>Rubrik:</b> (max 45 tecken)<br /><input maxlength="45" value="" name="rubrik" class="c_input_l" /></td>
  </tr>
  <tr>
	<td colspan="3" width="550"><b>Text:</b><br><textarea name="kommentar" class="c_textarea"></textarea>
	<p class="text_xs_nm">Följande HTML-taggar kan/får användas: <em>kursiv</em> <em></em> och <strong>fet</strong> <strong></strong></p></td>
  </tr>
  <tr>
	<td width="245" valign="top"><b>Namn:</b><br><input value="" name="namn" class="c_input" /></td>
	<td width="245" valign="top"><b>Hemsida:</b><br /><input value="http://www." name="hemsida" class="c_input" /></td>
  </tr>
  <tr>
	<td width="275" valign="top"><b>E-post:</b><br /><input value="" name="epost" class="c_input" />
	</td>
	<td width="275" valign="top"><b>Spamskydd:</b><br /><img src="grafik/captcha.jpg" class="ikon"> <input value="" name="spamprot" class="c_input_s2" /></td>
  </tr>
  <tr>
	<td colspan="3" width="550">
	<input type="submit" value="Posta kommentar" class="form_submit" />
	</td>
  </tr>
</form>
</table>

spara.asp

Funktionen för att spara kommentarerna hämtar captcha-koden och den aktuella tiden och lägger i variabler. De resterande uppgifterna lägger jag (slarvigt nog) inte i variabler, utan hämtas i samma stund som jag matar in upppgifterna i databasen.

Filen funktioner.asp inkluderas eftersom jag behöver funktionen FixaTecken som gör om citationstecken till två st ‘.

<%If Request.Querystring("do") = "spara" Then
	<!--#include file="includes/funktioner.asp"-->
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &Server.MapPath("databas\db.mdb")

	spamprotection	= Request.Form("spamprot")
	tid = FormatDateTime(Time, vbLongTime)

	If spamprotection = "D4gf68Z" Then
		SQL = "Insert Into comments (title,comment,datum,tid,namn,hemsida,epost) Values('" & FixaTecken(Request.Form("rubrik")) & "','" & FixaTecken(Request.Form("kommentar")) & "','" & date & "','" & tid & "','" & Request.Form("namn") & "','" & Request.Form("hemsida") & "','" & Request.Form("epost") & "')"
		Conn.Execute(SQL)

		Response.Redirect "http://www.doman.se/kommentarer.asp?next=1"
	Else
		Response.Redirect "http://www.doman.se/kommentarer.asp?next=1"
	End If

	RecSet.Close
	Conn.Close
	Set RecSet = Nothing
	Set Conn = Nothing
End If%>

komentarer.asp (visa kommentarer)

Här börjar jag med att inkludera funktioner.asp eftersom jag behöver funktionen VbCrLfToBreak. Den gör så att radbrytningar som skrivits in i databasen genererar ett radbyte i HTML (<br />).

ANTAL=”7″ anger att sju kommentarer ska visas per sida.

Jag har lagt en funktion för att bläddra mellan kommentarssidorna både ovanför och under de sju kommentarer som visas.

Jag kontrollerar även om fälten namn och hemsida är ifyllda. Om de innehåller något så skrivs de ut och om båda är ifyllda så läggs ett kommatecken till mellan namnet och URL:en till hemsidan.

<%

<!--#include file="includes/funktioner.asp"-->
ANTAL = "7"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &Server.MapPath("databas\db.mdb")
Set RecSet = Server.CreateObject("ADODB.RecordSet")

	Sidan = Request.QueryString("next")
	If Sidan = "" then
	   sida = 1
	Else
	   sida = Sidan
	End If 

	With RecSet
	   .CursorLocation = 3
	   .CacheSize = ANTAL
	End With

SQL = "SELECT * FROM comments ORDER BY datum DESC, tid DESC"
RecSet.Open SQL, Conn

	With RecSet
	  .MoveFirst
	  .PageSize = ANTAL
	  .AbsolutePage = sida
	End With

	Sidor =  RecSet.PageCount
	 x = 0

If Sidor > 1 Then%>
	<div class="contentrow_sidnr">
		<p>
		<%If (Int(sida)) <> 1 Then%>
		<a href="kommentarer.asp?next=<%=(Int(sida)-1)%>" class="intern">Framåt</a> |
		<%Else%><%End If%>

		<%For Sid = 1 To Sidor
			 If (Int(Sid)) = (Int(sida)) Then%>
		<%=Sid%><%Else%> <a href="kommentarer.asp?next=<%=Sid%>" class="intern"><%=Sid%></a> <%End If
		 Next%>

		<%If (Int(sida)) <> (Int(Sidor)) Then%>
		 | <a href="kommentarer.asp?next=<%=(Int(sida)+1)%>" class="intern">Bakåt</a>
		<%Else%><%End If%>
		</p>
	</div>
	<div style="float: left; width: 630px; border-bottom: 1px solid #FF4500; margin: 0px; padding: 0px;"></div>
<%End If%>

<%Do While Not RecSet.EOF And x < RecSet.PageSize%>

<div class="commentrow">
<%
titel = RecSet("title")
If titel <> "" Then%>
	<h2><%=RecSet("title")%></h2>
<%End If%>

	<%
	tid_a = RecSet("tid")
	tiden = FormatDateTime(tid_a, vbShortTime)
	%>

	<p class="komdatum" style="margin"><%=RecSet("datum")%> - <%=tiden%></p>
	<p class="text_medium"><%Response.Write(VbCrLfToBreak(RecSet("comment")))%></p>

	<%
	namn = RecSet("namn")
	hemsida = RecSet("hemsida")
	%>

	<%If namn <> "" Then%>
	<p class="text_s" style="font-style:italic;"><%=RecSet("namn")%>
	<%End If%>

	<%If namn <> "" AND hemsida <> "http://www." AND hemsida <> "" Then Response.Write ", "%>

	<%If hemsida <> "http://www." OR hemsida = "" Then%>
	<a href="<%=RecSet("hemsida")%>" target="_blank" rel="nofollow" class="extern"><%=RecSet("hemsida")%></a>
	<%Else
	End If%>
	</p>
</div>

<%x=x+1
RecSet.MoveNext
Loop

If Sidor > 1 Then%>
	<div class="contentrow_sidnr">
		<p>
		<%If (Int(sida)) <> 1 Then%>
		<a href="kommentarer.asp?next=<%=(Int(sida)-1)%>" class="intern">Framåt</a> |
		<%Else%><%End If%>

		<%For Sid = 1 To Sidor
			 If (Int(Sid)) = (Int(sida)) Then%>
		<%=Sid%><%Else%> <a href="kommentarer.asp?next=<%=Sid%>" class="intern"><%=Sid%></a> <%End If
		 Next%>

		<%If (Int(sida)) <> (Int(Sidor)) Then%>
		 | <a href="kommentarer.asp?next=<%=(Int(sida)+1)%>" class="intern">Bakåt</a>
		<%Else%><%End If%>
		</p>
	</div>
<%End If%>
<%RecSet.Close
Conn.Close
Set RecSet = Nothing
Set Conn = Nothing%>

funktioner.asp

Function FixaTecken(str)
	FixaTecken  = Replace(Trim(str),"'","''")
End function

Function VbCrLfToBreak(byVal str)
	If IsNull(str) Then str = ""
	VbCrLfToBreak = Replace(str,vbCrLf,"<br />")
End Function

Hoppas allt blev rätt nu. Kanske hjälper detta någon som fortfarande kodar klassisk ASP.

För att få bort den ”tomma” sidan från Google har jag därför gjort en 301 Permanent Redirect från den felaktiga sidan/QueryStringen till den korrekta adressen. Det ser ut såhär i ASP:

<%@ Language=VBScript %>
<%
aktuellQS = Request.Querystring

If aktuellQS = "page=felaktig-querystring" Then
    Response.Status = "301 Moved Permanently"
    Response.AddHeader "Location", "http://www.doman.se/sidan.asp?page=korrekt-querystring"
    Response.End
End If
%>

Koden läggs högst upp i den ASP-fil som innehåller den felaktigt indexerade QueryStringen.

Jag tycker det är nödvändigt att få bort innehållslösa sidor från Googles index eftersom de just inte innehåller någonting. I mitt fall så syns ju ändå sajtens navigering, vilket man kan tycka är bra eftersom besökarna då kan klicka sig vidare. Jag tror dock att man tjänar på att hjälpa Google att bara indexera de sidor som faktiskt har ett innehåll. Dessutom så skickar man ju över den eventuella styrka den tomma sidan har till en sida som faktiskt har ett innehåll.

Har du länkar som du vill föra klickstatistik över, men ändå ge de länkade sidorna bra länkar så kan du använda dig av JavaScript för att räkna klick. Vill du hämta URL:er ur en databas med ASP eller PHP så går även det bra så länge du skriver ut dem i href=”". Problemet är inte att man använder något av dessa språk utan vilken länk man stoppar in i href.  Skriver du href=”inc/redirect.asp?id=3298″ så blir det en intern länk på din sajt. Besökaren som klickar på den märker troligtvis inget eftersom redirecten går lika snabbt som om länken pekat mot den länkade sajten från först början.

Exempel på hur du kan göra en ”bra” länk med ASP:
<a href=”<%=RecSet(”url”)%>” target=”blank”><%=RecSet(”titel”)%></a>

Som ger följande HTML-kod:
<a href=”http://www.runars-korgossar.se” target=”blank”>Runar’s körgossar</a>

Mer läsvärt hittar du här:
http://www.seo-guide.se/lank…de-varderas (Under rubrik 11)
http://www.seo-forum.se/inf…ummer.html

<%@ Language=VBScript %>
<%
aktuellsida = Request.ServerVariables("URL")
aktuellQS = "?" & Request.Querystring

If ((Request.ServerVariables("SERVER_NAME")) = "doman.se") Then
    Response.Status = "301 Moved Permanently"
    Response.AddHeader "Location", "http://www.doman.se" & aktuellsida & aktuellQS
    Response.End
End If
%>

Variabeln ”aktuellsida” visas i denna färg, och ”aktuellQS” i denna färg i URL:en nedan.

http://www.doman.se/sida.asp?page=undersida

Här kommer jag visa både hur du skapar automatiskt genererade och manuellt ändringsbara Title-taggar om du använder flera QueryStrings på samma ASP-sida.

Manuellt med olika QueryStrings:

<html>
<head>
<meta http-equiv=”content-type” content=”text/html; charset=utf-8″>
<meta name=”language” content=”sv”>
<link href=”style.css” type=”text/css” rel=”stylesheet”>
<%If Request.Querystring(”page”) = ”” Then%>
<title>Sajten.se – Startsidan på sajten.se</title>
<%End If%>
<%If Request.Querystring(”page”) = ”kontakta” Then%>
<title>Sajten.se – Kontakta oss</title>
<%End If%>
</head>
….

Automatiskt genererade från databas:

<html>
<head>
<meta http-equiv=”content-type” content=”text/html; charset=utf-8″>
<meta name=”language” content=”sv”>
<link href=”style.css” type=”text/css” rel=”stylesheet”>
<%
Set Conn = Server.CreateObject(”ADODB.Connection”)
Conn.Open ”Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” &Server.MapPath(”d_bas\d_bas.mdb”)
Set RecSet = Conn.Execute(”SELECT * FROM en_tabell WHERE pageID=”& Request.Querystring(”page”))
%>
<title>Sajten.se – <%=RecSet(”avdelning”)%> – <%=RecSet(”sidans_titel”)%></title>
<%
Conn.Close
End If
%>
</head>
….

Denna kod är från mina egna sajter och ändrad för att passa som exempel. Det kan hända att den inte fungerar klockrent, men jag hoppas att den ändå hjälper er på traven. För att att den automatiskt genererade Title-taggen ska fungera måste självklart informationen finnas tillgänglig i en databas.

<table width=”550″ align=”left” border=”0″>
<form method=”post” action=”?do=spara”>
<tr>
<td colspan=”3″ width=”550″><b>Rubrik:</b> (max 45 tecken)<br><input maxlength=”45″ name=”rubrik”></td>
</tr>
<tr>
<td colspan=”3″ width=”550″><b>Text:</b><br><textarea name=”comment”></textarea></td>
</tr>
<tr>
<td width=”245″ valign=”top”><b>Namn:</b><br><input value=”" name=”namn”></td>
<td width=”245″ valign=”top”><b>Hemsida:</b><br><input value=”http://www.” name=”hemsida” ></td>
</tr>
<tr>
<td width=”275″ valign=”top”><b>E-post:</b><br><input value=”" name=”epost”>
</td>
<td width=”275″ valign=”top”><b>Spamskydd:</b><br><img src=”grafik/kod2.jpg”><input value=”" name=”spamprot”></td>
</tr>
<tr>
<td colspan=”3″ width=”550″>
<input type=”submit” value=”Posta kommentar”>
</td>
</tr>
</form>
</table>

När formulärt är färdigt ska vi skriva ASP-koden som hämtar informationen från formuläret, lägger dem i variabler och sedan matar in dem på rätt plats i databasen. Ursäkta att koden är lite slarvigt skriven med en blandning av engelska och svenska.

<%
If Request.Querystring(”do”) = ”spara” Then
Set Conn = Server.CreateObject(”ADODB.Connection”)
Conn.Open ”Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” &Server.MapPath(”databas\db.mdb”)spamprotection = Request.Form(”spamprot”)

Robert Falkén kommenterade inlägget och gav mig en alternativ metod för att förhindra spamrobotar att posta information via formulär. Han skapar helt enkelt en dold input som döps till något som lätt fångar spamrobotarnas intresse, t.ex. ”link” eller ”url”. Eftersom detta formulärfält är dolt för vanliga besökare så kommer det inte fyllas i av någon utom spamrobotar. Därefter kodar man en enkel funktion som kollar av om fältet är ifyllt eller ej. Är det ifyllt så avbryts postningen av formuläret. Ungefär som i det här exemplet:

<%
spamskydd = Request.Form(”url”)
If spamskydd <> ”” Then
Response.Redirect ”formularsida.asp”
Else
‘Hämta alla fält och mata in i databasen som vanligt
%>

Formulär
<form method=”post” action=”?do=save”>
Spamskydd: <img src=”graphics/antispamcode.jpg”><input name=”spamprot”>
</form>

ASP (do=save)
<%If Request.Querystring(”do”) = ”save” Then
Set Conn = Server.CreateObject(”ADODB.Connection”)
Conn.Open ”Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” &Server.MapPath(”database\database.mdb”)

Som du säkert ser så har jag bantat ner formuläret till enbart den input som användaren skriver in captcha-koden på bilden. Du skapar alltså en bild (JPG förslagsvis) och ser till att skriva exakt samma teckenkombination i if-satsen i ASP-koden ovan. Om användaren/spamboten skriver in något annat än just den räätta kombinationen så skickas denne tillbaka till formulärsidan utan att något matas in i databasen.

<%If url <> “www.google.se” AND url <> “www.google.com” AND url <> “www.google.dk” AND url <> “www.google.no” AND url <> “www.google.fi” Then%>

Nu har jag alltså förbättrat scriptet så att det söker igenom rader i en tabell och jämför med den aktuella hänvisningsdomänen för varje besök (som kommer via just en länk).

<%
Set Conn = Server.CreateObject(”ADODB.Connection”)
Conn.Open ”Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” &Server.MapPath(”databasen\refererfilter_databas.mdb”)
Set RecSet = Server.CreateObject(”ADODB.RecordSet”)SQL = ”SELECT * FROM refererfilter WHERE url like ‘%”&url&”%’”
RecSet.Open SQL, Conn

Detta gör det mycket lättare att lägga till oönskade domäner/adresser i filtret, t.ex genom ett enkelt adminformulär. Jag kommer lägga upp hela det uppdaterade scriptet här på bloggen senare.

Gör en include av filen ie6check.asp i HEAD-taggen på alla dina sidor.
<!–#include file=”includes/ie6check.asp”–>

ie6check.asp
<%
Dim myUA,ua,ua2
myUA = Request.ServerVariables(”HTTP_USER_AGENT”)
ua = lcase(myUA)
ua2 = instr(ua,”msie 6″)
%>

Lägg därefter in en include av filen ie6varning.asp på lämplig plats där du vill visa den stylade div:en som meddelandet finns i.
<!–#include file=”includes/ie6varning.asp”–>

ie6varning.asp
<%
If ua2 > 0 Then
%>
<div style=”width: 550px; float: left; margin-bottom: 20px; border: 2px solid #FFFFFF; padding: 10px; background-color: #000000;”>
<p class=”varningstext_rubrik”>Uppgradera din webbläsare!</p>
<p class=”varningstext”>Du använder den otroligt gamla webbläsaren Internet Explorer 6. Detta gör att denna  sida (och många andra) inte ser ut, och beter sig som de ska. Vi ber dig att uppdatera till en ny version. Här är några bra märken och tillverkare:</p>
<p class=”text”>
<a href=”http://www.microsoft.com/windows/Internet-explorer/default.aspx” target=”_blank”>Internet Explorer</a>,
<a href=”http://www.opera.com/download/” target=”_blank”>Opera</a>,
<a href=”http://www.google.com/chrome” target=”_blank”>Google Chrome</a>,
<a href=”http://sv-se.www.mozilla.com/sv-SE/” target=”_blank”>FireFox</a>
</p>
</div>
<%
Else
End If
%>

Uppdaterar inlägget med en bild som beskriver hur jag föredrar att utforma informationsrutan. Mycket synlig men inte särskilt störande.

Det slitna uttrycket ”att uppfinna hjulet igen” syftar som bekant på att det är onödigt att lägga energi på något som redan finns tillgängligt. Men även hjulet har förbättrats genom åren. Bilar kör ju knappast omkring med trästockar som hjul, de har fått gummidäck för att minska buller och friktion m.m. Det jag vill komma till är att jag tycker det är helt ok att vidareutveckla befintlig kod, att kombinera kodstycken för att komma fram till en bättre och effektivare lösning.

Om du vill lära dig programmera och utvecklas inom programmeringen bör du inte enbart använda färdiga lösningar och pussla ihop dem. Alla kan bygga ihop en IKEA-möbel, men man kan inte kalla sig snickare eller hantverkare för den sakens skull.

Jag tycker dock man kan använda en 302-redirect för att tillfälligt skicka besökare från en sajt till en annan. Om man av någon anledning vill göra detta för en kortare tid känns det ju fel att använda en 301 permanent redirect .

I ASP skriver du bara nedanstående i index.asp:

<%
Response.Redirect ”http://www.doman.se”
%>

Det första du behöver göra är att lägga till ett inmatningsfält i formuläret.

10 plus 13 = <input name=”spamprot”>

Därefter kommer vi ttill själva koden som kontrollerar om rätt svar har angetts, som i detta fall ska svaret som matats in vara 23.

<%
spamprotection = Request.Form(”spamprot”)
If spamprotection = ”23″ Then
‘ Lägg till kod för att skicka meddelande eller mata in i databasen här
Response.Redirect ”meddelande.asp”
Else
‘ Skickar tillbaka roboten till meddelandesidan utan att göra något alls
Response.Redirect ”meddelande.asp”
End If
%>

Detta enkla spamskydd har helt tagit bort spampostningar i mina formulär och jag hoppas det kan hjälpa dig också.

Det är ju väldigt simpelt och det är inte bara ren ASP-kod som kan inkluderas utan även HTML i externa filer. Om du har långa kodsnuttar för funktioner så lägger du dem alltså bara i en extern fil. Denna fil behöver inte innehålla <html> och <head> o.s.v. utan bara det som ska inkluderas rakt av.

Klistra in följande på den plats där det inkluderade innehållet ska visas:
<!–#include file=”filnamn.asp”–>

Jag har kommit så långt att jag räknat antalet poster och dividerat summan för att få fram det aktuella talet för en tredjedel av posterna. Detta görs med denna kod:

<%
SQL = ”SELECT * FROM poster”
objRecordset.CursorType = adOpenStatic
objRecordset.Open SQL, ConnobjRecordset.MoveFirst
q = 0
Do While Not objRecordset.EOF
q = q + 1
objRecordset.MoveNext
Loop
postcount = q
third = postcount / 3
%>

Nu återstår ju dock att lista ut hur man skriver koden för kolumn-brytningen. Är det någon som kan hjälpa mig, släng då iväg en kommentar eller ett mail.

301 Permanent redirect

ASP
<%@ Language=VBScript %>
<%
Response.Status = ”301 Moved Permanently”
Response.AddHeader ”Location”, ”http://www.nydoman.se/”
Response.End
%>

PHP
<?php
header(”HTTP/1.1 301 Moved Permanently”);
header(”Location: http://www.nydoman.se”);
?>

ASP.NET
<script runat=”server”>
private void Page_Load(object sender, System.EventArgs e)
{
Response.Status = ”301 Moved Permanently”;
Response.AddHeader(”Location”,”http://www.nydoman.se/”);
}
</script>

JSP (Java)
<%
response.setStatus(301);
response.setHeader( ”Location”, ”http://www.nydoman.se/” );
response.setHeader( ”Connection”, ”close” );
%>

.htaccess
Options +FollowSymLinks
RewriteEngine on
RewriteRule (.*) http://www.nydoman.se/$1 [R=301,L]

CSS (Cascading Style Sheets) är stilmallar där man bestämmer presentationsstilen för de olika delarna va HTML-sidan. Man kan bl.a bestämma vilken font eller fontstorlek som ska användas. I HTML-filen hänvisar man till att de olika elementens egenskaper finns angivna i CSS-filen. Fördelen med att använda sig av en extern CSS-fil är att inställningarna bara behöver ändras på ett ställe, istället för i varje HTML-dokument. I HTML-filen anges bara ett ID eller en klass som sedan har sina egenskaper angivna i CSS-filen.

ASP använder man för att skapa dynamiska webbsidor, till exempel genom att läsa och skriva information till databaser. ASP-koden tolkas av webbservern som sedan skickar vanlig HTML-kod till webbläsaren.

ASP-kod kallas för “server-side script”, vilket betyder att den just tolkas av webbservern. JavaScript är ett exempel på “client-side script”, som körs och tolkas i användarens webbläsare. De vanligaste scriptspråken i ASP är VBScript och JScript.

Har du däremot en mindre sida, men ca: fem underavdelningar så tycker jag det är en klar fördel att bara köra QueryString’s på index.asp. Du bygger helt enkelt upp sidan i sektioner (som vanligt) och låter helt enkelt innehållsytan bytas ut beroende på vilken avdelning som ska visas.

Säg att du har dessa menyval på din webbplats: Startsidan, Om mig och Mina bilder. Vanligsvis skulle du länka dessa avdelningar till filer (t.ex ommig.html). När vi använder QueryString’s kan vi välja vad på indexsidan som ska visas beroende på vad vi anropar, trots att alla ”sidor” ligger i samma fil.

Du har en innehålls-div på sidan som visar ”Välkommen till min hemsida” eller liknande på startsidan. Jag ska försöka mig på ett kodexempel nu:

<div class=”column_middle”>
<%If Request.Querystring(”page”) = ”” Then%>
<div class=”middle_content”>
<H1>Välkommen</H1>
<p>…Till min hemsida</p>
</div>
<%End If%>
</div>

<div class=”column_middle”>
<%If Request.Querystring(”page”) = ”minabilder” Then%>
<div class=”middle_content”>
<H1>Mina bilder</H1>
<img src=”bild.jpg” mce_src=”bild.jpg”>
</div>
<%End If%>
</div>

<div class=”column_middle”>
<%If Request.Querystring(”page”) = ”ommig” Then%>
<div class=”middle_content”>
<H1>Om mig</H1>
<p>Jag heter Örjan</p>
</div>
<%End If%>
</div>

Istället för att länka till olika HTML-sidor så kan vi nu säga till sidan att visa en specifik QueryString.
<a href=”index.asp”>Startsidan</a>
<a href=”index.asp?page=ommig”>Om mig</a>
<a href=”index.asp?page=minabilder”>Mina bilder</a>
Startsidan vill vi ju ha direkt under index.asp för att besökarna ska komma dit när de skriver in din URL i webbläsaren. Lämnar vi detta tomt (If Request.Querystring(”page”) = ”ommig” Then) så kommer det vara den If-satsen som visas som default.

Självklart kan du använda samma If-QueryString på fler ställen på sidan. Om du t.ex vill att något speciellt ska visas i högerkolumnen när besökaren är inne på en viss avdelning.

Hoppas jag inte har lyckats vara för svårbegriplig.

Börja med att skapa en databas, t.ex i Microsoft Access vilken jag använder i detta exempel. I databasen skapar du en tabell som heter ”referer”. Skapa därefter följande kolumner:

url (memo)
antal (number)
totalt (number) 

Spara databasen och ladda upp den i en mapp på ditt webbhotell (i detta exempel heter mappen ”db” och databasen ”data.mdb”)

Därefter skriver vi ASP-koden som registrerar från vilken webbplats besökarna kommer. Denna kod lägger du förslagsvis enbart på förstasidan.

<%
referer = Request.ServerVariables(”HTTP_REFERER”)
If referer <> ”” Then
Dim WordArray
WordArray = Split(referer, ”/”)
url = WordArray(2)
check_visitor = Request.Cookies(”visitor”)
If check_visitor <> ”counted_for” Then
If url <> ”www.google.se” AND url <> ”www.google.com” Then
Set Conn = Server.CreateObject(”ADODB.Connection”)
Conn.Open ”Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” &Server.MapPath(”db\data.mdb”)
Set RecSet = Server.CreateObject(”ADODB.RecordSet”)
‘Response.Write (url)
SQL = ”SELECT * FROM referer WHERE url like ‘%”&url&”%’”
RecSet.Open SQL, Conn
‘uppdatbesok = RecSet(”antal”) + 1
If RecSet.EOF Then
Response.Cookies(”visitor”) = ”counted_for”
Response.Cookies(”visitor”).Expires = Date() + 1
adress = url
datum = date()
tid = Time()
besok = 1
SQL = ”Insert Into referer (url,antal) Values(‘” & adress & ”‘,’” & besok & ”‘)”
Conn.Execute(SQL)
Else
Response.Cookies(”visitor”) = ”counted_for”
Response.Cookies(”visitor”).Expires = Date() + 1
besok = RecSet(”antal”) + 1
Conn.execute(”Update referer Set antal=’” & besok & ”‘ WHERE url=’” & url & ”‘”)
End If
Else
End If
Else
End If
Else
End If
%>

Eftersom du kanske inte vill att Google ska vara med och konkurrera med dina länkvänner så säger vi till scriptet att igonrera adresserna Google.se och Google.com. Här kan du givetvis lägga till vilken domän du vill. WordArray gör så att adressen bryts vid andra och tredje slashen. Då återstår endast det fetmarkerade ”http://www.domän.se/index.html”, detta lagras sedan i databasen.

Genom att använda oss av en cookiefil kontrollerar vi så att inte samma besökare räknas flera gånger. Cookien är giltig i ett dygn, därefter räknas besökaren igen om han kommer in på din webbplats. Så länge han har en aktiv cookie får ingen annan webbplats någon poäng för att ha hänvisat honom till din webbplats. Denna cookiefunktion är inte bombsäker för att förhindra fusk, men det kräver mycket jobb för den som vill fuska. (Rensa cookies i webbläsaren inför varje nytt besök till din webbplats)

Koden som visar länkar till de som länkar till dig ser ut så här:

 <%
Set Conn = Server.CreateObject(”ADODB.Connection”)
Conn.Open ”Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” &Server.MapPath(”db\data.mdb”)
Set RecSet = Server.CreateObject(”ADODB.RecordSet”)
‘SQL = ”SELECT url, MAX(datum) AND MAX(tid) FROM referer GROUP BY url”
SQL = ”SELECT * FROM referer ORDER BY antal DESC”
RecSet.Open SQL, Conn
With RecSet
.MoveFirst
End With
x = 0
Do While Not RecSet.EOF And x < 10
overnoll = RecSet(”antal”)
If overnoll > 0 Then%>
<p><a href=”http://<%=RecSet(” mce_href=”http://<%=RecSet(”url”)%>” target=”_blank”><%=RecSet(”url”)%></a></p>
<%Else
End If

x=x+1
RecSet.MoveNext
Loop
RecSet.Close
Conn.Close
%>