周海媚拒绝求婚,tokyo hot n0648,海扁王
用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", "https://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.">
<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>
如对本文有疑问,请在下面进行留言讨论,广大热心网友会与你互动!!
点击进行留言回复
网友评论