webForumDet fria alternativet

online med grön färg

ASP

11 svar · 432 visningar · startad av WebbisNet

Medlem sedan feb. 20032 027 inlägg
Frågan#1

Denna kod ska visa medlemmar som är online med grön färg, men bara Response.Write uonline funkar, sätter jag uonline på Response.Write Left(usr, 10) & ".." så försvinner den

<%usr = latest("username") 
uonline = "<font color=""green""><b>"& latest("username") &"</b></font>"
if latest("inloggad") = 1 then
If Len(usr) > 10 Then
    Response.Write Left(usr, 10) & ".."
Else
    Response.Write uonline
End If
Medlem sedan feb. 20011 198 inlägg
#2

Skriv ut usr och se om den innehåller något.

Medlem sedan feb. 20032 027 inlägg
#3

den innehåller något eftersom den skriver ut användarnamnet, men i det här fallet vill jag göra om den så att medlemmar som är online visas i grön fet text och medlemmar som inte är det har den vanliga färgen, koden jag inte skickade med är nästan samma som ovan fast bara med usr = latest("username")

Det är just det med online som strular.....alla som inte behöver förkortas visa med gön text men inte de som måste förkortas....det är mitt problem

Medlem sedan juni 20019 519 inlägg
#4
usr = latest("username")
if len(usr) > 10 then usr = Left(usr, 10) & ".."
if latest("inloggad") = 1 then
  response.write "<span style='color:green'><strong>" & usr &"</strong></span>"
else
  response.write usr
end if
Medlem sedan feb. 20032 027 inlägg
#5

bättre, men var kommer det dubbla namnet från.....och är ju bara på EN användare

okkidoki 	  060320 08:04:59
Goldenhear.. 	060320 08:04:55
Lillan37 	   060320 08:01:52
Lillan37 	
deli 	            060320 07:54:21
Cina_47 	 060320 07:51:42
[VIP-medlem] Skorpsmula.. 	060320 07:50:50
ciia_62 	060320 07:47:23
Medlem sedan juni 20019 519 inlägg
#6

Är ena grön eller?

Medlem sedan feb. 20032 027 inlägg
#7

ena namnet är en grön länk, det andra är svart text (ingen länk)

Medlem sedan juni 20019 519 inlägg
#8

tror jag behöver mer kod isåfall... ser inte problemet... kanske med cint(latest("inloggad"))

vad har Lillan37 för värde på latest("inloggad") ?

Medlem sedan feb. 20032 027 inlägg
#9

Det är olika användare beoende på om de är "aktiva", nästa gång jag uppdaterar är det en annan användare som det blir så med

<%if not latest("userID") = 1 then%>
<%if latest("vip") = 1 then
response.write vipicon
End If%>

<%If latest("Sex") = "M" Then
	 Response.Write maleIcon
ElseIf latest("Sex") = "F" Then 
	Response.Write femaleIcon
Else 
	Response.Write coupleIcon
End If
%>
<a href="/view.asp?userID=<%=latest("userID")%>" onmouseover="return escape('<table><tr><td class=presentation1 align=center colspan=2>Info om <%=latest("username")%></td></tr><td class=presentation width=150 valign=top>Ålder: <%=alder(latest("persnr"))%><br>Söker: <%=latest("sokerItem")%><br>Civilstatus: <%=latest("statusItem")%><br>Personlighet: <%=latest("personlighetItem")%></td><td align=right valign=top><img src=\'/images/users/<%=latest("picture")%>\' height=\'80\' width=\'70\'></td></tr></table>')" class="menu">

<%usr = latest("username")
if len(usr) > 10 then usr = Left(usr, 10) & ".."
if latest("inloggad") = 1 then
  response.write "<span style='color:green'><strong>" & usr &"</strong></span>"
else
  response.write usr
end if

else

If Len(usr) > 10 Then
    Response.Write Left(usr, 10) & ".."
Else
    Response.Write usr
End If
End If%>
</b></a>
Medlem sedan juni 20019 519 inlägg
#10
...
else

If Len(usr) > 10 Then
    Response.Write Left(usr, 10) & ".."
Else
    Response.Write usr
End If
End If%>
</b></a>

Det är där det är problemet.. de sista raderna... det gjordes ju innan else kommer ju :D

Medlem sedan juni 20019 519 inlägg
#11
<%
usr = latest("username")

if not latest("userID") = 1 then
  if latest("vip") = 1 then response.write vipicon
  If latest("Sex") = "M" Then
    Response.Write maleIcon
  ElseIf latest("Sex") = "F" Then 
    Response.Write femaleIcon
  Else 
    response.Write coupleIcon
  End If
  response.write "<a href='/view.asp?userID=" & latest("userID") &"' onmouseover=""return escape('<table><tr><td class=presentation1 align=center colspan=2>Info om " & usr &"</td></tr><td class=presentation width=150 valign=top>Ålder: " & alder(latest("persnr")) & "<br>Söker: " & latest("sokerItem") & "<br>Civilstatus: <%=latest("statusItem")%><br>Personlighet: " & latest("personlighetItem") & "</td><td align=right valign=top><img src=\'/images/users/" & Latest("picture") &"\' height=\'80\' width=\'70\'></td></tr></table>')"" class='menu'>"
  if len(usr) > 10 then usr = Left(usr, 10) & ".."
  if latest("inloggad") = 1 then
    response.write "<span style='color:green'><strong>" & usr &"</strong></span>"
  else 
    response.write usr
  end if
End If%>
</b></a>

tror jag skall fungera...

Medlem sedan feb. 20032 027 inlägg
#12

jag var så blind att jag inte såg det, tack

290 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
125 ms — deklarationer (db)
0 ms — hämta statistik (cache)
162 ms — hämta tråd, inlägg och bilagor (db)
123 ms — ändringar (db)