ASP 模块-头1

|用户注册|用户注册1|用户登录|计数器|留言板|聊天室|聊天室1|讨论区|

|Register|Register1|Login|Counter|Guest|Chat|Chat1|BBS|

聊天室

请你发言:

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

聊天室代码

<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

%>