Filoweb.it

CHAT IN ASP


FB TW G+ whatsapp RSS FEED News letter
ASP
CHAT IN ASP


  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(" \chat\chat.txt" ), 8, True)
f.WriteLine now() & "  - <b>"  & request.form(" nick" )& " </b>: " &request.form(" msg" )
end select%>
<body>
<%
Set f = fso.OpenTextFile(Server.MapPath(" \chat\chat.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> 
FB TW G+ whatsapp RSS FEED News letter

filoweb.it è il sito personale di Filippo Brunelli
(c) 2017 Filippo Brunelli
Le immagini ed i testi contenuti nel sito sono di proprietà di Filippo Brunelli salvo diversamente indicato.
L'uso delle immagini e del testo è gratuito per uso personale ed è subbordinato alla citazione della fonte.
Brunelli Filippo declina ogni responsabilità per l'uso che viene fatto delle informazioni presenti nel sito.
FILOWEB.it Piccolo quaderno degli appunti. Argomento: ASP, Titolo:CHAT IN ASP. Altri script riguardano: CSS, Jscript, .net, Classic Asp, HTML, Jquery, varie, url rewrite, pagina protetta da password, ecc. Altro su https://www.filoweb.it