用Agent+ASP技術製作語音交談室

來源:互聯網
上載者:User
聊天室 用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=VBScript>
Dim Peedy
Dim LoadRequestUNC
Dim LoadRequestURL
Dim GetShowAnimation

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,



相關文章

Cloud Intelligence Leading the Digital Future

Alibaba Cloud ACtivate Online Conference, Nov. 20th & 21st, 2019 (UTC+08)

Register Now >

11.11 Big Sale for Cloud

Get Unbeatable Offers with up to 90% Off,Oct.24-Nov.13 (UTC+8)

Get It Now >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。