antarMedlem sedan dec. 2001289 inlägg snälla kan nån hjälpa mig
hur sliptrar jag ord i samma kolumn
så här ser det ut!!
Senaste besökare:
antar*antar2*antar3*antar4*
hur slipptrar jag det helst ingen replace .
har en fält som kollar om man e online eller offline! vill att typ den också ska funka typ <%if recset("online") = "ja" then%>online<%<%else%>offline<%end if%>
LAMPMedlem sedan mars 2002777 inlägg arrMyArray = Split("antar*antar2*antar3*antar4*", "*")
antarMedlem sedan dec. 2001289 inlägg ja men antar*antar2*antar3 är senaste besökarna det ändras ju hela tiden
LAMPMedlem sedan mars 2002777 inlägg Det är typiskt dåligt att ha * separerade strängar i en kolumn i databasen. Gör en separat tabell där du lagrar medlemmar som är online istället. Det tjänar du på i längden.
cyprysMedlem sedan dec. 20003 563 inlägg eh
Visualisera det på det här sättet istället då.
x = "antar1"
x = x & "*antar2"
x = x & "*antar3"
arr = split(x, "*")
Nu har du en array.
arr(0) = "antar1"
arr(1) = "antar2"
osv
antarMedlem sedan dec. 2001289 inlägg har gjort så här
<%myString = recset("Senastebesokare")%>
<%
myArray = split(myString,"*")
For i = 0 To Ubound(myArray)
Response.Write myArray(i)
Next%>
hur får jag br och funka??
LAMPMedlem sedan mars 2002777 inlägg Menar du så?
<%myString = recset("Senastebesokare")%>
<%
myArray = split(myString,"*")
For i = 0 To Ubound(myArray)
Response.Write " " & myArray(i) & "<br>"
Next%>
antarMedlem sedan dec. 2001289 inlägg gjorde såhär
<%visitors=recset("Senastebesokare")
visit_array=Split(visitors,"*", -1, 1)
'ta bort sista,
lay=2
for p=0 to lay
response.write("<a href=""profil.asp?se=" & visit_array(p) & _
""">" & visit_array(p) & "</a><br>")
next%>
hur får jag fram online eller offline?
antarMedlem sedan dec. 2001289 inlägg kan nån hjälpa det här e säkert enkelt vill koppla databasen med arrayen
solbulleMedlem sedan mars 20015 287 inlägg Varför inte bara lista de som är online från start så att säga?
solbulleMedlem sedan mars 20015 287 inlägg Det verkar ju som om du har alla medlemmar i databasen samt ett fält där det står om de är online eller offline. I så fall kan du väl lista de som är online direkt ur databasen!?!
Men jag kanske har missat något?
Hur vet man vilka som är online?
cyprysMedlem sedan dec. 20003 563 inlägg Den här tanken menas antar jag.
<%
set RS = conn.execute("SELECT * FROM tabell WHERE online = 'true'")
do until RS.eof
response.write RS("namn") & "<br>"
RS.movenext
Loop
%>
antarMedlem sedan dec. 2001289 inlägg vart ska jag lägga in det där?
cyprysMedlem sedan dec. 20003 563 inlägg Visa all kod du har i ärendet så blir det mycket lättare.
antarMedlem sedan dec. 2001289 inlägg krypin.asp
'***************** Senaste besökare ****************
Set Connect=Server.CreateObject("ADODB.Connection")
sConnect = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/Medlemmar.mdb")&""
Connect.Open(sConnect)
Anvandarnamn= request.querystring("Anvandarnamn")
id= request.querystring("ID")
SQL="SELECT Senastebesokare, Anvandarnamn FROM Medlemmar WHERE Anvandarnamn='" & Anvandarnamn & "'"
Connect.execute(SQL)
Set Recset=Server.CreateObject("ADODB.Recordset")
Recset.open SQL, Connect, 3,3
adda=session("Anvandarnamn")&"*"
happ=adda & recset("Senastebesokare")
if not recset("Senastebesokare") = "" then
if not left(recset("Senastebesokare"),instr(recset("Senastebesokare"), "*")) = session("Anvandarnamn")&"*" then
if not recset("Anvandarnamn")=session("Anvandarnamn") then
sqlo="UPDATE Medlemmar SET Senastebesokare='" & happ & "' WHERE Anvandarnamn='" & Anvandarnamn &"'"
connect.execute(sqlo)
else
end if
end if
else
if not recset("Anvandarnamn")=session("Anvandarnamn") then
sqlo="UPDATE Medlemmar SET Senastebesokare='" & happ & "' WHERE Anvandarnamn='" & Anvandarnamn &"'"
connect.execute(sqlo)
end if
end if
'******************************************************
index.asp
<%
on error resume next
if not recset("Senastebesokare") = "" then
visitors=recset("Senastebesokare")
visit_array=Split(visitors,"*")
lay=9
For i = 0 To lay
response.write("<img border=""0"" src=""bilder/online.gif"" width=""10"" height=""9""><a href=""#"" onclick=""krypin('krypin.asp?visa=krypin&id=','id_"&visit_array(i)&"',502,303); return false;""><b>" & visit_array(i) & "</b></a><br>")
next
else%>
<font face="Tahoma"><img border="0" src="Bilder/1pxtrans.gif">Tyvärr, Ingen har besökt ditt krypin ännu!<br>
<img border="0" src="Bilder/Community/Smileys/ledsen.gif">
<%end if%>