您的位置：首页 → 网页设计 → ASP实例 → 用Agent+ASP技术制作语音聊天室

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

时间：2004/11/7 3:01:00来源：本站整理作者：蓝点我要评论(0)

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

         

  

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论

查看所有0条评论>>

发表评论

我来说两句...

提交评论