"Jens Gyldenkærne Clausen" <jens@gyros.invalid> skrev i en meddelelse
news:Xns938BEA73A27DAjcdmfdk@gyrosmod.cybercity.dk...
> Bent L. skrev:
>
> > jeg vil høre om man kan nustille et tekst-felt efter man har
> > submittet det?
>
> Det kan man godt. Jeg er langt fra sikker på hvad du egentlig er
> ude efter - men grundlæggende er der (mindst) følgende muligheder:
>
> 1) Form og formhandler adskilt
> Der submittes til en anden side end den formen ligger på. Der er
> ingen felter der skal nulstilles, men formen er også "væk" når
> formhandleren er afsluttet.
>
> 2) Form og formhandler på samme side.
> Man kan i starten af siden undersøge om siden kaldes som et
> formrequest eller som en almindelig sidevisning. Hvis man ikke har
> gjort noget for at putte værdier i formfelterne er det ikke
> nødvendigt at nulstille dem.
>
> 3) Form og formhandler adskilt, med redirect til formsiden
> Som 1, bortset fra at formsiden vises efter endt submit. Visningen
> sker som et nyt sidekald - der er derfor ikke brug for nulstilning.
>
> Forklar dit problem nærmere hvis du vil have mere hjælp.
> --
> Jens Gyldenkærne Clausen
> Svar venligst under det du citerer, og citer kun det der er
> nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
> hvordan på
http://usenet.dk/netikette/citatteknik.html
Takker for tilbagemeldingen.
Jeg sender lige koden som jeg har hentet fra
www.activedeveloper.dk.
****START***********************
<%
Response.Buffer = True
Select Case LCase(Request.QueryString("mode"))
Case "chat" %>
<html>
<head><meta http-equiv="REFRESH" content="10; URL=chat.asp?mode=chat">
<title>Chat</title>
</head><body>
<%
strUser = "<b>" & Request.ServerVariables("REMOTE_ADDR") & "</b>: "
strMessage = Server.HTMLEncode(Trim(Request.Form("message")))
' // Her rydes Chat loggen, hvis den overstiger 10000 karakter
If Len(Application("ChatLog")) > 10000 Then
Application.Lock
Application("ChatLog") = ""
Application.UnLock
End If
If Request.Form("Action") = "Send" Then
If Len(strMessage) > 0 Then
strChatContent = strUser & strMessage & "<br>" &
Application("ChatLog")
Application.Lock
Application("ChatLog") = strChatContent
Application.UnLock
End If
End If
Response.Write Application("ChatLog")
Case "send" %>
<form method="POST" action="chat.asp?mode=chat" target="Top">
<input type="text" name="message" size="30"> <input type="submit"
name="Action" value="Send">
</form>
<% Case Else %>
<frameset rows="90%,*">
<frame name="Top" src="chat.asp?mode=chat" scrolling="auto" marginwidth="4"
marginheight="4" noresize>
<frame name="Bottom" src="chat.asp?mode=send" scrolling="auto"
marginwidth="4" marginheight="4">
<noframes>
<body>
<p>Denne side bruger frames, og det understøtter din browser ikke.</p>
</body>
</noframes>
</frameset>
<% End Select %>
</body></html>
****SLUT***********************
Kort fortalt er det en simpel chat med 2 frames, top-frame er chattet og i
bundframen skrives beskeden - hvorefter der submittes.
Det ville være rart hvis text-feltet nulstilles efter det er blevet
submittet. Jeg skal også bruge en eventuel løsning andre steder.
mvh
Bent.