聊天室

****************************************

聊天室代码

<form method="post" action="" name="form1">

<input type="text" name="talk">

<input type="submit" value="发言" name="B1">

</form>

<%

If Trim(Request.Form("talk"))<>"" Then

Application.Lock

Application("show")=request("talk")

&"<br>"

&Application("show")

Application.UnLock

Response.Write(Application("show"))

End If

%>