当前位置：网站首页 > 程序技巧 > asp > 文章当前位置： asp > 文章

asp添加提示声

时间：2022-06-14 点击：次来源：网络添加者：佚名 - 小 + 大

<link href="Style.Css" rel="stylesheet" type="text/css">
<%
if session("dl")<>"1" then
response.write "<script language=JavaScript>" & chr(13) & "alert('您还未登陆或者超时,请重登陆！');location='index.asp' </script>"
response.end
end if
%>

<%
bmid=session("bm")
send=session("name")
Server.ScriptTimeout = 9999

path = "UploadFiles"

set Upload = new DoteyUpload

Upload.ProgressID = Request.QueryString("ProgressID")
Upload.SaveTo(path)

if Upload.ErrMsg <> "" then
Response.Write(Upload.ErrMsg)
Response.End()
end if

if Upload.Files.Count > 0 then
Items = Upload.Files.Items
end if

Response.Write("您已上传 " & Upload.Files.Count & " 个文件到: " & path & "<hr>")
for each File in Upload.Files.Items
'存储文件信息到数据库
fname=File.FileName
path="upfiles"&"\"& File.FileName
Response.Write("文件名: " & fname& "<br>")
Response.Write("文件大小: " & File.FileSize/1024 & " KB<br>")
Response.Write("文件类型: " & File.FileType & "<br>")
Response.Write("客户端路径: " & File.FilePath & "<br>")
Response.Write("存储路径:" &server.MapPath("upfiles")&"\"& File.FileName& "<br>")
Response.Write("<hr>")
set rs=server.createobject("adodb.recordset")
sql="insert into file(title,address,send,bmid)values('" &fname& "','" &path&"','"&send&"','"&bmid&"')"
***.open sql,conn,1,1
session("bm")=""
session("name")=""
' Response.Write""&rs("username")&""
session("name")=send
response.write "<script>alert('上传成功！');location='upfiles.asp';</script>"
next
Response.Write("<br>")
%>

怎么在上传中或者上传结束之后添加一个提示音，有没有人帮忙加一下

解答：

response.write"<embed src=""你的声音文件"" autostart=""true"" loop=""false"" hidden=""true""></embed>"
但你这里加了跳转的话，可能声音没有播放完就转到其他页去了
response.write "<script>alert('上传成功！');location='upfiles.asp';</script>"

分享按钮

上一篇：在ASP中如何判断变量是否为空值？

下一篇：如何在下拉列表中实现树状结构--asp实现的

本栏目热门阅读

本栏目最新文章

本栏目随机阅读