繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 用Agent+ASP技术制作语音聊天室
- ASP
- 使用FSO自动创建多级文件夹的函数
- 专家教你利用思易ASP木马追捕入侵站点
- 技巧：用 isapi rewrite 实现asp的HTML静态化
- 使用ASP建设私人的搜索引擎
- 巧用SQL-DMO创建备份及校验的ASP应用
- 技巧：用GetString来提高ASP的速度
- ASP实现的日历代码实例程序
- WEB应用的缓存兼容性设计
- 用网站地图帮助搜索引擎
- IIS虚拟主机网站防木马权限设置安全配置整理
- ASP把长的数字用逗号隔开显示
- 所谓新云XSS跨站漏洞全公布
- ASP技巧：禁用页面缓存的五种方法
- ASP中实现从dbf数据库导出数据到sql表
- 简单熟悉掌握ASP的语法和变量
- 让弹出窗口变得“听话”一些
- 运用ASP调用数据库中视图及存储过程
- 瞄准Apache IIS7向开源张开双臂
- ASP实现IE地址栏参数的判断
- 如何让你的ASP运行于非Windows平台
用Agent+ASP技术制作语音聊天室
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 44 ::
收藏到网摘: n/a
--------------------以下为程序内容,按文章中出现的顺序分块排序
<!--定义"AgentControl"-->
<OBJECT classid=clsid:D45FD31B-5C6E-11D1-9EC1-00C04FD7081F
codeBase=#VERSION=2,0,0,0 id=Agent>
</OBJECT>
<!--定义L&H TruVoice Text-To-Speech American English -->
<OBJECT classid=clsid:B8F2846E-CE36-11D0-AC83-00C04FD97575
codeBase=#VERSION=6,0,0,0 id=TruVoice width="14" height="14">
</OBJECT>
______________________________________________________________
尝试从微软Agent角色目录中装载
Set LoadRequestUNC = Agent.Characters.Load ("Peedy", "Peedy.acs")
If LoadRequestUNC.Status <> 0 Then
' 如果失败便尝试从微软服务器下载
Set LoadRequestURL = Agent.Characters.Load ("Peedy", "http://agent.microsoft.com/agent2/chars/peedy/peedy.acf")
Else
' 现在产生一个Peedy实例
Set Peedy = Agent.Characters("Peedy")
End If
_____________________________________________________________
<HTML>
<BODY>
<h3 align="center"><font color="#0000FF">Welcome to My Chatroom!</font></h3>
<FORM method="POST" action="default.asp">
<p align="center">Your name please:
<input type="text" name="txtUsername" size="20">
<input type="submit" value="OK" name="btnOK"></p>
</FORM>
<p align="center"><a href="download.htm">Click here to go to download page.</a></p>
</BODY>
</HTML>
_______________________________________________________________________
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
Application("message")="" '发言内容
Application("expression")="" '表情
Application("sender")="" '发言者ID
Application("globalid")=0 '发言总序号
End Sub
</SCRIPT>
_______________________________________________________________________
<%
Session("username") = Server.HtmlEncode(Request.Form("txtUsername"))
Session("personalid")=0
%>
<HTML>
<HEAD>
<TITLE>Welcome to My Chatroom!</TITLE>
</HEAD>
<frameset border=0 frameSpacing=0 cols="98,*" frameBorder=0>
<frame name="agent" src="agent.asp">
<frameset rows="196,68,*">
<frame name="display" src="display.asp">
<frame name="refresh" src="refresh.asp">
<frame name="message" src="message.asp">
</frameset>
</frameset>
<frameset>
</frameset>
</HTML>
________________________________________________________________
<HTML>
<BODY BGCOLOR="#006699" TEXT="#FFFFFF">
<!--定义"AgentControl"-->
<OBJECT classid=clsid:D45FD31B-5C6E-11D1-9EC1-00C04FD7081F
codeBase=#VERSION=2,0,0,0 id=Agent>
</OBJECT>
<!--定义L&H TruVoice Text-To-Speech American English -->
<OBJECT classid=clsid:B8F2846E-CE36-11D0-AC83-00C04FD97575
codeBase=#VERSION=6,0,0,0 id=TruVoice width="14" height="14">
</OBJECT>
<SCRIPT language=VB
评论 (0) All
