salve ho creato una chat che funzione , solo che vorrei fare alcune modifiche-
1) praticamente i messaggi scritti appaiono dal basso verso l'alto, io vorrei che apparissero dall'alto verso il basso.
2) vorrei se possibile , oltre al nick e all'ora far apparire anche due immaggini prese dal db, nel recordeset corrispondente all'utente che è entrato.
3) vorrei dare la possibilità agli utenti di inviarsi messaggi privati in chat come metterli tra due tag @nomedell'utente@messaggio e farlo appaire nella stessa chat con un colore diverso e che lo legga solo la persona a cui è indirezzate si può realizzare?
grazie per le risposte vi posto le pagine della chat che ho fatto:
questa è la pagina del frameset
<%
IF Session("Loggato") = False and Session("Username") = "" then
Response.Redirect "index.asp"
End IF
%>
<html>
<head>
<title>Documento senza titolo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<%
Session.Timeout = 1
IF Session("Username") = "" then
Response.Write "<body>"
End IF
Operazione = Request("tipo")
IF Session("Username") <> "" and Session("Loggato") = True then
%></head>
<frameset rows="*, 13%" border="0" frameborder="no">
<frame name="centro" src="centro.asp">
<frame name="inferiore" src="inferiore.asp" scrolling="no">
<noframes>
<body>
<%
%>
<p> la pagina corrente utilizza i frame. </p>
</body></noframes></frameset>
<%
ElseIF Operazione = "login" then
Username = Request("username")
Username = Replace(Username, ">", "<")
Username = Replace(Username, "<", ">")
IF TRIM(Username) = "" or Instr(Username, "@!/") > 0 then
%>
Username non valido
<%
Else
If Instr(Application("username"), "@!/" & Username) > 0 then
%>
Username già in uso
<%
Else
Application.Lock
Application("Utenti") = Application("Utenti") & "@!/" & Username
Application.UnLock
Session("Username") = Username
Session("Loggato") = True
Response.Redirect "chat.asp"
END IF
END IF
Else
%>
<% End If
%>
<%
If Session("Username") = "" then
Response.Write "</body>"
End IF
%>
</html>
questa la pagina dove arrivano i messaggi :
<%
IF Session("Username") <> "" and Session("Loggato") = True then
%>
<html>
<head>
<title>Documento senza titolo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="javascript">
<!--
setTimeout("location='centro.asp'", 4000)
//-->
</script>
<link href="../css/city.css" rel="stylesheet" type="text/css">
</head>
<body class="chat">
<%
Session.Timeout = 1
Response.Write Replace(Application("messaggi"), "@!/", " <br>")
%>
</body>
</html>
<%
End IF
%>questa è la pagina dove vi è il form di invio :
<%
IF Session("Username") <> "" and Session("Loggato") = True then
Messaggio = Request.Form("Messaggio")
IF Len(Trim(Messaggio)) > 0 then
Application.Lock
Messaggio = Replace(messaggio, "@!/", " ")
Messaggio = Replace(messaggio, "<", "<")
Messaggio = Replace(messaggio, ">", ">")
Application("Messaggi") = "<b>" & Session("username") & "</b> - " & Time() &" : " & Messaggio & "@!/" & Application("Messaggi")
Application.UnLock
End IF
%>
<html>
<head>
<title>Documento senza titolo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../css/city.css" rel="stylesheet" type="text/css">
</head>
<body onLoad="documento.forms[0].Messaggio.focus();" class="chat">
<%
%><form method="post" action="inferiore.asp">
<table border="0" cellpadding="0" cellspacing="0" width="623">
<!-- fwtable fwsrc="Senza nome" fwbase="homecity(1)_r2_c8.jpg" fwstyle="Dreamweaver" fwdocid = "1154614247" fwnested="0" -->
<tr>
<td><img src="../images/chat/spacer.gif" alt="" name="undefined_2" width="477" height="1" border="0"></td>
<td><img src="../images/chat/spacer.gif" alt="" name="undefined_2" width="72" height="1" border="0"></td>
<td><img src="../images/chat/spacer.gif" alt="" name="undefined_2" width="74" height="1" border="0"></td>
<td><img src="../images/chat/spacer.gif" alt="" name="undefined_2" width="1" height="1" border="0"></td>
</tr>
<tr>
<td colspan="3"><img name="homecity1_r2_c8_r2_c1" src="../images/chat/homecity(1)_r2_c8_r2_c1.jpg" width="623" height="33" border="0" alt=""></td>
<td><img src="../images/chat/spacer.gif" alt="" name="undefined_2" width="1" height="33" border="0"></td>
</tr>
<tr>
<td rowspan="3" background="../images/chat/homecity(1)_r2_c8_r3_c1.jpg" valign="top"><center><input type="text" name="Messaggio" size="60" class="form"></center></td>
<td rowspan="2"><input src="../images/chat/homecity(1)_r2_c8_r3_c2.jpg" type="image" name="submit"></td>
<td><img name="homecity1_r2_c8_r3_c3" src="../images/chat/homecity(1)_r2_c8_r3_c3.jpg" width="74" height="23" border="0" alt=""></td>
<td><img src="../images/chat/spacer.gif" alt="" name="undefined_2" width="1" height="23" border="0"></td>
</tr>
<tr>
<td rowspan="2"><img name="homecity1_r2_c8_r4_c3" src="../images/chat/homecity(1)_r2_c8_r4_c3.jpg" width="74" height="43" border="0" alt=""></td>
<td><img src="../images/chat/spacer.gif" alt="" name="undefined_2" width="1" height="13" border="0"></td>
</tr>
<tr>
<td><img name="homecity1_r2_c8_r5_c2" src="../images/chat/homecity(1)_r2_c8_r5_c2.jpg" width="72" height="30" border="0" alt=""></td>
<td><img src="../images/chat/spacer.gif" alt="" name="undefined_2" width="1" height="30" border="0"></td>
</tr>
</table>
</form>
</body>
</html>
<%
end if
%>grazie per le risposte e la pazienza
