音乐上传和下载.doc

create table tb_music(id int primary key identity(1,1) not null,musicName varchar(50) not null,music varchar(50) not null)文件处理页%Set upload = Server.CreateObject(lyfUpload.UploadFile)upload.about 信息musicName = upload.request(musicName)ContentType = upload.filetype(music) music = MakeDownName()&.mp3upload.saveFile music,Server.mapPath(./music/),true,music-保存到数据库中-Set rs=Server.createObject(ADODB.Recordset)sqlstr = select * from tb_musicrs.open sqlstr,conn,1,3rs.addnewrs(musicName) = musicNamers(music) = musicrs.updaters.closeSet rs=Nothingconn.closeSet conn=Nothingresponse.write()response.write(alert(音乐添加成功！);location=addMusic.asp)response.write()%Set upload=new upload_5xsoftmusicName=upload.Form(musicName)Set file=upload.file(music)music = MakeDownName()&.&file.fileExtfile.saveAs server.mapPath(./music/&music)-保存到数据库中-Set rs=Server.createObject(ADODB.Recordset)sqlstr = select * from tb_musicrs.open sqlstr,conn,1,3rs.addnewrs(musicName) = musicNamers(music) = musicrs.updaters.closeSet rs=Nothingconn.closeSet conn=Nothingresponse.write()response.write(alert(音乐添加成功！);location=addMusic.asp)response.write()%Download.asp %Public Sub DownloadFile(strFilePath)On Error Resume Next 设置错误陷阱Response.Clear 清空缓存Server.ScriptTimeout = 999999 脚本过期时间Dim s, Fso, f, intFilelengthSet s = CreateObject(ADODB.Stream) ADO数据流对象s.Opens.Type = 1 type=1 是二进制strFilePath = Server.MapPath(strFilePath)Set Fso = CreateObject(scripting.filesystemobject)If Not Fso.FileExists(strFilePath) Thens.CloseSet s = NothingSet Fso = NothingResponse.Write alert(文件不存在);history.back()Exit SubEnd IfSet f = Fso.GetFile(strFilePath)intFilelength = f.Size 获取文件大小s.LoadFromFile (strFilePath) 文件下载If err Then err错误Response.Write (错误: & err.Description & )s.CloseSet s = NothingSet Fso = NothingExit SubEnd IfSet Fso = NothingDim DataData = s.Read 读取二进制数据s.CloseSet s = NothingIf Response.IsClientConnected ThenIf Not (InStr(LCase(f.Name), .asp) 0 Or InStr(LCase(f.Name), .js) 0) ThenResponse.AddHeader Content-Disposition, attachment; filename= & f.NameEnd IfResponse.AddHeader Content-Length, intFilelengthResponse.Charset = UTF-8Response.ContentType = application/octet-streamResponse.BinaryWrite DataResponse.FlushEnd IfEnd Sub%Javascript中的模式窗口window.showModalDialog(url,dialogHeight=200px;dialogWidth=200px);同window.open区别1.dialogHeight :对话框高度，不小于px，中dialogHeight 和 dialogWidth 默认的单位是em，而中是px，为方便其见，在定义modal方式的对话框时，用px做单位。2.dialogWidth: 对话框宽度。3.dialogLeft: 离屏幕左的距离。4.dialogTop: 离屏幕上的距离。5.center: yes | no | 1 | 0 ：窗口是否居中，默认yes，但仍可以指定高度和宽度。6.help: yes | no | 1 | 0 ：是否显示帮助按钮，默认yes。7.resizable: yes | no | 1 | 0 IE5+:是否可被改变大小。默认no。8.status: yes | no | 1 | 0 IE5+:是否显示状态栏。默认为yes Modeless或noModal。9.scroll: yes | no | 1 | 0 | on | off ：指明对话框是否显示滚动条。默认为yes。下面几个属性是用在HTA中的，在一般的网页中一般不使用。10.dialogHide: yes | no | 1 | 0 | on | off ：在打印或者打印预览时对话框是否隐藏。默认为no。11.edge: sunken | raised ：指明对话框的边框样式。默认为raised。12.unadorned: yes | no | 1 | 0 | on | off ：默认为no。在网页中嵌入window播放器bodymargin:0px;overflow:hidden; param name=Filename value=./music/ embed title=dvubb type=application/x-oleobject codebase=/activex/controls/mpla