Onload \"GÅ NED TIL BUNDEN AF EN FRAME\"

du kunne åbne dokumentet med eks. index.html#bund og så indsætte et bogmærke nedderst på siden

Kan du ikke bruge commandoen \"focus\" http://javascript.internet.com/forms/form-focus.html

Har selv fundet en løsning...ingen af de nævnte kunne bruges.

må vi høre :)

Nu bliver det lidt pinligt...

For den løsning jeg havde fundet virkdede alligevel ikke. Løsningen var at bruge et helt script netsrac havde lavet på http://www.eksperten.dk/spm/92292 , men det viste sig at lige netop dette havde han alligevel ikke rettet....så nu åbner jeg måske et nyt magen til spørgsmål........

Har du en løsning er du velkommen til at skrive den og få point!

/Johan

sorry har jeg ikke, ville bare selv gerne vide det :)

ok

Jamen, brug dog kombinationen af cautoo\'s og jasber\'s løsning:

Et bogmærke lige bagved dit \'snakke\'felt og derefter en focus() på indtastningsfeltet -- det skulle da få den del af vinduet til at være fremme

-- du kunne måske nøjes med focus() på feltet, men det afhænger af hvor meget du har nedenunder vinduesstørrelse og browser kan vælge lidt forskelligt, men hvis den først er gået til bogmærket og indtastningsfeltet er inden for vinduet flytter den sig ikke mere.

hth
jes

Jeg kan ikke bruge form-focus, da inputboxen er i en anden frame! Med bogmærke iddén, vil man så ikke se den scrolle ned, hver gang der opdaterer?

Sidder selv og bixer med helt at undgå scroll, hvis at få den til at slette linierne efter et stykke tid!

>>>johannielsen

Bemærk at jeg skrev
focus() på indtastningsfeltet -- og ikke på formen

-- og ideen skulle være, at selv om den vil forsøge at placere bogmærket øverst i browser-vinduet, så kan den jo heller ikke vise mere end der er på siden, så hvis du f.eks. har indtastningsfeltet ved siden af det nederste af dit textarea, når man ser på vinduet og så måske et banner, så kan den jo ikke komme længere.

hth
jes

Kan du ikke give et kodeeksempel på den der focus? Fatter ikke så meget JS

Hvis du f.eks. har et frameset med to kolonner ved siden af hinanden (eks. i venstre side noget et eller andet + din inputbox og i højre side dit textarea), så kan du i højre frame skrive i body-taggen:

<BODY ... onLoad=\"window.venstreFrame.inputFelt.focus();\">

så vil den sætte focus på inputFelt

Med Bookmarket ser det således ud:

<BODY ... onLoad=\"window.hojreFrame.location.href=\"bogmærke\";window.venstreFrame.inputFelt.focus();\">

=:-]
jes

Sådan er siden altså ikke bygget op. Chatten foregår ikke i en textarea, hvis det har nogen betydning!

Se koden:
<% Response.Buffer = true %>
<% If trim(Request.Form(\"name\")) = \"\" Then %>
<center>
<b>
<font face=\"tahoma\" size=\"2\" color=\"#000000\">
-- velkommen til bjerget chat --
</b>
<br><br>
Dette er stedet, hvor du kan chatte med dine gamle Bjerget kammerater.
Dem du delte både glæde og sorger med, i det bedste og mest værdifulde år, hele dit liv!
<br><br>
Alt hvad du skal gøre er at indtaste dit navn og årgang, så er du på!
<center><form action=\"default.asp?vis=chat\" method=\"POST\">
    <p><b>Dit navn: <input type=\"text\" size=\"20\" name=\"Name\"></p></b>
    <p><b>Din årgang: <select name=\"start\" value=\"- År -\"></b>
  <option value=\"-Aldrig\">Startår</option>
  <option value=\"77\">1977</option>
  <option value=\"78\">1978</option>
  <option value=\"79\">1979</option>
  <option value=\"80\">1980</option>
  <option value=\"81\">1981</option>
  <option value=\"82\">1982</option>
  <option value=\"83\">1983</option>
  <option value=\"84\">1984</option>
  <option value=\"85\">1985</option>
  <option value=\"86\">1986</option>
  <option value=\"87\">1987</option>
  <option value=\"88\">1988</option>
  <option value=\"89\">1989</option>
  <option value=\"90\">1990</option>
  <option value=\"91\">1991</option>
  <option value=\"92\">1992</option>
  <option value=\"93\">1993</option>
  <option value=\"94\">1994</option>
  <option value=\"95\">1995</option>
  <option value=\"96\">1996</option>
  <option value=\"97\">1997</option>
  <option value=\"98\">1998</option>
  <option value=\"99\">1999</option>
  <option value=\"00\">2000</option>
  <option value=\"01\">2001</option>
</select>
-
<select name=\"slut\" value=\"- År -\">
  <option value=\"\">Slutår</option>
  <option value=\"77\">1977</option>
  <option value=\"78\">1978</option>
  <option value=\"79\">1979</option>
  <option value=\"80\">1980</option>
  <option value=\"81\">1981</option>
  <option value=\"82\">1982</option>
  <option value=\"83\">1983</option>
  <option value=\"84\">1984</option>
  <option value=\"85\">1985</option>
  <option value=\"86\">1986</option>
  <option value=\"87\">1987</option>
  <option value=\"88\">1988</option>
  <option value=\"89\">1989</option>
  <option value=\"90\">1990</option>
  <option value=\"91\">1991</option>
  <option value=\"92\">1992</option>
  <option value=\"93\">1993</option>
  <option value=\"94\">1994</option>
  <option value=\"95\">1995</option>
  <option value=\"96\">1996</option>
  <option value=\"97\">1997</option>
  <option value=\"98\">1998</option>
  <option value=\"99\">1999</option>
  <option value=\"00\">2000</option>
  <option value=\"01\">2001</option>
</select>
<br><br><br>
<input type=\"submit\" name=\"Submit\"value=\"Bjerget Chat Rules!\">
</form></center>

<%
Else
  Dim users, refresh
  Session(\"name\") = Request.Form(\"name\")
  Session(\"start\") = Request.Form(\"start\")
  Session(\"slut\") = Request.Form(\"slut\")
 
  If Application(\"NumUsers\") = 0 Then
      \' Initialize (or re-initialize) the user list
      \' and the conversation
      ReDim temp1(50)
      ReDim temp2(50)
      Application(\"users\") = temp1
      Application(\"refresh\") = temp2
  End If

  \' Retrieve the application arrays
  users = Application(\"users\")
  refresh = Application(\"refresh\")

  \' Find an empty spot and add the new user
  Dim i
  For i = 1 To 50
      If users(i) = \"\" Then
          users(i) = Session(\"name\")
          refresh(i) = time
          Application.Lock
          Application(\"NumUsers\") = Application(\"NumUsers\") + 1
          Application.Unlock
          Exit For
      End If
  Next
  If i = 51 Then Response.Redirect \"default.asp?vis=toomany\"

  \' Put the arrays back in the application vars
  Application.Lock
  Application(\"users\") = users
  Application(\"refresh\") = refresh
  Application.Unlock

  If not IsEmpty(Application(\"conversation\")) Then
      Application.Lock
    Application(\"conversation\") = Application(\"conversation\") & \"|\" & \"<b><i>\" & Session(\"name\") & \" [\" & Session(\"start\") & \"-\" &_
            session(\"slut\") & \"]\" & \" har tilsluttet sig fællesskabet</b></i><br>\"
      Application.Unlock
  End If
  Response.Redirect \"chat_main.asp\"
End If
%>
</font>
</body>


Kode til Chatmain siden - den med designet

<html>
<head>
<title>Bjerget Chat</title>

</head>
<body bottommargin=\"26\" vlink=#000000 link=#000000 topmargin=\"26\" rightmargin=\"0\" leftmargin=\"0\" bgcolor=#A6B6CF background=\"gfx\\bg.gif\"background=\"gfx\\bg.gif\">
<table width=\"100%\" height=\"100%\" cellspacing=0 cellpadding=0 bgcolor=#A6B6CF background=\"gfx\\bg.gif\">
<tr>
  <td>

<table width=780 border=0 cellpadding=0 cellspacing=0 align=\"center\" valign=\"middle\">
<tr>
  <td>
  <img src=\"gfx\\vtop.gif\" width=203 height=242></td>
  <td background= \"gfx\\htop.gif\" width=577 height=242></td>
</tr>
<tr>
  <td rowspan=2><iframe src=\"chat_online.asp\" width=203 height=308 scrolling=\"Auto\" marginheight=\"0\" frameborder=\"0\" marginwidth=\"0\"></iframe></td>
  <td><iframe src=\"chat_show.asp\" width=577 height=226 scrolling=\"Auto\" marginheight=\"0\" frameborder=\"0\" marginwidth=\"0\"></iframe></td>
</tr>
<tr>
  <td background=\"gfx/write.gif\" width=577 height=82>
    <iframe src=\"chat_say.asp\" width=577 height=82 scrolling=\"No\" marginheight=\"0\" frameborder=\"0\" marginwidth=\"0\"></iframe>
  </td>
</tr>
</table>

</td>
</tr>   
</table> 
</body>
</html>

Kode til say-framen

<%
If trim(Request.Form(\"say\")) <> \"\" Then
  Application.Lock
  Application(\"conversation\") = Application(\"conversation\") & \"|\" & \"<b>\" & Session(\"name\") & \" [\" & Session(\"start\") & \"-\" & session(\"slut\") & \"]\" &\": </b>\" & _
      Replace(Request.Form(\"say\"),\"|\",\"\'\") & \"<br>\"
  Application.Unlock
End If
%>

<body onload=\"document.form1.Say.focus()\">

<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
  <td width=\"100%\" height=82 valign=\"middle\" background=\"gfx\\write.gif\">
<form action=\"chat_say.asp\" method=\"POST\" name=\"form1\">
    <input type=\"text\" size=\"52\" name=\"Say\">
    <input type=\"submit\" name=\"Submit\" value=\"Skriv\">
</form>
</td>
</table>

</body>

Kode til Online-framen

<% Option Explicit %>
<html>
<head>
<meta http-equiv=\"refresh\" content=\"10\">
</head>
<body background=\"gfx\\online.gif\">
<table cellspacing=\"0\" cellpadding=\"0\" border=\"0\">
<tr>
  <td width=\"30\"></td>
  <td width=\"173\"><font face=\"Tahoma\" size=\"2\" color=\"#000000\">
<%
Dim Userlist, Datelist, i, num, users, refresh

\' Retrieve application arrays
users = Application(\"users\")
refresh = Application(\"refresh\")

\' Find current user and update his refresh time
For i = 1 To 50
  If users(i) = Session(\"name\") Then
      refresh(i) = Time
      Exit For
  End If
Next

\' Has ANYONE been gone more than 20 seconds?
For i = 1 To 50
  If users(i) <> \"\" Then
      If DateDiff(\"s\",refresh(i), Time) > 30 Then
        Application(\"conversation\") = Application(\"conversation\") & \"|\" & \"<b><i>\" & users(i) & \" [\" & Session(\"start\") & \"-\" &_
            session(\"slut\") & \"]\" &_
            \" har forladt fællesskabet</b></i><br>\"
        users(i) = \"\"
        Application(\"NumUsers\") = Application(\"NumUsers\") - 1
      End If
  End If
Next
Application.Lock
Application(\"users\") = users
Application(\"refresh\") = refresh
Application.Unlock
%>
<b>Antal Personer <%=Application(\"NumUsers\")%></b><br>
<%
For i = 1 To 50
  If users(i)<> \"\" Then
      Response.Write users(i) & \" [\" & Session(\"start\") & \"-\" &_
            session(\"slut\") & \"]\" & \"<br>\"
  End If
Next
%>
</td>
</tr>
<tr valign=\"bottom\" align=\"center\">
<td align=center colspan=2 height=40>
<a href=\"default.asp?vis=chat\" target=\"_parent\"><img src=\"gfx/knap.gif\" width=\"57\" height=\"26\" border=\"0\" alt=\"\" align=\"absmiddle\"></a>
</font>
</td>
</tr>
</table>
</body>
</html>

Kode til \"replik\"- framen

<html>
<head>
<meta http-equiv=\"refresh\" content=\"3\">
</head>
<body bottommargin=\"0\" vlink=#000000 link=#000000 topmargin=\"0\" rightmargin=\"0\" leftmargin=\"0\">
<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
  <td width=\"100%\" height=226 valign=\"bottom\" background=\"gfx\\main.gif\">
<font face=\"Tahoma\" size=\"2\" color=\"#000000\">
<%
Dim convo
convo = Application(\"conversation\")
convoarr = Split(convo, \"|\")
If ubound(convoarr) > 25 Then
    Application.Lock
    Application(\"conversation\") = \"\"
    For i = ubound(convoarr) to ubound(convoarr) - 24
        Application(\"conversation\") = Application(\"conversation\") & \"|\" & convoarr(i)
    Next
    Application.Unlock
End if

%>
<br>
<%
convoarr2 = split(convo, \"|\")
For i = 1 to 24
    If not i > ubound(convoarr2) Then
        Response.write convoarr(i)
    End if
Next

%>
</font>
  </td>
</table>


</body>
</html>

Kode til toomany-siden

<HTML>
<BODY>
<font face=\"Tahoma\" size=\"2\" color=\"#000000\">Desværre, er der for mange glade Bjergetfolk, der prøver at komme til at chatte. Prøv venligst senere<p>
<a href=default.asp?vis=chat>Log ind igen!</a></font>
</BODY>
</HTML>