Bli kompis till piraja...

Här visar jag hur JAGT gjorde... -->
Jag gjorde först en listning av alla medlemmar, med en "Bli kompis" länk till varje "username" (obs! Detta skript delar upp recset med 10 namn per sida):

<table>
<%
mypage = Request("whichpage")
If mypage = "" then
   mypage = 1
End If
mypagesize = 10

SQL = "Select * From users Order by username"

Set rstemp = Server.Createobject("ADODB.Recordset")
rstemp.cursorlocation = 3
rstemp.cachesize = 5
MdbFilePath="dindatabas.mdb"
rstemp.open SQL, "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
If rstemp.EOF then
   Response.write "Där fanns det ju inget... " & sok
Else
   rstemp.movefirst
   rstemp.pagesize = mypagesize
   maxcount = Cint(rstemp.pagecount)
   rstemp.absolutepage = mypage
   howmanyrecs = 0
   howmanyfields = rstemp.fields.count -1
   Do While Not RStemp.EOF AND howmanyrecs < rstemp.pagesize
   counter = counter + 1
   If counter mod 2 = 0 then
      color = "e16745"
   Else
      color = "F7F7E7"
   End If
   Response.write "<tr bgcolor="& color &"><td><font face=Verdana size=1 color=black>"& rstemp("username") &"<br><a href=blikompis.asp?username="& rstemp("username") &">Bli kompis</a> <a href=javascript:ny_sida('info.asp?username="& rstemp("username") &"','400','275');>Info om mig</a> <a href=skickamess.asp?till="& rstemp("username") &">Skicka meddelande</a></td></tr></font>"
   
   rstemp.movenext
   howmanyrecs = howmanyrecs + 1
   Loop
   rstemp.close
   Set rstemp = nothing
   %>
   <tr><td></td></tr>
   <tr><td><font face="Verdana" size="1">
   <%
   If maxcount <> 0 then
   response.write "sida " & mypage & " av " & maxcount & "<br>" & sidor:
   pad = "0"
   scriptname = request.Servervariables("script_name")
   for counter = 1 to maxcount
   If counter >= 10 then
      pad = ""
   End If
   ref = "<a href='" & scriptname & "?whichpage=" & counter & "&pagesize=" & mypagesize & "'>" & pad & counter & "</a> "
   response.write ref & " "
   if counter mod 10 = 0 then
      response.write "<br>"
   End If
   Next
   End If
End If
%>
</td></tr>
</table>

sedan när man klickar på en av länkarna "Bli kompis" så tas man till denna sida blikompis.asp där själva "relationen" skapas:

<b>Du blev kompis med personen, hoppas han/hon gillade det *kvack*</b>
<%

Set Databas = Server.CreateObject("ADODB.Connection")
Set Databas2 = Server.CreateObject("ADODB.Connection")
MdbFilePath="dindatabas.mdb"
'Denna koppling nedan ska du inte ha med, det är för min meddelande funktion!
MdbFilePath2="mess.mdb"
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
Databas2.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath2 & ";" 

SQL = "INSERT INTO kompisar "
SQL = SQL & "(username, kompis) "
SQL = SQL & "VALUES('" & Session ("Username") & "', '" & Request.QueryString("username") & "')"

SQL2 = "INSERT INTO meddelande ([fran], [datum], [meddelande], [rubrik], [till], [status]) VALUES('" & Session("username") & "',#" & now & "#,'Nu har " & Session("username") & " blivit kompis med dig, *kvack*','Ny polare','" & Request.QueryString("username") & "','Oläst')"

set rsKompis=Databas.execute(SQL)
set rsMess=Databas2.execute(SQL2)

%>

sedan till sist, sidan visapolare.asp där man listar vem man är kompis med via Sessioner då!:

<%
Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath="dindatabas.mdb"
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
Set rsJa = Databas.execute("SELECT username, kompis FROM kompisar WHERE username = '" & Session ("Username") & "' ")
If rsJa.EOF then
Response.Write "<b>" & "Du har inga kompisar..." & "</b>"

Else
Response.Write "<table width=""300"" border=""0"">" & VbCrLf

Do While Not rsJa.EOF

counter = counter + 1
If counter Mod 2 = 0 then
color = "e16745"
Else
color = "F7F7E7"
End If

Response.Write "<tr>" & VbCrLf
Response.Write "<td bgcolor=""#" & Color & """><font face=""Verdana"" size=""1"" color=""black""><b>" & rsJa("username") & "</b> är kompis med <b>" & rsJa("kompis") & "</b>" & "<br>" & "<a href=""radera.asp?kompis=" &  rsJa("kompis") & """>Avsluta vänskap</a>" & " " & "<a href=""skickamess.asp?till=" & rsJa("kompis") & """>Skicka meddelande</a>" & "</b></font></td>" & VbCrLf

Response.Write "</tr>" & VbCrLf
rsJa.MoveNext
Loop

Response.Write "</table>"
End If
%>
</font>
<br><br><font face="Verdana" size="1">
<a href="visapolare.asp">Uppdatera min kompislista</a>

 </font></td>
    </tr>
</table></div>

sådär :e så gjorde jag, sidorna Avsluta vänskap och Skicka meddelande är inte inräknade här. Ngt oklart?

Just det! Databasen ser ut så här:
id | räknare
username | text
kompis | text
------------------
www.groda.net *kvack*, *kvack*

[Redigerat av crisse6 den 14 maj 2001]