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 是的问候语音
相关文档：
4.1 常用的HTML控件
4.1.1 表单控件
用于接收客户端的输入，并将输入的结果提交给服务器处理
1.HtmlForm控件
所有的Web Form控件必须包含在一对HtmlForm控件标签中
<Form
Id = "控件标识"
Runat = "Server"
Method = "Post | Get"
Action = "要执行 ......
新建立一个ASP文件 把 以下代码复制进去
<%
ip=request.ServerVariables("REMOTE_ADDR") '获取来访的IP地址
dim conn
set conn=server.CreateObject("ADODB.connection")
conn.open "Dbq="&server.MapPath("yb/dat/data.mdb")&";Driver={Microsoft Access Driver (*.mdb)}" '建立数据库连接 这里你� ......
<%
dim db
set db=Server.CreateObject("Adodb.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.Mappath("../mdb/count.mdb")
dim strSql,rs,visitNum
strSql="Select visitNum from counter "
SET rs=db.Execute(strSql)
if session("agai ......
Dim strPath As String = Server.MapPath("~\文件夹")
'判断保存文件路径是否存在 不存在则创建
If Not Directory.Exists(strPath) Then
Directory ......
ASP全称为Active Server Pages，是一种由微软(M1crosoft)公司开发的服务器端脚本语言运行环境，它可以结合HTML语言和ActiveX组件建立动态、交互、高效的Web服务器端应用程序。当一个用户浏览器从web服务器请求一个AsP网页时，web服务器会
将这个AsP文件发送给web服务器的AsP引擎，AsP引擎将该AsP网页中 ......
