MusicGet 類
代碼如下:
<%
response.expires = 0
response.expiresabsolute = now() - 1
response.addheader "pragma", "no-cache"
response.addheader "cache-control", "private"
response.cachecontrol = "no-cache"
response.buffer = true
response.clear
server.scripttimeout=999999999
'***************************************************************
'* 定義 musicget 類
'***************************************************************
class gethttp
private oxml,fso,ados
private sub class_initialize
set oxml = server.createobject("microsoft.xmlhttp")
set fso = server.createobject("scripting.filesystemobject")
set ados = server.createobject("adodb.stream")
end sub
private sub class_terminate
set oxml = nothing
set fso = nothing
set ados = nothing
end sub
public property get version
version="動感采集系統(tǒng)v3.0"
end property
'*****************************************************************
' function（私有）
' 作用 ：利用流進(jìn)行中文編碼
' 參數(shù) ：vin（要進(jìn)行編碼的字符患）
'*****************************************************************
private function bytestobstr(body)
dim bdat
bdat=body
ados.type = 1
ados.mode =3
ados.open
ados.write bdat
ados.position = 0
ados.type = 2
ados.charset = "gb2312"
bytestobstr = ados.readtext
ados.close
end function
'*****************************************************************
' function（私有）
' 作用 ：利用流保存文件
' 參數(shù) ：from（遠(yuǎn)程文件地址），tofile（保存文件位置）
'*****************************************************************
private function savefiles(byref from,byref tofile)
dim datas
datas=getdata(from,0)
response.write "保存成功："&formatnumber(len(datas)/1024*2,2)&"kb"
response.flush
if formatnumber(len(datas)/1024*2,2)>1 then
ados.type = 1
ados.mode =3
ados.open
ados.write datas
ados.savetofile server.mappath(tofile),2
ados.close()
else
response.write "保存失敗：文件大小"&formatnumber(len(imgs)/1024*2,2)&"kb，小于1k"
response.flush
end if
end function
'*****************************************************************
' function（私有）
' 作用 ：利用fso檢測文件是否存在,存在返回true,不存在返回false
' 參數(shù) ：filespes（文件位置）
'*****************************************************************
private function isexists(byref filespec)
if (fso.fileexists(server.mappath(filespec))) then
isexists = true
else
isexists = false
end if
end function
'*****************************************************************
' function（私有）
' 作用 ：利用fso檢測文件夾是否存在,存在返回true,不存在返回false
' 參數(shù) ：folder（文件夾位置）
'*****************************************************************
private function isfolder(byref folder)
if fso.folderexists(server.mappath(folder)) then
isfolder = true
else
isfolder = false
end if
end function
'*****************************************************************
' function（私有）
' 作用 ：利用fso創(chuàng)建文件夾
' 參數(shù) ：fldr（文件夾位置）
'*****************************************************************
private function createfolder(byref fldr)
dim f
set f = fso.createfolder(server.mappath(fldr))
createfolder = f.path
set f=nothing
end function
'*****************************************************************
' function（公有）
' 作用 ：保存文件，并自動創(chuàng)建多級文件夾
' 參數(shù) ：fromurl（遠(yuǎn)程文件地址），tofiles （保存位置）
'*****************************************************************
public function savedata(byref fromurl,byref tofiles)
tofiles=trim(replace(tofiles,"http://","/"))
flname=tofiles
fldr=""
if isexists(flname)=false then
getnewsfold=split(flname,"/")
for i=0 to ubound(getnewsfold)-1
if fldr="" then
fldr=getnewsfold(i)
else
fldr=fldr&"\"&getnewsfold(i)
end if
if isfolder(fldr)=false then
createfolder fldr
end if
next
savefiles fromurl,flname
end if
end function
'*****************************************************************
' function（公有）
' 作用 ：取得遠(yuǎn)程數(shù)據(jù)
' 參數(shù) ：url（遠(yuǎn)程文件地址），getmode （模式:0為二進(jìn)制，1為中文編碼）
'*****************************************************************
public function getdata(byref url,byref getmode)
'on error resume next
sourcecode = oxml.open ("get",url,false)
oxml.send()
if oxml.readystate<>4 then exit function
if getmode=0 then
getdata = oxml.responsebody
else
getdata = bytestobstr(oxml.responsebody)
end if
if err.number<>0 then err.clear
end function
'*****************************************************************
' function（公有）
' 作用 ：格式化遠(yuǎn)程圖片地址為本地位置
' 參數(shù) ：imgurl（遠(yuǎn)程圖片地址），imgfolder （本地圖片目錄），fristname（加入的前綴名稱）
'*****************************************************************
public function formatimgpath(byref imgurl,byref imgfolder,byref fristname,byref noimg)
strpath=""
imgurl=imgurl
if instr(imgurl,"nophoto") or lenb(getdata(imgurl,0))<=0 then
strpath=noimg
response.write ""&strpath&"" &vbcrlf
else
if instr(imgurl,".asp") then
strpath=fristname&"_"&mid(imgurl, instrrev(imgurl, "=")+1)&".jpg"
else
strpath=fristname&"_"&mid(imgurl, instrrev(imgurl, "/")+1)
end if
strpath = imgfolder&"/"&strpath
strpath = replace(strpath,"http://","/")
if left(strpath,1)="/" then strpath=right(strpath,len(strpath)-1)
strpath = trim(strpath)
response.write ""&strpath&"" &vbcrlf
savedata imgurl,strpath
end if
formatimgpath = strpath
end function
'*****************************************************************
' function（公有）
' 作用 ：格式化遠(yuǎn)程音樂文件地址為本地位置
' 參數(shù) ：musicurl（遠(yuǎn)程文件地址），oserverurl （原服務(wù)連接地址），musicfolder（本地音樂文件目錄）
'*****************************************************************
public function formatmusicpath(byref musicurl,byref oserverurl,byref musicfolder)
strpath=""
strpath = replace(musicurl,oserverurl,"")
strpath = musicfolder&"/"&strpath
strpath = replace(strpath,"http://","/")
if left(strpath,1)="/" then strpath=right(strpath,len(strpath)-1)
formatmusicpath=trim(strpath)
end function
'*****************************************************************
' function（公有）
' 作用 ：格式化html
'*****************************************************************
public function formathtml(str,itype)
if itype=0 then
str=replace(str,chr(39),"'")
str=replace(str,chr(34),""")
str=replace(str,"<","<")
str=replace(str,">",">")
else
str=replace(str,"chr(39)","")
str=replace(str,"chr(34)","")
end if
formathtml=str
end function
'*****************************************************************
' function（公有）
' 作用 ：截取字符
' 參數(shù) ：str要操作的對像,start開始字符,last結(jié)束字符,n模式
'*****************************************************************
public function getcontent(byref str,byref start,byref last,byref n)
if instr(lcase(str),lcase(start))>0 then
select case n
case 0 '左右都截取（都取前面）（去處關(guān)鍵字）
getcontent=right(str,len(str)-instr(lcase(str),lcase(start))-len(start)+1)
getcontent=left(getcontent,instr(lcase(getcontent),lcase(last))-1)
case 1 '左右都截?。ǘ既∏懊妫ūＡ絷P(guān)鍵字）
getcontent=right(str,len(str)-instr(lcase(str),lcase(start))+1)
getcontent=left(getcontent,instr(lcase(getcontent),lcase(last))+len(last)-1)
case 2 '只往右截?。ㄈ∏懊娴模ㄈコP(guān)鍵字）
getcontent=right(str,len(str)-instr(lcase(str),lcase(start))-len(start)+1)
case 3 '只往右截?。ㄈ∏懊娴模òP(guān)鍵字）
getcontent=right(str,len(str)-instr(lcase(str),lcase(start))+1)
case 4 '只往左截?。ㄈ『竺娴模òP(guān)鍵字）
getcontent=left(str,instrrev(lcase(str),lcase(start))+len(start)-1)
case 5 '只往左截?。ㄈ『竺娴模ㄈコP(guān)鍵字）
getcontent=left(str,instrrev(lcase(str),lcase(start))-1)
case 6 '只往左截?。ㄈ∏懊娴模òP(guān)鍵字）
getcontent=left(str,instr(lcase(str),lcase(start))+len(start)-1)
case 7 '只往右截?。ㄈ『竺娴模òP(guān)鍵字）
getcontent=right(str,len(str)-instrrev(lcase(str),lcase(start))+1)
case 8 '只往左截?。ㄈ∏懊娴模ㄈコP(guān)鍵字）
getcontent=left(str,instr(lcase(str),lcase(start))-1)
case 9 '只往右截?。ㄈ『竺娴模òP(guān)鍵字）
getcontent=right(str,len(str)-instrrev(lcase(str),lcase(start)))
end select
else
getcontent=""
end if
end function
'*****************************************************************
' function（公有）
' 作用 ：取得字符的拼音
'*****************************************************************
public function getpychar(byref char)
tmp=65536+asc(char)
if(tmp>=45217 and tmp<=45252) or (tmp=65601) or (tmp=65633) or (tmp=37083) then
getpychar= "a"
elseif(tmp>=45253 and tmp<=45760) or (tmp=65602) or (tmp=65634) or (tmp=39658) then
getpychar= "b"
elseif(tmp>=45761 and tmp<=46317) or (tmp=65603) or (tmp=65635) or (tmp=33405) then
getpychar= "c"
elseif(tmp>=46318 and tmp<=46930) or (tmp>=61884 and tmp<=61884) or (tmp=65604) or (tmp>=36820 and tmp<=38524) or (tmp=65636) then
getpychar= "d"
elseif(tmp>=46931 and tmp<=47009) or (tmp=65605) or (tmp=65637) or (tmp=61513) then
getpychar= "e"
elseif(tmp>=47010 and tmp<=47296) or (tmp=65606) or (tmp=65638) or (tmp=61320) or (tmp=63568) or (tmp=36281) then
getpychar= "f"
elseif(tmp>=47297 and tmp<=47613) or (tmp=65607) or (tmp=65639) or (tmp=35949) or (tmp=36089) or (tmp=36694) or (tmp=34808) then
getpychar= "g"
elseif(tmp>=47614 and tmp<=48118) or (tmp>=59112 and tmp<=59112) or (tmp=65608) or (tmp=65640) then
getpychar= "h"
elseif(tmp=65641) or (tmp=65609) or (tmp=65641) then
getpychar="i"
elseif(tmp>=48119 and tmp<=49061 and tmp<>48739) or (tmp>=62430 and tmp<=62430) or (tmp=65610) or (tmp=65642) or (tmp=39048) then
getpychar= "j"
elseif(tmp>=49062 and tmp<=49323) or (tmp=65611) or (tmp=65643) then
getpychar= "k"
elseif(tmp>=49324 and tmp<=49895) or (tmp>=58838 and tmp<=58838) or (tmp=65612) or (tmp=65644) or (tmp=62418) or (tmp=48739) then
getpychar= "l"
elseif(tmp>=49896 and tmp<=50370) or (tmp=65613) or (tmp=65645) then
getpychar= "m"
elseif(tmp>=50371 and tmp<=50613) or (tmp=65614) or (tmp=65646) then
getpychar= "n"
elseif(tmp>=50614 and tmp<=50621) or (tmp=65615) or (tmp=65647) then
getpychar= "o"
elseif(tmp>=50622 and tmp<=50905) or (tmp=65616) or (tmp=65648) then
getpychar= "p"
elseif(tmp>=50906 and tmp<=51386) or (tmp>=62659 and tmp<=63172) or (tmp=65617) or (tmp=65649) then
getpychar= "q"
elseif(tmp>=51387 and tmp<=51445) or (tmp=65618) or (tmp=65650) then
getpychar= "r"
elseif(tmp>=51446 and tmp<=52217) or (tmp=65619) or (tmp=65651) or (tmp=34009) then
getpychar= "s"
elseif(tmp>=52218 and tmp<=52697) or (tmp=65620) or (tmp=65652) then
getpychar= "t"
elseif(tmp=65621) or (tmp=65653) then
getpychar="u"
elseif(tmp=65622) or (tmp=65654) then
getpychar="v"
elseif(tmp>=52698 and tmp<=52979) or (tmp=65623) or (tmp=65655) then
getpychar= "w"
elseif(tmp>=52980 and tmp<=53688) or (tmp=65624) or (tmp=65656) then
getpychar= "x"
elseif(tmp>=53689 and tmp<=54480) or (tmp=65625) or (tmp=65657) then
getpychar= "y"
elseif(tmp>=54481 and tmp<=62383 and tmp<>59112 and tmp<>58838) or (tmp=65626) or (tmp=65658) or (tmp=38395) or (tmp=39783) then
getpychar= "z"
elseif(tmp=65584) then
getpychar="0-9"
elseif(tmp=65585) then
getpychar="0-9"
elseif(tmp=65586) then
getpychar="0-9"
elseif(tmp=65587) then
getpychar="0-9"
elseif(tmp=65588) then
getpychar="0-9"
elseif(tmp=65589) then
getpychar="0-9"
elseif(tmp=65590) then
getpychar="0-9"
elseif(tmp=65591) then
getpychar="0-9"
elseif(tmp=65592) then
getpychar="0-9"
elseif(tmp=65593) then
getpychar="0-9"
else
getpychar="0-9"
end if
end function
'*****************************************************************
' function（公有）
' 作用 ：循環(huán)取得字符串的拼音
'*****************************************************************
public function getpy(byref str)
for i=1 to len(str)
getpy=getpy&getpychar(mid(str,i,1))
next
end function
'*****************************************************************
' function（公有）
' 作用 ：取得歌曲歌詞
'*****************************************************************
public function lrcmusicgc(musicname,singer)
musicgc=getdata("http://mp3.baidu.com/m?tn=baidump3lyric&ct=150994944&word="&musicname&"%20"&singer,1)
if instr(musicgc,"建議您檢查輸入文字有無錯(cuò)誤") then
musicgc= "暫無"
else
musicgc=formathtml(musicgc,0)
musicgc=getcontent(musicgc,"專輯:<a ,0)
musicgc=replace(musicgc,"<","<")
musicgc=replace(musicgc,">",">")
musicgc=replace(musicgc," "," ")
musicgc=replace(musicgc,"","")
musicgc=replace(musicgc,"","")
musicgc=getcontent(musicgc,"
","
",0)'response.write musicgc
end if
if musicgc="" then
lrcmusicgc="暫無"
else
lrcmusicgc=musicgc
end if
end function
end class
%>
相關(guān)文章
- ASP怎么談到應(yīng)用到類的？
- 檢測函數(shù) asp class
- 遭遇ASP類的事件設(shè)計(jì)
- ASP高亮類
- Object對象的一些的隱藏函數(shù)介紹
- 淺談ASP中的類
- 在VBScript中使用類
- ASP 類專題
- 代碼與頁面的分離
- ASP代碼的對象化
- 一個(gè)asp快速字符串連接類
- 一個(gè)簡單的asp數(shù)據(jù)庫操作類
- ASP類編寫詳細(xì)說明
- 實(shí)現(xiàn)支持邏輯搜索/單詞搜索/詞組搜索+支持OR/AND關(guān)鍵字的VBS CLASS!
- ASP類Class入門 推薦
- 創(chuàng)建一個(gè)ASP通用分頁類
- 如何編寫一個(gè)ASP類
- 一個(gè)ACCESS數(shù)據(jù)庫訪問的類第1/3頁
- 分頁類，異常類
- ASP 類 Class入門
ASP技巧