国产在线视频第一页,拍拍拍免费网站,女同视频一区二区在线观看

<strike id="ckw00"></strike>

[點晴永久免費OA]ASP編程入門進階（十一）：Chat聊天程序

admin

2022年6月28日 9:46 本文熱度 1018

通常的聊天室所采用的程序，也就是Chat程序了，其基本結構原理是不會采用到數據庫的。那究竟采用什么技術呢？我們知道ASP變量當中Session變量的作用是記錄單個用戶的信息，并且能跟蹤用戶的行為；Application對象的作用則起的全局變量，可以實現站點多個用戶之間在頁面中共享信息的。

那可以想象，在針對當前聊天程序中，一個聊天成員即為一個Session變量，聊天成員之間的會話則當成Application變量進行共享顯示，以使各成員都能看見。

那下面就采用一很經典的實例程序，進行了解和分析。

1，chat.asp

<%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")%>說話：
<input type="text" name="talk" size="50"><br>
<input type="submit" value="提交">
<input type="reset" value="取消"></p>
</form>
<a href="chat.asp">離開</a><br>

<%
If Request.Form("log")<>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& "<br>" &Application("show")
Application.UnLock
Response.Write Application("show")
End if
%>
<%End if%>

簡單解釋：
1，<%If Request.ServerVariables("Request_Method")="GET" then%>的作用就是判斷當前頁面接受的方式，如果為GET方式則會顯示“要求輸入昵稱”的表單頁。因為頁面的默然接受方式為GET，當在URL地址欄直接敲入時，也就是沒有任何信息的時候，就應該顯示要求“輸入昵稱”。

2，<input type="hidden" name="log" size="20" value="1">和下面的If Request.Form("log")<>1 then是有關聯的：顯然第一次輸入昵稱進入，同樣將log隱藏域發送。但作為第一次的進入是無任何語句發言的，所以判斷接受的log值不為1，亦即非首次登錄（表示已經登錄）時，執行內部相關聊天顯示程序。

3，trim(Request.Form("talk"))=""，trim就是個函數了：刪去字符串前，后的空格。初此，還有rtrim()：去掉字符串后的空格；ltrim()：去掉字符串前的空格。

cnbruce=" This is a Test ！ "

alert("全部顯示："&cnbruce)

alert("刪除前面空格："<rim(cnbruce))

alert("刪除后面空格："&rtrim(cnbruce))

alert("刪除前后空格："&trim(cnbruce))

</script>

4，

Application.lock
Application("show")="來自"&Request.ServerVariables("remote_addr")& "的" &Session("nick")&"在"&time& "的時候說：" &talk& "<br>" &Application("show")
Application.UnLock

提取精華得

Application.lock
Application("show")=talk& "<br>" &Application("show")
Application.UnLock

可以看到是Application變量的疊加功能，每次Application("show")的值都建立在原有Application變量值的基礎之上，再附加上最新的聊天內容：talk變量的值。這樣就保證所有用戶都能看到的共享信息了。

未完待敘。。。

該文章在 2022/6/28 11:54:40 編輯過

關鍵字查詢

聊天

程序

正在查詢...

點晴ERP是一款針對中小制造業的專業生產管理軟件系統,系統成熟度和易用性得到了國內大量中小企業的青睞。

點晴PMS碼頭管理系統主要針對港口碼頭集裝箱與散貨日常運作、調度、堆場、車隊、財務費用、相關報表等業務管理，結合碼頭的業務特點，圍繞調度、堆場作業而開發的。集技術的先進性、管理的有效性于一體，是物流碼頭及其他港口類企業的高效ERP管理信息系統。

點晴WMS倉儲管理系統提供了貨物產品管理,銷售管理,采購管理,倉儲管理,倉庫管理,保質期管理,貨位管理,庫位管理,生產管理,WMS管理系統,標簽打印,條形碼,二維碼管理,批號管理軟件。

點晴免費OA是一款軟件和通用服務都免費，不限功能、不限時間、不限用戶的免費OA協同辦公管理系統。

狠狠色丁香婷婷综合尤物/久久精品综合一区二区三区/中国有色金属学报/国产日韩欧美在线观看 - 国产一区二区三区四区五区tv

[點晴永久免費OA]ASP編程入門進階（十一）：Chat聊天程序