聊天室 第一步：下載語音交談室伺服器端程式，我們要用的是Bchat工作室的Bchat Server。
1.進入http://bchat.yinsha.com/頁面；
2.頁面右側的“火熱頭條”中有“Bchat推出10使用者免費下載版”字樣，我們需要的就是它；
3.點擊“Bchat推出10使用者免費下載版”的連結後，就到了免費版本下載頁面；
4.在下載頁面中下載“Windows版本”（其他版本我沒用過，我就會使用Windows版本）；
5.下載後的檔案是bchat.zip，把他解壓縮到一個目錄中（為了以後你在網站的ASP程式使用它，這個目錄應當是你網站的某個目錄，比如C:\Inetpub\wwwroot\）；
6.按上面操作以後，Bchat Server就被安裝到了C:\Inetpub\wwwroot\Bchat\目錄下；
7.進入C:\Inetpub\wwwroot\Bchat\目錄，可以看到目錄下有7個檔案以及3個子目錄；
8.把gb子目錄下的檔案全部拷貝到目前的目錄（目前的目錄也就是C:\Inetpub\wwwroot\Bchat\目錄），這樣就安裝好了具有簡體中文介面的語音交談室。（如果你想安裝英文介面，那麼拷貝english子目錄下的檔案到目前的目錄；如果你想安裝繁體中文介面，那麼拷貝big5子目錄下的檔案到目前的目錄。）
第二步：建立一個資料庫。（儘管不建立資料庫也能使用語音交談室，但是我們要的是功能強點的“ASP”語音交談室，因此要用資料庫！）
1.運行Access建立一個空資料庫，資料庫名字取為bchat.mdb，資料庫儲存在C:\Inetpub\wwwroot\Bchat\目錄下；
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:\Inetpub\wwwroot\Bchat\目錄下。）
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit%>
<%
'*************************************************************
'程式名稱：ASP語音交談室
'程式實現：必須依賴Bchat Server，下載地址http://bchat.yinsha.com
'程式設計：Madpolice
'完成時間：2003-2-23 17:36:00
'說 明：1.在本人的Windows 2000 Advanced Server上測試通過，
' 不保證在其他環境中能正常運行。
' 2.本人不要求任何著作權，但是請保留俺的名字，行不？
'**************************************************************
Dim db,connStr,conn,rs,sql,serverIP
db="bchat.mdb"
connStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db)
'如果你的伺服器採用較老版本Access驅動，請用下面串連方法
'connStr="driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath(db)
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open connStr
Set rs=Server.CreateObject("ADODB.RecordSet")
serverIP=Request.ServerVariables("LOCAL_ADDR")
sql="SELECT * 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
%>
<html>
<head>
<title>語音交談室</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript">
var wwwhost="<%=Request.ServerVariables("SERVER_NAME")%>";
function go(pport){
if(validname(document.form1.elements[0])){
document['form1'].action='http://'+wwwhost+':'+pport+'/';
launchchat();
document['form1'].method='post';
document.form1.submit();
}
}
function validname(str1)
{
var s,i,j;
if (str1.value.length <1) {
alert("請輸入您的大名，名字不可為空！");
str1.focus();
return false;
}
return true;
}
var focusok=false;
if (navigator.appName == "Netscape") {
focusok=true;
}
vers = navigator.appVersion;
if (navigator.appName == "Microsoft Internet Explorer") {
pos = vers.lastIndexOf('.');
vers = vers.substring(pos-1,vers.length);
}
proper_version = parseFloat(vers);
if(proper_version>=5){
focusok=true;
}
function launchchat() {
var chat = window.open("","chat","top=0,left=0,toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,width=790,height=530");
if(focusok){
chat.focus();
}
return true;
}
</script>
</head>
<body>
<FORM action=/ method=post name=form1 target="chat" align="center">
<P align=center>請先輸大名:<input type="text" name="USER" size="10" MAXLENGTH="15" ></p>
<center><div align=center>
<TABLE border=1 width="60%">
<%Do While Not rs.EOF%>
<tr height=20>
<td width="70%">
