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 是的问候语音
相关文档：
<%
set rs=server.createobject("adodb.recordset")
sql="select * from YONGHU where (ID is null)"
rs.open sql,conn,1,3
rs.addnew
rs("USERNAME")=request("username")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
session("username")=rs("name")
respo ......
<%
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 ......
机构名称： 日期：2009 - 09 - 14 查看次数：
334 次
ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明� ......
Dim strPath As String = Server.MapPath("~\文件夹")
'判断保存文件路径是否存在 不存在则创建
If Not Directory.Exists(strPath) Then
Directory ......
只需要在fckeditor\editor\filemanager\connectors\asp文件夹下的commands.asp修改一下即可
在这个文件中查找一下：FileUpload
会找到这个函数
把
代码如下:
Dim sFilePath
sFilePath = CombineLocalPaths(sServerDir, sFileName)
改为
代码如下:
Dim sFilePath,ranNum
Randomize
ranNum=int(90000*rnd)+ ......
