【 tulaoshi.com - ASP 】
用Agent+ASP技术制作语音聊天室
--------------------以下为程序内容,按文章中出现的顺序分块排序
<!--定义"AgentControl"--
<OBJECT classid=clsid:D45FD31B-5C6E-11D1-9EC1-00C04FD7081F
codeBase=#VERSION=2,0,0,0 id=Agent
</OBJECT
<!--定义L&H 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", "http://agent.microsoft.com/agent2/chars/peedy/peedy.acf")
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
<TITLEWelcome to My Chatroom!</TITLE
</HEAD
<frameset border=0 frameSpacing=0 cols="98,*" frameBorder=0
<frame name="agent" src="http://img.jcwcn.com/attachment/portal"
