ASP网页设计用Agent+ASP手艺制造语音谈天室
想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的谈天室用Agent+ASP手艺制造语音谈天室--------------------以下为程序内容,按文章中呈现的按次分块排序
<!--界说"AgentControl"-->
<OBJECTclassid=clsid:D45FD31B-5C6E-11D1-9EC1-00C04FD7081F
codeBase=#VERSION=2,0,0,0id=Agent>
</OBJECT>
<!--界说L&HTruVoiceText-To-SpeechAmericanEnglish-->
<OBJECTclassid=clsid:B8F2846E-CE36-11D0-AC83-00C04FD97575
codeBase=#VERSION=6,0,0,0id=TruVoicewidth="14"height="14">
</OBJECT>
______________________________________________________________
实验从微软Agent脚色目次中装载
SetLoadRequestUNC=Agent.Characters.Load("Peedy","Peedy.acs")
IfLoadRequestUNC.Status0Then
假如失利便实验从微软服务器下载
SetLoadRequestURL=Agent.Characters.Load("Peedy","http://agent.microsoft.com/agent2/chars/peedy/peedy.acf")
Else
如今发生一个Peedy实例
SetPeedy=Agent.Characters("Peedy")
EndIf
_____________________________________________________________
<HTML>
<BODY>
<h3align="center"><fontcolor="#0000FF">WelcometoMyChatroom!</font></h3>
<FORMmethod="POST"action="default.asp">
<palign="center">Yournameplease:
<inputtype="text"name="txtUsername"size="20">
<inputtype="submit"value="OK"name="btnOK"></p>
</FORM>
<palign="center"><ahref="download.htm">Clickheretogotodownloadpage.</a></p>
</BODY>
</HTML>
_______________________________________________________________________
<SCRIPTLANGUAGE=VBScriptRUNAT=Server>
SubApplication_OnStart
Application("message")=""讲话内容
Application("expression")=""心情
Application("sender")=""讲话者ID
Application("globalid")=0讲话总序号
EndSub
</SCRIPT>
_______________________________________________________________________
<%
Session("username")=Server.HtmlEncode(Request.Form("txtUsername"))
Session("personalid")=0
%>
<HTML>
<HEAD>
<TITLE>WelcometoMyChatroom!</TITLE>
</HEAD>
<framesetborder=0frameSpacing=0cols="98,*"frameBorder=0>
<framename="agent"src="agent.asp">
<framesetrows="196,68,*">
<framename="display"src="display.asp">
<framename="refresh"src="refresh.asp">
<framename="message"src="message.asp">
</frameset>
</frameset>
<frameset>
</frameset>
</HTML>
________________________________________________________________
<HTML>
<BODYBGCOLOR="#006699"TEXT="#FFFFFF">
<!--界说"AgentControl"-->
<OBJECTclassid=clsid:D45FD31B-5C6E-11D1-9EC1-00C04FD7081F
codeBase=#VERSION=2,0,0,0id=Agent>
</OBJECT>
<!--界说L&HTruVoiceText-To-SpeechAmericanEnglish-->
<OBJECTclassid=clsid:B8F2846E-CE36-11D0-AC83-00C04FD97575
codeBase=#VERSION=6,0,0,0id=TruVoicewidth="14"height="14">
</OBJECT>
<SCRIPTlanguage=VBScript>
DimPeedy
DimLoadRequestUNC
DimLoadRequestURL
DimGetShowAnimation
SubWindow_OnLoad
LoadCharacter
设置Agent的言语代号
Peedy.LanguageID=&H0409
让Peedy呈现
Peedy.MoveTowindow.event.screenX-100,window.event.screenY-100
Peedy.Show
好啦，Peedy能够启齿措辞了
Peedy.Speak"Welcometomychatroom!"
Peedy.Play"Greet"
EndSub
SubAgent_RequestComplete(ByValRequest)
假如是从微软服务器装载ACF脚色的哀求停止
IfRequest=LoadRequestURLThen
假如请求下载失利
IfRequest.Status=1Then
Msgbox"没法从服务器下载Peedy，大概服务器太忙。"
ExitSub
假如乐成
ElseIfRequest.Status=0Then
发生一个实例
SetPeedy=Agent.Characters("Peedy")
预取Peedy的部分动画效果
SetGetShowAnimation=Peedy.Get("state","showing,speaking")
Peedy.Get"animation","Blink,</p>减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件，简单易用，无需专业技术支持。 他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。 ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。 弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。 掌握asp的特性而且一定要知道为什么。 下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。 交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。 完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。 我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。
页:
[1]