【www.hzclsc.cn--热门资讯】

用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

%>









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



________________________________________________________________

























________________________________________________________________







  











____________________________________________________________________



<%

  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:

         

  

本文来源：http://www.hzclsc.cn/news/26473.html