Simple Chat

48 svar · 580 visningar · startad av jboy_87 28 nov. 2001

jboy_87Medlem sedan aug. 20011 099 inlägg

Frågan28 nov. 2001 16:38#1

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>

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

iceM2Medlem sedan mars 2001243 inlägg

28 nov. 2001 16:44#2

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...

------------------
"Ni tre går och bildar en kvadrat" (Rolf Zetterlund under ett träningspass)

jboy_87Medlem sedan aug. 20011 099 inlägg

28 nov. 2001 16:47#3

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

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

jboy_87Medlem sedan aug. 20011 099 inlägg

28 nov. 2001 16:54#4

fixade det själv

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

jboy_87Medlem sedan aug. 20011 099 inlägg

28 nov. 2001 20:29#5

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

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

@ndersMedlem sedan juni 200032 967 inlägg

28 nov. 2001 20:33#6

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

------------------
Don't panic!

jboy_87Medlem sedan aug. 20011 099 inlägg

28 nov. 2001 20:42#7

<%
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")

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

jboy_87Medlem sedan aug. 20011 099 inlägg

28 nov. 2001 20:45#8

gjorde så här men funkande inte

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

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

@ndersMedlem sedan juni 200032 967 inlägg

28 nov. 2001 20:45#9

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.

------------------
Don't panic!

jboy_87Medlem sedan aug. 20011 099 inlägg

28 nov. 2001 20:57#10

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

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

@ndersMedlem sedan juni 200032 967 inlägg

28 nov. 2001 21:01#11

Hur identifierar du dina användare?

------------------
Don't panic!

jboy_87Medlem sedan aug. 20011 099 inlägg

28 nov. 2001 21:03#12

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

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

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

jboy_87Medlem sedan aug. 20011 099 inlägg

28 nov. 2001 22:21#13

hallå kan ingen hjälpa mig

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

@ndersMedlem sedan juni 200032 967 inlägg

29 nov. 2001 05:11#14

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.

------------------
Don't panic!

Erik JuhlinMedlem sedan maj 200010 687 inlägg

29 nov. 2001 06:55#15

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

------------------
/Erik
www.juhlin.nu /sk8files/ /mp2d/

OveRRidEMedlem sedan feb. 200112 078 inlägg

29 nov. 2001 08:01#16

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

:e :OO

------------------
Jag är skum

[Redigerat av OveRRidE den 29 nov 2001]

mrblondeMedlem sedan aug. 20012 349 inlägg

29 nov. 2001 10:31#17

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

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

------------------
National Blonde Day!
Alle ihre Basis ist uns gehört.

jboy_87Medlem sedan aug. 20011 099 inlägg

29 nov. 2001 13:32#18

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

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

@ndersMedlem sedan juni 200032 967 inlägg

29 nov. 2001 13:43#19

Vad heter din session då?

------------------
Don't panic!

jboy_87Medlem sedan aug. 20011 099 inlägg

29 nov. 2001 13:47#20

vad då heter

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