J jboy_87 Medlem sedan aug. 2001 1 099 inlägg Trådstart 28 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"> <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>
I iceM2 Medlem sedan mars 2001 243 inlägg
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...
J jboy_87 Medlem sedan aug. 2001 1 099 inlägg typ asså hela chatte är en fil med ramar !!
J jboy_87 Medlem sedan aug. 2001 1 099 inlägg hur får jag användarnamet som e inloggad istället för ip adressen??
@nders Medlem sedan juni 2000 32 967 inlägg Var får du ip-adressen ifrån?
J jboy_87 Medlem sedan aug. 2001 1 099 inlägg <%
' // 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")
%>
J jboy_87 Medlem sedan aug. 2001 1 099 inlägg gjorde så här men funkande inte
strUser = "<b>" & recset("username") & "</b>:
@nders Medlem sedan juni 2000 32 967 inlägg 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.
J jboy_87 Medlem sedan aug. 2001 1 099 inlägg jag tog bort det och la in recset("username")
@nders Medlem sedan juni 2000 32 967 inlägg Hur identifierar du dina användare?
J jboy_87 Medlem sedan aug. 2001 1 099 inlägg det såg ut såhär förut:
strUser = "<b>" & Request.ServerVariables("REMOTE_ADDR") & "</b>: "
J jboy_87 Medlem sedan aug. 2001 1 099 inlägg hallå kan ingen hjälpa mig
@nders Medlem sedan juni 2000 32 967 inlägg 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.
Man kan ju alltid slumpa ut ett namn på användaren...
M mrblonde Medlem sedan aug. 2001 2 349 inlägg den här tråden känns väldigt förvirrad.
trots det lyckas jboy_87 lösa alla problem hela tiden
J jboy_87 Medlem sedan aug. 2001 1 099 inlägg jag använder mig utav session när man loggar in
@nders Medlem sedan juni 2000 32 967 inlägg Vad heter din session då?
