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

2018-09-06 13:21

阅读:778

  用Agent+ASP技术制作语音聊天室
--------------------以下为程序内容,按文章中出现的顺序分块排序

<!--定义AgentControl-->
<OBJECT classid=clsid:D45FD31B-5C6E-11D1-9EC1-00C04FD7081F
codeBase=#VERSION=2,0,0,0 id=Agent>
</OBJECT>

<!--定义LH 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,
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>


评论


亲,登录后才可以留言!