因胸联盟 发表于 2015-2-16 00:27:04

ASP网站制作之手把手教你建ASP语音聊天室

实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同,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)){
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能做到,例如银行安全控件

因胸联盟 发表于 2015-2-16 02:50:28

那么,ASP.Net有哪些改进呢?

admin 发表于 2015-2-16 22:18:26

没有坚实的理论做基础,那么我们连踏入社会第一步的资本都没有,特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP,从平时的学习过程中。

透明 发表于 2015-3-1 22:29:01

Application:这个存储服务端的数据,如果不清除,会直到web应用程序结束才清除(例如重启站点)

深爱那片海 发表于 2015-3-9 16:44:47

最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。

再见西城 发表于 2015-3-11 01:12:31

ASP的语言不仅仅只是命令格式差不多,而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的,但他就是完全继承了VB所有的功能。

只想知道 发表于 2015-3-17 17:13:59

代码逻辑混乱,难于管理:由于ASP是脚本语言混合html编程,所以你很难看清代码的逻辑关系,并且随着程序的复杂性增加,使得代码的管理十分困难,甚至超出一个程序员所能达到的管理能力,从而造成出错或这样那样的问题。

不帅 发表于 2015-3-24 14:26:48

另外因为asp需要使用组件,所以了解一点组件的知识(ADODB也是组件)

爱飞 发表于 2015-4-1 12:10:36

它可通过内置的组件实现更强大的功能,如使用A-DO可以轻松地访问数据库。

飘灵儿 发表于 2015-4-8 12:44:49

哪些内置对象是可以跳过的,或者哪些属性和方法是用不到的?

山那边是海 发表于 2015-4-12 18:17:45

ASP.Net和ASP的最大区别在于编程思维的转换,而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程,而那些脚本语言属于弱类型、面向结构的编程语言,而非面向对象,这就明显产生以下几个问题:

愤怒的大鸟 发表于 2015-4-28 22:15:47

不能只是将它停留在纸上谈兵的程度上。

蒙在股里 发表于 2015-5-2 06:17:14

多看多学多思。多看一些关于ASP的书籍,一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人,向同学老师多多学习,不论知识的大小;多思则是要将学到的知识灵活运用。

小妖女 发表于 2015-5-12 10:19:07

不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍

海妖 发表于 2015-6-26 04:17:13

弱类型造成潜在的出错可能:尽管弱数据类型的编程语言使用起来回方便一些,但相对于它所造成的出错几率是远远得不偿失的。

简单生活 发表于 2015-7-20 00:20:17

ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点,理论上可以使用任何编程语言包括C++,VB,JS等等,当然,最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp),它可以看作是VC和Java的混合体吧。

活着的死人 发表于 2015-9-24 14:14:51

以HTML语言整合(HTML负责界面上,ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。

老尸 发表于 2015-10-2 09:47:31

虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家,只是从一个例子告诉你怎么用。不会深入讨论,更不会将没有出现在例子里的方法都一一列举出来。

分手快乐 发表于 2015-10-8 00:58:50

Server:这个表示的服务器,操作服务器的一些东西使用这个,如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件
页: [1]
查看完整版本: ASP网站制作之手把手教你建ASP语音聊天室