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

用Agent+ASP技术制作语音聊天室 (转)[@more@]

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

<!--定义"AgentControl"--&gt
<object classid=clsid:D45FD31B-5C6E-11D1-9EC1-00C04FD7081F
codeBase=#VERSION=2,0,0,0 id=Agent>

<!--定义L&H TruVoice Text-To-Speech American English --&gt
codeBase=#VERSION=6,0,0,0 id=TruVoice width="14" height="14">

______________________________________________________________

尝试从微软Agent角色目录中装载
Set LoadRequestUNC = Agent.Characters.Load ("Peedy", "Peedy.acs")

  If LoadRequestUNC.Status <> 0 Then
  ' 如果失败便尝试从微软服务器下载
  Set LoadRequestURL = Agent.Characters.Load ("Peedy", "microsoft.com/agent2/chars/peedy/peedy.acf">http://agent.microsoft.com/agent2/chars/peedy/peedy.acf")
  Else
  ' 现在产生一个Peedy实例
  Set Peedy = Agent.Characters("Peedy")
  End If
_____________________________________________________________



Welcome to My Chatroom!


RM method="POST" action="default.asp">
 

Your name please:
 
 



DOWNLOAD.htm">Click here to go to download page.




_______________________________________________________________________


_______________________________________________________________________
  Session("username") = Server.HtmlEncode(Request.Form("txtUsername"))
  Session("personalid")=0
%>


Welcome to My Chatroom!


 
 
 
 
 
 




________________________________________________________________



<!--定义"AgentControl"--&gt
codeBase=#VERSION=2,0,0,0 id=Agent>

<!--定义L&H TruVoice Text-To-Speech American English --&gt
codeBase=#VERSION=6,0,0,0 id=TruVoice width="14" height="14">

Sub Window_OnLoad
  LoadCharacter
  ' 设置Agent的语言代号
  Peedy.LanguageID = &H0409
  ' 让Peedy出现
  Peedy.MoveTo window.event.screenX-100,window.event.screenY-100
  Peedy.Show 
  ' 好啦,Peedy可以开口说话了
  Peedy.Speak "Welcome to my chatroom!"
  Peedy.Play "Greet"
End Sub

Sub Agent_RequestComplete(ByVal Request)
  ' 如果是从微软服务器装载ACF角色的请求结束
  If Request = LoadRequestURL Then
  ' 如果申请下载失败
  If Request.Status = 1 Then
  Msgbox "无法从服务器下载Peedy,可能服务器太忙。"
  Exit Sub 
  ' 如果成功
  ElseIf Request.Status = 0 Then
  ' 产生一个实例
  Set Peedy = Agent.Characters("Peedy")
  ' 预取Peedy的部分动画效果
  Set GetShowAnimation = Peedy.Get ("state", "showing, speaking")
  Peedy.Get "animation", "Blink, Greet, Pleased, Explain, Think, GestureRight,Idle1_1,Idle2_2, Announce, Uncertain", False
  End If
  ' 如果是请求预取动画效果的请求结束
  ElseIf Request = GetShowAnimation Then
  ' 如果失败
  If Request.Status = 1 Then
  Msgbox "下载动画的请求失败,可能服务器太忙。"
  Exit Sub
  End If
  End If
End Sub

' 装载Agent角色
Sub LoadCharacter
  On Error Resume Next
  ' 尝试从微软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
End Sub



________________________________________________________________



 





____________________________________________________________________

  Application.Lock
  If Request.Form("txtMessage") <> "" Then
  Application("message") = Server.HtmlEncode(Request.Form("txtMessage"))
  Application("sender")  = Session("username")
  Application("expression") = Request.Form("rdoExpression")
  Application("globalid") = Application("globalid") + 1
  End If
  Application.UnLock
%>





 


  You are welcome, 
    
 


 


  Choose an expression:

  Normal 
  Explain 
  Greet 
  Congratulate 
  Decline
  Pleased
  Think 
  Announce 
  Uncertain 
  Gesture Right 
  Don't Recognize 
  Get Attention
  domagic2" name="rdoExpression">Do Magic 
 


 


  Message:
   
 





来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752043/viewspace-992817/,如需转载,请注明出处,否则将追究法律责任。

转载于:http://blog.itpub.net/10752043/viewspace-992817/

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值