<%@ Language=VBScript %<%Response.Buffer=true ' 设置输出缓存，用于显示不同页面。On error resume next ' 忽略程序出错部分If Request.ServerVariables("Request_Method")="GET" then' 判断客户是以什么方式请求 WEB 页面' 客户登陆界面 %<form method="POST" action=" p"

热心网友

呵呵，这个程序似曾相识啊，我前两天刚看过。这个隐藏的输入，就是为了设置当前状态是登录还是聊天，由于它只用了一个页面，要同时完成登录和聊天两个功能，必须用一个状态标志来区分是登录还是聊天。从头给你解释吧。　　"" then' 判断客户是是否在聊天界面中 Session("nick")=Request。Form("nick")End If'客户聊天界面 % 说话：1 then'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''你会发现，'登录界面中有'而聊天界面没有，这样，第一次登录的时候，不会执行if里面的内容，'而以后每次都会执行if里面的内容。'这就是为了在第一次登录后，不显示下面的聊天记录，只显示上面的聊天输入。''''''''''''''''''''''''''''''''''''''''''''''''''''''''''If trim(Request。Form("talk"))="" then' 判断用户是否没有输入任何内容 talk=Session("nick")&" 沉默是金。"Elsetalk=trim(Request。Form("talk"))'去掉字符后的空格 End IfApplication。lockApplication("show")=" 来自 "&Request。ServerVariables("remote_addr")&" 的 "&Session("nick")&time&" 说："&talk&""&Application("show")Application。UnLockResponse。Write Application("show")End IfEnd If %。

热心网友

按钮应该是悬挂作用吧。