<%@ 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 %。

熱心網友

按鈕應該是懸掛作用吧。