Simple Chat
48 svar · 580 visningar · startad av jboy_87 · sida 3 av 3
Frågan, av jboy_87
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.HTMLEncod
Läs frågan i sin helhet →provat så här också:
länk till chattet:
chat/default.asp?id=<%=Session("id")%>
chat/main.asp?id=<%=Session("id")%>
chattet:
--------------------------------------
default.asp
<html>
<head>
<title>PLANKA.COM|MUNITY - CHAT 1.0</title>
</head>
<frameset rows="88%,*" framespacing="1" border="0" frameborder="0">
<frameset cols="*,92%,4%">
<frame name="Top" src="vanster.asp" scrolling="no" target="_self" noresize>
<frameset rows="*,88%">
<frame name="sd" scrolling="no" src="top.asp" noresize target="_self">
<frame name="chat" src="main.asp" scrolling="auto" target="_self">
</frameset>
<frame name="Top3" src="online.asp" scrolling="no" noresize target="_self">
</frameset>
<frame name="Bottom" src="send.asp" scrolling="no" marginwidth="4" marginheight="4" noresize target="chat">
<noframes>
<body>
<p>Denne side bruger frames, og det understøtter din browser ikke.</p>
</body>
</noframes>
</frameset>
</body>
</html>
main.asp
<!-- #include file="../adovbs.inc" -->
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../Database/members.mdb")&";pwd=losen"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From members Where id = " &Session("id")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta http-equiv="REFRESH" content="3; URL=main.asp">
<title>Ny sida 1</title>
<base target="_self">
</head>
<body bgcolor="#FFF8E8">
<% strUser = "<b>" & session("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")%>
<%=session("username")%>
</body>
</html>
de övriga e tomma!!
------------------
ASP är bäst fuck the rest!!!
jag får följande felmess:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Drivrutin för ODBC Microsoft Access] Syntaxfel (operator saknas) i frågeuttrycket 'id ='.
/chat/main.asp, line 10
------------------
ASP är bäst fuck the rest!!!
... och det beror på att session("id") är tom.
Jag kan dock inte förstå varför. Kan du använda session("username") på alla sidor utom chatten? Det är inte så att chatten ligger på en annan server?
Var någonstans kan du annars använda den sessionsvariabeln?
------------------
Don't panic!
jag kan använda session på alla sidorna utan chattet det kan kanske bero på att jag har chattet i en annan mapp
------------------
ASP är bäst fuck the rest!!!
Varför inte prova att flytta in det i samma mapp som resten? Så länge det inte är en egen applikation på din server så ska den ju tillhöra samma så att säga.
------------------
Don't panic!
ja nu funkar det :-) men hur gör man om man vill att den ska funka i en mapp istället????
------------------
ASP är bäst fuck the rest!!!
hur får jag så att det står session("username") har joinat chattet?
så här ser koden ut:
<%
strUser = "<b>" & session("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!!!