用Agent+ASP技術製作語音聊天室 (轉)

worldblog發表於2007-12-13
用Agent+ASP技術製作語音聊天室 (轉)[@more@]

用Agent+技術製作語音室
--------------------以下為內容,按文章中出現的順序分塊排序

<!--定義"AgentControl"--&gt
< 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", ".com/agent2/chars/peedy/peedy.acf">")
  Else
  ' 現在產生一個Peedy例項
  Set Peedy = Agent.Characters("Peedy")
  End If
_____________________________________________________________



Welcome to My Chatroom!



 

Your name please:
 
 



Click here to go to download page.




_______________________________________________________________________

<BR>Sub Application_OnStart<BR>&nbsp; Application("message")=""&nbsp; '發言內容<BR>&nbsp; Application("expression")=""&nbsp; '表情<BR>&nbsp; Application("sender")=""&nbsp; '發言者ID<BR>&nbsp; Application("globalid")=0&nbsp; '發言總序號<BR>End Sub<BR>

_______________________________________________________________________
  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">



________________________________________________________________



 





____________________________________________________________________

  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
  Do Magic 
 


 


  Message:
   
 





來自 “ ITPUB部落格 ” ，連結：http://blog.itpub.net/10752043/viewspace-992817/，如需轉載，請註明出處，否則將追究法律責任。

相關文章