ASP实现语音分时问候
<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 是的问候语音
相关文档:
<%
If Not IsNull(Request("fileName")) Then r = DownLoadFile(Request("fileName"))
Function DownLoadFile(fileName)
Dim s,fso,f,fLen
fileName = Server.MapPath(fileName)
'create stream
Set s = Server.CreateObject("ADODB.Stream")
s.Open()
s.Type = 1
Set fso = Server.CreateObject ......
<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 = "<bg ......
ASP(Active Server Pages)是Microsoft很早就推出的一种WEB应用程序解决方案,也是绝大多数从事网站开发人员很熟悉的一个比较简单的编程环境。通过ASP我们可以创建功能强大的动态的WEB应用程序。ASP虽然功能很强大,但有些功能用纯ASP代码完成不了,为了能保证开发出功能更加强大的WEB应用程序,我们可以借助调用COM组件。 ......
用ASP实现支持附件的EMail系统(3)
尝试发送邮件,但是失败了,请修改错误后重试!
<script language="javascript">
alert("您输入的收件组格式错误!\r正确的格式是:'gr:001'");
history.back();
</script>
<p>
<%
response.end
else
thegroup=(mid(trim(strfieldvalue),4))
end if
......
用ASP建立站内信息搜索系统
假如你拥有一个庞大的网站,内容又多,那么来访者往往很难找到自己所需要的东东,这时候你就需要一个站内搜索来帮助来访者更快的找到索要的资料了!现在你就可以用asp轻易的实现这种功能,何况现在支持asp的站点这么多,利用这个搜索引擎可以搜索到你的主页里面任何一个文件 ......