教程中国
PHOTOSHOP CS9.0中文版 MAYA 8.5 FOR WINDOWS Corel Painter v9.0 Flash MX2004 中文版 Illustrator cs2 中文版
VC++6.0含sp6 中英文版 VB6.0 +sp6 简体中文版 Borland Delphi 7汉化版 MSDN for vb6.0中文版 Visual Studio 2005简体
教程中国下属 文件存储共享专家BIBIDU.COM 提供大型软件,教材,源码,电影,音乐,图书等下载 更多精品请点此进入
  您目前所在位置: 教程中国 >> 编程基地 >> ASP >> ASP实现语音分时问候 RSS订阅
ASP实现语音分时问候
教程(视频,书籍)下载:  ASP.NET AutoCAD 数据库 C# ASP java photoshop 网页设计 delphi 3dmax Flash C++ VB 张孝祥 实例   更多请进入BIBIDU搜索
IT搜索引擎   
 

<bgsound src="wen.mid" loop="0">
<% dim weh
If Time >=#1:00:00 AM# And Time < #6:00:00 PM#  Then
  weh = "<bgsound src="1.mid" loop="0">"
Else  If Time >#6:00:00 AM# And Time < #9:00:00 PM#
  weh = "<bgsound src="2.mid" loop="0">"
 Else  If Time >#9:00:00 AM# And Time < #12:00:00 PM#
  weh = "<bgsound src="3.mid" loop="0">"
Else  If Time >#12:00:00 AM# And Time < #14:00:00 PM#
  weh = "<bgsound src="4.mid" loop="0">"
Else  If Time >=#14:00:00 AM# And Time < #17:00:00 PM#
  weh = "<bgsound src="4.mid" loop="0">"
Else  If Time >=#17:00:00 AM# And Time < #19:00:00 PM#
  weh = "<bgsound src="5.mid" loop="0">"
Else  If Time >=#19:00:00 AM# And Time < #24:00:00 PM#
  weh = "<bgsound src="6.mid" loop="0">"
End If
%>
<%=wen %>

上面的 X.MID 是的问候语音

 

 

 

 

2
<script language="javascript">
<!--
now = new Date(),hour = now.getHours()
if(hour < 6){document.write(''<bgsound src="sound1.mid" loop="infinite">'')}
else if (hour < 9){document.write(''<bgsound src="sound2.mid" loop="infinite">'')}
else if (hour < 12){document.write(''<bgsound src="sound3.mid" loop="infinite">'')}
else if (hour < 14){document.write(''<bgsound src="sound4.mid" loop="infinite">'')}
else if (hour < 17){document.write(''<bgsound src="sound5.mid" loop="infinite">'')}
else if (hour < 19){document.write(''<bgsound src="sound6.mid" loop="infinite">'')}
else if (hour < 22){document.write(''<bgsound src="sound7.mid" loop="infinite">'')}
else {document.write(''<bgsound src="sound8.mid" loop="infinite">'')}
// -->
</script>

来源:upschool.cn
作者:
关键字:
发表日期:2006-7-26

网页显示有限 阅读全文请下载本文完整版WORD文档

上一篇:实现 asp 的服务器无刷新推技术   下一篇:用ADODB.Stream代替FSO读取文本文件


2009-1-8 21:23:35
本文的相类似文章
在学习中进步 在进步中成长 教程中国相随您的成长之路
华腾联合科技股份有限公司版权所有
广告联系:Rosibo@163.com