|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同,ASP拥有应用系统所有权,用户拥有使用权,应用系统集中放在ASP的数据中心中,集中管理,分散使用,以一对多的租赁的形式为众多用户提供有品质保证的应用技术服务,实现规模效益。聊天室 第一步:下载语音聊天室办事器端法式,咱们要用的是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%">
</p> 优点:简单易学、开发速度快、有很多年“历史”,能找到非常多别人做好的程序来用、配合activeX功能强大,很多php做不到的asp+activeX能做到,例如银行安全控件 |
|