網(wǎng)站建設(shè)之最簡(jiǎn)單的聊天室程序

發(fā)布日期：[2010/2/15] 編輯：奇億廣州網(wǎng)站建設(shè)

想到聊天室，你一定會(huì)認(rèn)為非常復(fù)雜非常麻煩的吧，呵呵，這僅僅只有一段簡(jiǎn)單的ASP代碼，實(shí)現(xiàn)了聊天室的基本功能，不妨參考下：將以下代碼保存為liaotian.asp

<%If Request.ServerVariables("Request_Method")="GET" then%>
<form method="post" action="liaotian.asp">
<input type="text" name="nick" Ｖalue="您的昵稱"><p>
<input type="submit" Ｖalue="come in"><p>
<input type="hidden" name="log" size="20" Ｖalue="1">
</form>
<%Response.End
Else
Response.clear
dim talk
If Request.Form("nick")<>"" then
Session("nick")=Request.Form("nick")
End if
%>
<form method="post" action="liaotian.asp" name=form1>
<%=Session("nick")%>說話：
<input type="text" name="talk" size="50"><br>
<input type="submit" Ｖalue="提交">
<input type="reset" Ｖalue="取消"></p>
</form>
<a href="liaotian.asp">離開</a><br>
<%
If Request.Form("log")<>1 then
If trim(Request.Form("talk"))="" then
talk=Session("nick")&"不說一句話就想來敷衍大家"
Else
talk=trim(Request.Form("talk"))
End If
Application.lock
Application("show")="來自"&Request.ServerVariables("remote_addr")& "的" &Session("nick")&"在"&time& "的時(shí)候說：" &talk& "<br>" &Application("show")
Application.UnLock
Response.Write Application("show")
End if
%>
<%End if%>