手把手教你建ASP語音聊天室 (轉)

第一步：語音室端，我們要用的是Bchat工作室的Bchat Server。

1.進入頁面；
2.頁面右側的“火熱頭條”中有“Bchat推出10免費下載版”字樣，我們需要的就是它；
3.點選“Bchat推出10使用者免費下載版”的連結後，就到了免費版本下載頁面；
4.在下載頁面中下載“版本”（其他版本我沒用過，我就會使用Windows版本）；
5.下載後的是bchat.zip，把他解到一個目錄中（為了以後你在網站的程式使用它，這個目錄應當是你網站的某個目錄，比如C:pubwww）；
6.按上面操作以後，Bchat Server就被到了C:InetpubwwwrootBchat目錄下；
7.進入C:InetpubwwwrootBchat目錄，可以看到目錄下有7個檔案以及3個子目錄；
8.把gb子目錄下的檔案全部複製到當前目錄（當前目錄也就是C:InetpubwwwrootBchat目錄），這樣就安裝好了具有簡體中文介面的語音聊天室。（如果你想安裝英文介面，那麼複製english子目錄下的檔案到當前目錄；如果你想安裝繁體中文介面，那麼複製big5子目錄下的檔案到當前目錄。）

第二步：建立一個。（儘管不建立資料庫也能使用語音聊天室，但是我們要的是功能強點的“ASP”語音聊天室，因此要用資料庫！）

1.執行Access建立一個空資料庫，資料庫名字取為bchat.m，資料庫儲存在C:InetpubwwwrootBchat目錄下；
2.選擇“使用設計器建立表”；
3.新增一個欄位。欄位名稱bName，資料型別選擇文字；
4.再新增一個欄位。欄位名稱bPort，資料型別選擇數字；
5.關閉這個（設計器視窗）。點關閉後，提示你“是否儲存更改”，選擇“是Y”，然後讓你輸入表名稱，輸入room，並確定。然後Access會提示“尚未定義主鍵”，不用理他，選擇“否N”。
6.現在room表建立好了，但是裡面還沒有資料，我們手工給他加上幾條資料。
7.雙擊room表新增資料；bName那裡輸入“一號房間”（這個是房間名字，你可以隨便寫），bPort那裡輸入5100（這個是Bchat Server執行的埠號，你也可以隨便寫。但是這個埠號不能是中已經使用的埠，如果你不熟悉埠，那這裡先寫上5100，5100一般是空閒的）；
8.再新增一條資料；bName填“二號房間”，bPort填5200；
9.關閉Access。

第三步：寫一個ASP程式。（程式我都寫好了，你把下面的程式碼複製一下就行了，然後把檔案儲存成index.asp，並儲存到C:InetpubwwwrootBchat目錄下。）

%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

'*************************************************************
'程式名稱：ASP語音聊天室
'程式實現：必須依賴Bchat Server，下載地址
'：Madpolice
'完成時間：-2-23 17:36:00
'說　　明：1.在本人的 Advanced Server上測試透過，
'　　　　　不保證在其他環境中能正常執行。
'　　　　　2.本人不要求任何版權，但是請保留俺的名字，行不？
'**************************************************************
Dim db,connStr,conn,rs,,serverIP

db="bchat.mdb"
connStr="Provr=.Jet.OLEDB.4.0;Data ="&Server.MapPath(db)
'如果你的伺服器採用較老版本Access，請用下面連線方法
'connStr="={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath(db)
Set conn=Server.Create("ADODB.Connection")
conn.Open connStr
Set rs=Server.CreateObject("ADODB.RecordSet")
serverIP=Request.ServerVariables("LOCAL_ADDR")
sql=" * FROM room ORDER BY bPort"

rs.Open sql,conn,1,1
If rs.EOF Then
 rs.Close
 Set rs=Nothing
 conn.Close
 Set conn=Nothing
 Response.Write "資料庫中還沒有記錄呢！"
 Response.End
End If

If Application("Bchat_Status")<>"running" Then
 Call StartBchat()
 rs.MoveFirst
End If
%>