---
title: "Auto kick"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/163175-auto-kick/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "SGuncel"
published: "2007-08-04T15:16:33.000Z"
updated: "2007-08-27T18:08:50.000Z"
replies: 35
views: 1398
page: 2
pages: 2
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/163175-auto-kick"
---
# Auto kick
_Sida 2 av 2._
## #21 — @nders, 2007-08-27T12:27Z
Vad menar du med fastnar?
Permalänk: https://www.webforum.nu/p/2020161
## #22 — SGuncel, 2007-08-27T12:29Z
Det laddar och laddar sen står det Sidan kan inte visas.
Jag lägger kontrollen för att om jag kickar någon från chatten så finns han fortfarande kvar i chatten. För att han inte ska vara kvar så vill jag ha kontrollen i chatten.
Permalänk: https://www.webforum.nu/p/2020162
## #23 — @nders, 2007-08-27T12:30Z
Frågan är: koden du visar - inte är den på chat.asp?
Permalänk: https://www.webforum.nu/p/2020163
## #24 — SGuncel, 2007-08-27T12:34Z
De här är Chat.asp
```
<%
Set ObjRS2 = ObjConn.Execute("Select * from TLUSers where UsrId="&SafeSQL(Session("UsrId"))&"")
ObjConn.Execute("Update TLUsers set UsrLastActive='" & Now & "' where UsrID ="&SafeSQL(Session("UsrID"))&"")
Dim strVart_page , strVart_Query, strVart
strVart_page = Mid(Request.ServerVariables("PATH_INFO"),1)
strVart_Query = Request.ServerVariables("QUERY_STRING")
If Len(strVart_Query) > 0 Then
strVart = strVart_page &"?"& strVart_Query
Else
strVart = strVart_page
End If
dim strVart_LinkName, strVart_Name
strVart_LinkName = ("Chattar på Planket")
strVart_Name = strVart_LinkName
ObjConn.Execute("UPDATE TLUsers SET UsrWhere = '" & strVart & "', UsrWhereName = '" & strVart_Name & "' WHERE UsrID = "&SafeSQL(Session("UsrID")))
%>
<%
Set ObjRS = ObjConn.Execute("Select * FROM TLUsers WHERE UsrWhereName='Chattar på Planket' Order By UsrTLAlias ASC")
Response.write "Användare i Chatten"
%>
<%
If Session("UsrAdmin")="1" Then
Response.Write "Kicka"
ElseIf Session("UsrAdmin")="2" Then
Response.Write "Kicka"
End If
%>
<%
ObjRS.MoveNext
Loop
ObjRS.close
set ObjRS=nothing
%>
<%
IF Request.Querystring("Add")="ChatMessage" then
IF Len(Request.Form("ChatMessage")) > 0 then
ObjConn.Execute("Insert into Chat (UsrTLAlias, UsrID, Background, SendDatum, ChatMessage, IP) values ('"&SafeSQL(Session("UsrTLAlias"))&"','"&SafeSQL(Session("UsrID"))&"','"&SafeSQL(Request.Form("Background"))&"','" & now &"', '"&SafeSQL(Request.Form("ChatMessage"))&"', '"&SafeSQL(Request.ServerVariables("REMOTE_ADDR"))&"')")
ObjConn.Close : Set ObjConn = Nothing
Response.Cookies("Chat") = now
Response.Cookies("Chat").Expires = DateAdd("s", 15, now())
else
ObjConn.Close : Set ObjConn = Nothing
Session("error")="Du måste skriva inlägg."
End if
Response.Redirect "Chat.asp"
End if
%>
```
Permalänk: https://www.webforum.nu/p/2020164
## #25 — @nders, 2007-08-27T12:38Z
Det där var väldigt grötigt, och du svarade itne riktigt heller på min fråga, så jag förklarar vad jag menar då:
Det känns som att du har en redirectloop någonstans. Dvs - någon sida redirectar till chat.asp, som redirectar till någon sida, som redirectar till chat.asp, som redirectar till någon sida, som redirectar till chat.asp, osv, osv.
Permalänk: https://www.webforum.nu/p/2020165
## #26 — SGuncel, 2007-08-27T12:46Z
Här har jag en enda redirectloop som skickar användaren till chat.asp sidan efter man har postat inlägg.
```
<%
IF Request.Querystring("Add")="ChatMessage" then
IF Len(Request.Form("ChatMessage")) > 0 then
ObjConn.Execute("Insert into Chat (UsrTLAlias, UsrID, Background, SendDatum, ChatMessage, IP) values ('"&SafeSQL(Session("UsrTLAlias"))&"','"&SafeSQL(Session("UsrID"))&"','"&SafeSQL(Request.Form("Background"))&"','" & now &"', '"&SafeSQL(Request.Form("ChatMessage"))&"', '"&SafeSQL(Request.ServerVariables("REMOTE_ADDR"))&"')")
ObjConn.Close : Set ObjConn = Nothing
Response.Cookies("Chat") = now
Response.Cookies("Chat").Expires = DateAdd("s", 15, now())
else
ObjConn.Close : Set ObjConn = Nothing
Session("error")="Du måste skriva inlägg."
End if
Response.Redirect "Chat.asp"
End if
%>
```
Nej, kontrollen är inte i chat.asp, jag testade lägga i chat.asp men de va då chat.asp laddades segt och sen det stog sidan kan inte visas.
Permalänk: https://www.webforum.nu/p/2020168
## #27 — @nders, 2007-08-27T12:48Z
> men de va då chat.asp laddades segt och sen det stog sidan kan inte visas.
Det var därför jag frågade - det är ingen bra idé om det första som händer på chat.asp är att den redirectar till chat.asp. Men om det inte är så nu - vad är alltså felet nu?
Permalänk: https://www.webforum.nu/p/2020169
## #28 — SGuncel, 2007-08-27T12:52Z
Jag kan inte ha kontrollen i chatten. Användaren står kvar i chatten och chattar som vanligt när man har kickad han/hon.
Permalänk: https://www.webforum.nu/p/2020170
## #29 — @nders, 2007-08-27T12:57Z
var gör du alltså kontrollen nu?
Om du har kontrollen på chat-sidan, skicka iväg den som är kickad, inte de som inte är det.
Permalänk: https://www.webforum.nu/p/2020171
## #30 — SGuncel, 2007-08-27T13:18Z
Vad kontrollen gör?
Den kollar om personen är med i banndlistan, om användaren med så får användaren meddelande att han är kickad från chatten. Men om man är inte med så skickas man till chatten.
Just nu så har jag kotrollen på egen sida som heter Chatcontrol.asp
Problemet för mig är att jag inte kan ha kontrollen i chat sidan.
Permalänk: https://www.webforum.nu/p/2020176
## #31 — @nders, 2007-08-27T13:20Z
Nej, inte vad den gör - det är ju solklart.
Varför kan du inte göra kontrollen i chatsidan och skicka den kickade användaren till "kickad.asp" eller något liknande?
Permalänk: https://www.webforum.nu/p/2020178
## #32 — SGuncel, 2007-08-27T13:44Z
Först tänkte jag så också, men sen ändrade jag.
Då menar du så hära va?
```
<%
Set ObjRS = ObjConn.Execute("SELECT * FROM chatkick where kickUser='"&Session("UsrTLAlias")&"' and kickUntil > now()")
IF ObjRS.Eof then
Response.Redirect "Chat.asp"
else
Response.Redirect "Kickad.asp"
End If
%>
```
Permalänk: https://www.webforum.nu/p/2020184
## #33 — @nders, 2007-08-27T13:48Z
Nej, redirecta bara om användaren är kickad, annars är det bara att köra chatsidan som vanligt.
```
IF not ObjRS.Eof then
Response.Redirect "Kickad.asp"
End If
```
Permalänk: https://www.webforum.nu/p/2020187
## #34 — SGuncel, 2007-08-27T14:13Z
Tack för allt @nders.
Bare n sista sista fråga. Hur kan jag göra så att det står i chatten att en av adminerna kickad någon. Det ska vara som en chatt inlägg och visas bara en gång o det är när man har kickad annvändaren.
Det ska vara typ så här:
System 12:05
Kickade Test i 55 minuter.
Anledning: Spammade
Permalänk: https://www.webforum.nu/p/2020191
## #35 — voigtann1, 2007-08-27T14:27Z
Gör om den är EOF så gör du en insert till din databas med texten.
Permalänk: https://www.webforum.nu/p/2020194
## #36 — @nders, 2007-08-27T18:08Z
Jag skulle nog säga:
Precis när du gjort INSERT i kickuser, kör en INSERT som lagrar ett meddelande i chatten, typ:
```
strSQL = "Insert into Chat (UsrTLAlias, UsrID, Background, SendDatum, ChatMessage, IP) " & _
"values ('System','0','någon bakgrund',now(), 'Kickade " & Session("UsrTLAlias") & " i 55 minuter. Anledning:spammade', '127.0.0.1')"
```
Permalänk: https://www.webforum.nu/p/2020233
---
Tråden på webben: https://www.webforum.nu/amne/asp/163175-auto-kick/page2
Föregående sida: https://www.webforum.nu/amne/asp/163175-auto-kick.md
