---
title: "Simple Chat"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13096-simple-chat"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "jboy_87"
published: "2001-11-28T16:38:00.000Z"
updated: "2001-12-09T14:17:00.000Z"
replies: 48
views: 654
page: 1
pages: 3
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/13096-simple-chat"
---

# Simple Chat

_Sida 1 av 3._

## #1 — jboy_87, 2001-11-28T16:38Z

snälla kan nån fixa koden till mig vill att den får vanliga ramar please!!!!:

```
<% 
Response.Buffer = True

Select Case LCase(Request.QueryString("mode"))
Case "chat"
%>
<!-- #include file="../adovbs.inc" -->

<html>
<head>
<meta http-equiv="REFRESH" content="3; URL=default.asp?mode=chat">
<title>Chat</title>
</head>
	<%
	strUser = "<b>" & session("id") & "</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="default.asp?mode=chat" target="Top">
<input type="text" name="message" size="30">&nbsp;<input type="submit" name="Action" value="Send">
</form>

<% Case Else %>
<frameset rows="90%,*">
  <frame name="Top" src="default.asp?mode=chat" scrolling="auto" marginwidth="4" marginheight="4" noresize>
  <frame name="Bottom" src="default.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>
```

Permalänk: https://www.webforum.nu/p/13096

## #2 — iceM2, 2001-11-28T16:44Z

> snälla kan nån fixa koden till mig vill att den får vanliga ramar please!!!!

 hmm förstår inte riktigt vad du menar...

Permalänk: https://www.webforum.nu/p/300249

## #3 — jboy_87, 2001-11-28T16:47Z

typ asså hela chatte är en fil med ramar !!

Permalänk: https://www.webforum.nu/p/300250

## #4 — jboy_87, 2001-11-28T16:54Z

fixade det själv

Permalänk: https://www.webforum.nu/p/300251

## #5 — jboy_87, 2001-11-28T20:29Z

hur får jag användarnamet som e inloggad istället för ip adressen??

Permalänk: https://www.webforum.nu/p/300252

## #6 — @nders, 2001-11-28T20:33Z

Var får du ip-adressen ifrån?

Permalänk: https://www.webforum.nu/p/300253

## #7 — jboy_87, 2001-11-28T20:42Z

\<%
	strUser = "\<b\>" & recset("username") & "\</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") = "Skicka" 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")
	
%\>

Permalänk: https://www.webforum.nu/p/300254

## #8 — jboy_87, 2001-11-28T20:45Z

gjorde så här men funkande inte

```
strUser = "<b>" & recset("username") & "</b>:
```

Permalänk: https://www.webforum.nu/p/300255

## #9 — @nders, 2001-11-28T20:45Z

Jag ser ingenting om någon ip-adress... Om inte ip-adressen ligger lagrad i fältet username i din tabell, och i så fall är min fråga varför ip-adressen ligger där.

Permalänk: https://www.webforum.nu/p/300256

## #10 — jboy_87, 2001-11-28T20:57Z

jag tog bort det och la in recset("username")

Permalänk: https://www.webforum.nu/p/300257

## #11 — @nders, 2001-11-28T21:01Z

Hur identifierar du dina användare?

Permalänk: https://www.webforum.nu/p/300258

## #12 — jboy_87, 2001-11-28T21:03Z

det såg ut såhär förut:

```
strUser = "<b>" & Request.ServerVariables("REMOTE_ADDR") & "</b>: "
```

Permalänk: https://www.webforum.nu/p/300259

## #13 — jboy_87, 2001-11-28T22:21Z

hallå kan ingen hjälpa mig

Permalänk: https://www.webforum.nu/p/300260

## #14 — @nders, 2001-11-29T05:11Z

Hur identifierar du dina användare? Har du inloggning?

Om inte, det ska du ha, annars finns det ju inget användarnamn på användaren.

Permalänk: https://www.webforum.nu/p/300261

## #15 — Erik Juhlin, 2001-11-29T06:55Z

Man kan ju alltid slumpa ut ett namn på användaren... :OO

Permalänk: https://www.webforum.nu/p/300262

## #16 — OveRRidE, 2001-11-29T08:01Z

> ASP är bäst fuck the rest!!!

 :e :OO

Permalänk: https://www.webforum.nu/p/300263

## #17 — mrblonde, 2001-11-29T10:31Z

den här tråden känns väldigt förvirrad.

trots det lyckas jboy_87 lösa alla problem hela tiden :)

Permalänk: https://www.webforum.nu/p/300264

## #18 — jboy_87, 2001-11-29T13:32Z

jag använder mig utav session när man loggar in

Permalänk: https://www.webforum.nu/p/300265

## #19 — @nders, 2001-11-29T13:43Z

Vad heter din session då?

Permalänk: https://www.webforum.nu/p/300266

## #20 — jboy_87, 2001-11-29T13:47Z

vad då heter

Permalänk: https://www.webforum.nu/p/300267

---

Tråden på webben: https://www.webforum.nu/amne/asp/13096-simple-chat  
Nästa sida: https://www.webforum.nu/amne/asp/13096-simple-chat/page2.md