%If Request.ServerVariables("Request_Method")="GET" then%> form method="post" action="chat.asp"> input type="text" name="nick" value="your nick name">p> input type="submit" value="come in">p> input type="hidden" name="log" size="20" value="1"> /form> %Response.End Else Response.clear dim talk If Request.Form("nick")>"" then Session("nick")=Request.Form("nick") End if %> form method="post" action="chat.asp" name=form1> %=Session("nick")%>說(shuō)話: input type="text" name="talk" size="50">br> input type="submit" value="提交"> input type="reset" value="取消">/p> /form> a href="chat.asp">離開(kāi)/a>br> % If Request.Form("log")>1 then If trim(Request.Form("talk"))="" then talk=Session("nick")"不說(shuō)一句話就想來(lái)敷衍大家" Else talk=trim(Request.Form("talk")) End If Application.lock Application("show")="來(lái)自"Request.ServerVariables("remote_addr") "的" Session("nick")"在"time "的時(shí)候說(shuō):" talk "br>" Application("show") Application.UnLock Response.Write Application("show") End if %> %End if%> |
Application.lock Application("show")="來(lái)自"Request.ServerVariables("remote_addr") "的" Session("nick")"在"time "的時(shí)候說(shuō):" talk "br>" Application("show") Application.UnLock |
Application.lock Application("show")=talk "br>" Application("show") Application.UnLock |
標(biāo)簽:孝感 防城港 平頂山 湖北 馬鞍山 朝陽(yáng) 遼陽(yáng) 四平
巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《ASP編程入門(mén)進(jìn)階(十一):Chat聊天程序》,本文關(guān)鍵詞 ASP,編程,入門(mén),進(jìn)階,十一,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無(wú)關(guān)。