|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
缺点:安全性不是太差了,还行,只要你充分利用系统自带的工具;唯一缺点就是执行效率慢,如何进行网站优化以后,效果会比较好。编程先复杂说一下MP3的ID3标志,由于次要是操纵这个玩意
MP3最入手下手的时分没有我们明天看到的那样,有歌手、年月,专集等等信息
只要一些复杂的参数如yes/no来暗示是否是privated大概copyrighted等信息,如许对MP3的相干事情带来了良多方便,1996年的时分有个老外提出来在每一个MP3前面追加一段数据,用以寄存上述的那些信息,厥后就开展成为id3v1据我所知的如今已到1.1了,详细的仍是本人往查一下吧
仍是老习气,用metadata来引进DLL,我之前有文章贴过的,不晓得的请本人往查
看代码
<!--METADATATYPE="typelib"
UUID="00000205-0000-0010-8000-00AA006D2EA4"
NAME="ADODBTypeLibrary"
-->
<%
FunctionConvertBin(Binary)
ThisfunctionconvertsabinarybyteintoanASCIIbyte.
fori=1toLenB(Binary)
strChar=chr(AscB(MidB(Binary,i,1)))
ConvertBin=ConvertBin&strChar
Next
EndFunction
dimobjStream
dimstrTag,strSongName,strArtist,strAlbum,strYear,_
strComment,strGenre,strFile
Specifythefoldertoiteratethrough,displayingalltheMP3s
Constfolder="C:mp3s"
Grabthefolderinformation
DimobjFSO,objFolder,objFile
SetobjFSO=Server.CreateObject("Scripting.FileSYstemObject")
SetobjFolder=objFSO.GetFolder(folder)
CreatetheStreamobject
setobjStream=Server.CreateObject("ADODB.Stream")
objStream.Type=adTypeBinary
Loopthroughthefilesinthefolder
ForEachobjFileinobjFolder.Files
Openthestream
objStream.Open
objStream.LoadFromFileobjFile.Path
Readthelast128bytes
objStream.Position=objStream.size-128
ReadtheID3v1taginfo
strTag=ConvertBin(objStream.Read(3))
ifucase(strTag)="TAG"then
strSongName=ConvertBin(objStream.Read(30))
strArtist=ConvertBin(objStream.Read(30))
strAlbum=ConvertBin(objStream.Read(30))
strYear=ConvertBin(objStream.Read(4))
strComment=ConvertBin(objStream.Read(30))
endif
Displaytheresults
response.write"<table><tr><tdcolspan=2><h3>"&_
"ID3Taginfofor:</td></tr><tr>"&_
"<tdcolspan=2>"&objFile.Name&"</td></tr>"
response.write"<tr><td><b>Artist:</b></td>"&_
"<td>"&strArtist&"</td></tr>"
response.write"<tr><td><b>Track:</b></td>"&_
"<td>"&strSongName&"</td></tr>"
response.write"<tr><td><b>Album:</b></td>"&_
<td>"&strAlbum&"</td></tr>"
response.write"<tr><td><b>Year:</b></td>"&_
"<td>"&strYear&"</td></tr>"
response.write"<tr><td><b>Comment:</b>"&_
"</td><td>"&strComment&"</td></tr>"
response.write"</table>"
objStream.Close
Response.Write"<p><hr><p>"
Next
SetobjStream=NothingCleanup...
%>
本人尝尝吧
但愿能对你有所匡助
ASP.NET和ASP的比较,技术上比较已经没什么可说的了.新一代在大部分程度来说当然是比旧一代好了.关键看你对所做软件的理解了.因人而定.会写的话也可能比ASP.NET写得更有效率和更方便重用 |
|