个简单的聊天室示例,代码如下: BODY BGCOLOR=#CODOD9> Response Buffer=true If Request Server Variables("Request Method=GET"' ther 请输入你的昵称 Response. End Response. clear Response. Write(") Dim talk If Request Form("nick")then End lf 返回</A
一个简单的聊天室示例，代码如下： 请输入你的昵称 “) Dim talk If Request.Form(“nick”)<>““ then Session(“nick”)=Request.Form(“nick”) End If %> 消息: 返回
If Request Form("log)l then If TRIM(Request Form("talk))=then tak= Session(“nick)&沉默是金 Else talk=TRIM(Request Form("talk")) End If Application lock Application("show)= 来自“& Request. Server variable( remote addr”)k”的“& Session(“nick")& time&”说:“&tlk&” “& Application(“show”) Application. Unlock Response. Write Application(show) End If End lf
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&” 说： “&talk&” “&Application(“show”) Application.Unlock Response.Write Application(“show”) End If End If %>