当前位置: 首页 > 图文教程 > 网络编程 > ASP > 用Agent+ASP技术制作语音聊天室

ASP
ASP中实现限制IP的函数详解
Asp下实现限制IP访问的程序代码
asp下DateDiff 函数参数说明
Highlight patterns within strings
Insert Date and Time into Access
asp下调试程序的debug类
RESPONSE.WRITE和<%=%的区别
用asp实现网页邮箱访问的方法
编写一个含二级目录的源码(Asp+JavaScript)
asp下删除Access数词库中的空记录的sql语句
asp下制做行背景颜色交替变换的表格
asp下将数据库中的信息存储至XML文件中
asp下如何在Access数据库中立即得到所插入记录的自动编号？
asp下如何在ADO服务器端利用好缓存技术？
asp调用Word打印的代码
巧用FileSystem组件实现WEB应用中的本地特定打印的方法
用javascript解决外部数据抓取中的乱码问题
Asp中随机产生用户密码的代码
反SPAM新思路—换Z-BLOG的验证码！
在Z-BLOG可用的新版ASP的GIF验证码[V70404]

No. « 59 60 61 62 »

技术文章搜索

关键字

用Agent+ASP技术制作语音聊天室

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 239 ::
收藏到网摘: n/a

  用Agent+ASP技术制作语音聊天室
--------------------以下为程序内容,按文章中出现的顺序分块排序

<!--定义"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