webForumDet fria alternativet

splitta

ASPur ASP

17 svar · 357 visningar · startad av antar

antarMedlem sedan dec. 2001289 inlägg
#1

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
#2
arrMyArray = Split("antar*antar2*antar3*antar4*", "*")
antarMedlem sedan dec. 2001289 inlägg
#3

ja men antar*antar2*antar3 är senaste besökarna det ändras ju hela tiden

LAMPMedlem sedan mars 2002777 inlägg
#4

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
#5

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
#6

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
#7

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
#8

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
#9

halllå §e

antarMedlem sedan dec. 2001289 inlägg
#10

kan nån hjälpa det här e säkert enkelt vill koppla databasen med arrayen

solbulleMedlem sedan mars 20015 287 inlägg
#11

Varför inte bara lista de som är online från start så att säga?

antarMedlem sedan dec. 2001289 inlägg
#12

vad menar du???????

solbulleMedlem sedan mars 20015 287 inlägg
#13

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?

antarMedlem sedan dec. 2001289 inlägg
#14

jag kör med split ju

cyprysMedlem sedan dec. 20003 563 inlägg
#15

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
#16

vart ska jag lägga in det där?

cyprysMedlem sedan dec. 20003 563 inlägg
#17

Visa all kod du har i ärendet så blir det mycket lättare.

antarMedlem sedan dec. 2001289 inlägg
#18

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%>

138 ms totalt · 3 externa anrop · v20260731065814-full.29ac60f6
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
135 ms — hämta tråd, inlägg och bilagor (db)