Realizzare una chat (Parte II)

Pagina 2 di 2

Ecco in pratica tutte le strutture delle pagine che comprendono la chat:

Login.asp:

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<form name="form1" method="post" action="multiframe.asp">
<p><font size=" +2">Inserisci il tuo NickName</font>
<br>
<input name="nick" type="text" id="nick">
<input type="submit" name="Submit" value="entra nella chat">
</p>
</form>
</body>
</html>

Chat.asp:

<html>
<META HTTP-EQUIV=REFRESH CONTENT="30;URL=chat.asp#fine_pagina">
<%
Set fso = CreateObject("Scripting.FileSystemObject")
%>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<%select case request.querystring("azione")
case "scrivi"
Set f = fso.OpenTextFile(Server.MapPath("chatchat.txt"), 8, True)
f.WriteLine now() & " - <b>" & request.form("nick")& "</b>: "&request.form("msg")
end select%>
<body>
<%
Set f = fso.OpenTextFile(Server.MapPath("chatchat.txt"), 1)
Do While f.AtEndOfStream <> True
response.write f.ReadLine & "<br>"
Loop
%>
<a name="fine_pagina"></a></body>
</html>

Form.asp:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<form action="chat.asp?azione=scrivi#fine_pagina" method="post" name="form1" target="topFrame">
<p><font size="2">Inserisci il messaggio:</font>
<input name="msg" type="text" id="msg">
<input type="submit" name="Submit" value="invia">
<input name="nick" type="hidden" id="nick" value="<%=request.querystring("nick")%>">
</p>
</form>
</body>
</html>

Multiframe.asp:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN" "http://www.w3.org/TR/html4/frameset.dtd">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<frameset rows="80%,*" cols="*" framespacing="0" frameborder="NO" border="0">
<frame src="chat.asp" name="topFrame" scrolling="auto" noresize >
<frame src="form.asp?nick=<%=request.form("nick")%>" name="mainFrame">
</frameset>
<noframes><body>
</body></noframes>
</html>

Chiaramente la chat funzionerà solamente se avrete uno spazio web che supporti l'elaborazione di pagine Asp.

<<< Precedente