在asp聊天室里實現房間功能和用戶顯示_ASP教程

2024-05-04 11:03:28

字體：大中小

來源：轉載

供稿：網友

推薦：ASP中檢查沒有數據提交的頁面
用戶在訪問站點時經常遇到一些煩人的信息，比如他們經常不知何故地在沒有實際提交數據給表單時就到了下一個頁面，或者經常達到一個頁面，它是以查詢字符串的形式轉來的，比如?ID=236454。如

在我寫下了《在asp聊天室里實現悄悄話功能》一文后，很多的朋友來信問我關于其他高級功能實現的問題。確實，例如房間、用戶管理等高級功能是一個完善的聊天室所必有的功能。在這里面又以房間功能是比較難于實現的。因此我想和大家談談這個問題。

我依然傾向于用數組來解決這兩個問題，這并不是說不能用數據庫來解決，但我們要考慮性能的問題。而且用數組有幾個好處，利于排序，利于控制總的長度。在服務器內存中長駐（有利于性能的提高）。我先講一講房間的問題，這里給出大家在兩個系統房間中切換的方法。至于自建房間的方法，希望大家能觸類旁通。還有關于用戶在線顯示的問題，因為我們既要顯示各個房間的用戶和總的用戶，所以會和房間產生一些互動，在講的時候請大家注意。為了大家使用的方便，我盡量把這些功能寫成子程序或子函數，大家可以直接的應用。

我們先看在gloable.asa中的定義，這很重要。

以下為引用的內容：
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">

Sub Application_OnStart()
application("gRoom_Name")="逍遙游" '保存主聊天室的名字，所有人先到的聊天室

dim pChat_Value(50)
application(application("gRoom_Name")&"_Value")=pChat_Value 'p代表private g代表globle 用來保存逍遙游聊天室的內容
application(application("gRoom_Name")&"_Number")=0 '用來保存逍遙游聊天室的談話的數目
application("養生主"&"_Value")=pChat_Value
application("養生主"&"_Number")=0

dim pChater_Value(150)
application(application("gRoom_Name")&"er_Value")=pChater_Value '用來保存逍遙游聊天室的聊天者的名字
application(application("gRoom_Name")&"er_Number")=0 '用來表示逍遙游聊天室的上線的人數
application("養生主"&"er_Value")=pChater_Value
application("養生主"&"er_Number")=0

dim pRoom_Value(50)
pRoom_Value(0)="逍遙游"&"("&"系統"&")"&"["&application(application("gRoom_Name")&"er_Number")&"]"&"人"
pRoom_Value(1)="養生主"&"("&"系統"&")"&"["&application("養生主"&"er_Number")&"]"&"人"
application("gRoom_Value")=pRoom_Value '用來保存房間的名字
application("gRoom_Number")=2

End Sub

Sub Session_OnStart()
session("sRoom_Name")=application("gRoom_Name")'每個新用戶的默認房間
session("sChater_Name")="" 's代表session 用來保存說話者的名字
strProvider="Driver={Microsoft Access Driver (*.mdb)}; DBQ="&server.mappath("../chat")&"/"&"db/Chater_Message.mdb;"
set Cres=server.createobject("ADODB.Connection")
set res=server.createobject("ADODB.Recordset")
Cres.open strProvider
res.activeconnection=Cres
set session("res")=res '一個Recordset的實例
End Sub

分享：ASP后門之終極偽裝
記得當年asp木馬出來的時候號稱“永不被殺的木馬”，呵呵，時至今日，隨便什么殺毒軟件都能將其殺得片甲不留^_^呵呵，受到木馬換殼躲避殺毒軟件思路影響，我們也可以給asp木馬“