聊天室asp源码下载（聊天室程序源码）
本文目录一览：
设计一个简单聊天室程序
% @EnableSessionState=False %
% Option Explicit %
% Response.Expires=0 %
% Response.Buffer=True %
% Response.Cachecontrol="Public" %
!--#INCLUDE file="pwd.asp"--
SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT
Dim strApp, strUsr, strUpd, strRom, strTon, strMda
Dim intNr1
strUpd = Application("strUpd" Pwd(2))
strApp = Application("strApp" Pwd(2))
strUsr = Application("strUsr" Pwd(2))
strRom = Trim(Request.Querystring("fldRom"))
strTon = Trim(Request.Querystring("fldTon"))
strMda = Trim(Request.Querystring("fldMda"))
If Not IsNumeric(strRom) Then strRom = "1"
Response.Write("HTMLHEADTITLEASP Chat/TITLE/HEAD")
If strMda "off" Then
Response.Write("BODY BACKGROUND='/chat/images/space" strRom ".jpg' BGCOLOR='#000000'")
Else
Response.Write("BODY BACKGROUND='' BGCOLOR='" strUpd(CInt(strRom), 9) "'")
End If
Response.Write("FORM NAME='usr'")
Response.Write("TABLE WIDTH='100%' BORDER= '0'")
Response.Write("TRTD ALIGN='Center'")
If strMda "off" Then
Response.Write("AIMG SRC='/chat/images/chat1.gif'BR")
Response.Write("FONT SIZE='-2' FACE='MS Serif' COLOR='#C0C0C0'?BVISITORS/B?/FONTBR")
For intNr1 = 1 TO 5
Response.Write("IMG SRC='/chat/images/" Mid(Right(String(5, "0") strApp(0), 5), intNr1, 1) "dig.gif' BORDER='0'")
Next
Response.Write("/A")
Else
Response.Write("BRFONT SIZE='+1' FACE='MS Serif' COLOR='#C0C0C0'BCHAT/B/FONTBR")
End If
Response.Write("/TD/TR")
Response.Write("TRTD ALIGN='Center'BR")
Response.Write("FONT SIZE='-1' COLOR='#00FFFF'Space:/FONT")
Response.Write("/TD/TR")
Response.Write("TRTD ALIGN='Center'")
Response.Write("FONT SIZE='-2' FACE='MS Sans Serif' COLOR='#D9D919'")
Response.Write("B- " strRom " -/B")
Response.Write("/FONT")
Response.Write("/TD/TR")
Response.Write("TRTD ALIGN='Center'BR")
Response.Write("FONT SIZE='-1' COLOR='#00FFFF'Input:/FONT")
Response.Write("/TD/TR")
Response.Write("TRTD ALIGN='Center'")
Response.Write("FONT SIZE='-2' FACE='MS Sans Serif' COLOR='#D9D919'")
Response.Write("B" strUpd(CInt(strRom),7) "/B")
Response.Write("/FONT")
Response.Write("/TD/TR")
Response.Write("TRTD ALIGN='Center'")
Response.Write("FONT SIZE='-2' FACE='MS Sans Serif' COLOR='#D9D919'")
Response.Write("B" strUpd(CInt(strRom),5) "/B")
Response.Write("/FONT")
Response.Write("/TD/TR")
Response.Write("TRTD ALIGN='Center'")
Response.Write("FONT SIZE='-2' FACE='MS Sans Serif' COLOR='#FFFF00'")
Response.Write("B" strUpd(CInt(strRom),6) "/B")
Response.Write("/FONT")
Response.Write("/TD/TR")
Response.Write("TRTD ALIGN='Center'BR")
Response.Write("FONT SIZE='-1' COLOR='#00FFFF'Inside:/FONT")
Response.Write("/TD/TR")
For intNr1 = 59 To 0 Step -1
If strUsr(intNr1, 2) = strRom And Len(strUsr(intNr1, 0)) 0 Then
Response.Write("TRTD ALIGN='Center'")
Response.Write("FONT SIZE='-1' FACE='Arial' COLOR='#FF0000'")
Response.Write("B" strUsr(intNr1,0) "/B")
Response.Write("/FONT")
Response.Write("/TD/TR")
End If
Next
Response.Write("TRTD ALIGN='Center'")
Response.Write("AFONT SIZE='-2' COLOR='#0000FF'B- " strUpd(CInt(strRom),4) " -/B/FONT/A")
Response.Write("/TD/TR")
Response.Write("/TABLE")
Response.Write("/FORM")
Response.Write("/BODY")
Response.Write("/HTML")
/SCRIPT
哪位有ASP语音聊天室的源文件?
呵呵，手把手的教
第一步：下载语音聊天室服务器端程序，我用的是Bchat工作室的Bchat Server。
1.进入页面；
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，下载地址
'程序设计：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
centerdiv align=center
TABLE border=1 width="60%"
%Do While Not rs.EOF%
tr height=20
td width="70%"
li%=rs("bName")%/td
td width="30%" align="center"
INPUT name="r" onclick="go('%=rs("bPort")%')" type="button" value="进入"
/td/tr
%
rs.MoveNext
Loop
rs.Close
Set rs=Nothing
%
input type="hidden" name="PASS" value="bchat"
/td/tr
/table/div/center/FORM
/body
/html
%
conn.Close
Set conn = Nothing
Sub StartBchat()
Dim f1,f2,wsh,currentPath,sourceFile,targetFile,tempString,tempCommand
currentPath=Server.Mappath(".")
sourceFile=currentPath"\2000.ini"
Do While Not rs.EOF
targetFile=currentPath"\"rs("bPort")".ini"
Set f1=Server.CreateObject("ADODB.Stream")
f1.Type=2
f1.Mode=3
f1.Charset="gb2312"
f1.Open
f1.LoadFromFile sourceFile
tempString=f1.ReadText
f1.Close
Set f1=Nothing
tempString=Replace(tempString,"聊圆",rs("bName"))
tempString=Replace(tempString,"D:\BChat",currentPath)
tempString=Replace(tempString,"2000",rs("bPort"))
tempString=Replace(tempString,"0.0.0.0",serverIP)
Set f2=Server.CreateObject("ADODB.Stream")
f2.Type=2
f2.Mode=3
f2.Charset="gb2312"
f2.Open
f2.WriteText tempString
f2.SaveToFile targetFile,2
f2.Close
Set f2=Nothing
Set f1=Server.CreateObject("ADODB.Stream")
f1.Type=2
f1.Mode=3
f1.Charset="gb2312"
f1.Open
f1.LoadFromFile currentPath"\adminpass_2000.txt"
tempString=f1.ReadText
f1.Close
Set f1=Nothing
Set f2=Server.CreateObject("ADODB.Stream")
f2.Type=2
f2.Mode=3
f2.Charset="gb2312"
f2.Open
f2.WriteText tempString
f2.SaveToFile currentPath"\adminpass_"rs("bPort")".txt",2
f2.Close
Set f2=Nothing
tempCommand=currentPath"\bchat.exe "targetFile
Set wsh=Server.CreateObject("WScript.Shell")
wsh.Run tempCommand,0,false
Set wsh=Nothing
rs.MoveNext
Loop
Application("Bchat_Status")="running"
End Sub
%
第四步：在浏览器中输入
看到结果了吗？
跪求一套完整的asp简易的聊天室！！
以下是一个简易聊天室代码，代码摘自网上，可以做为参考。
%@ Language=VBScript %
%
Response.Buffer=true ' 设 置 输 出 缓 存，用 于 显 示 不 同 页 面。
On error resume next ' 忽 略 程 序 出 错 部 分
If Request.ServerVariables("Request_Method")="GET" then
'------------------------
' 客 户 登 陆 界 面
'------------------------
%
form method="POST" action="luo40.asp"p
input type="text" name="nick" size="20" value="nick" style="background-color: rgb(192,192,192)"br
input type="submit" value=" 进 入 聊 天 室 " name="B1" style="color: rgb(255,255,0); font-size: 9pt; background-color: rgb(0,128,128)"
pinput type="hidden" name="log" size="20" value="1"br/p
/form
%
Response.End ' 结 束 程 序 的 处 理
Else
Response.clear ' 清 空 缓 存 中 的 内 容
dim talk
If Request.Form("nick")"" then
' 判 断 客 户 是 是 否 在 聊 天 界 面 中
Session("nick")=Request.Form("nick")
End If
'------------------------
'客 户 聊 天 界 面
'------------------------
%
form method="POST" action="luo40.asp" name=form1 p%=Session("nick")% 说 话：input type="text" name="talk" size="50"br
input type="submit" value=" 提 交 " name="B1"
input type="reset" value=" 取 消 " name="B2"/p
/form
A HREF="luo40.asp" 离 开 /abrbr
%
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")="table border='0' cellpadding='0' cellspacing='0' width='85%'trtd width='100%' bgcolor='#C0C0C0'/td/trtrtd width='100%'font color='#0000FF' 来 自 "Request.ServerVariables("remote_addr")" 的 "Session("nick")time" 说：/font"talk"/td/trtrtd width='100%' bgcolor='#C0C0C0'/td/tr/tablebr"Application("show")
Application.UnLock
Response.Write Application("show")
End If
End If
%
