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

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

--------------------以下为程序内容,按文章中出现的顺序分块排序













______________________________________________________________



尝试从微软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

_____________________________________________________________

Welcome to My Chatroom!

  

Your name please:

  

  

Click here to go to download page.

_______________________________________________________________________





_______________________________________________________________________

<%

  Session("username") = Server.HtmlEncode(Request.Form("txtUsername"))

  Session("personalid")=0

%>











  

  

    

    

    

  









________________________________________________________________

























________________________________________________________________







  











____________________________________________________________________



<%

  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,<%=Session("username")%>     

  &nbsp;    

  

  

  Choose an expression:


  Normal     

  Explain     

  Greet  

  Congratulate      

  Decline

  Pleased

  Think     

  Announce     

  Uncertain     

  Gesture Right      

  Don't Recognize  

  Get Attention

  Do Magic  

  

  

  Message: