MusicGet 类_ASP CLASS类

复制代码 代码如下:

<%
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="动感采集系统v3.0"
    End Property

    '*****************************************************************
    '    function（私有）
    '    作用 ：利用流进行中文编码
    '    参数 ：vIn（要进行编码的字符患）
    '*****************************************************************
    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（私有）
    '    作用 ：利用流保存文件
    '    参数 ：from（远程文件地址），tofile（保存文件位置）
    '*****************************************************************
    Private Function SaveFiles(byref from,byref tofile)
        Dim Datas
        Datas=GetData(from,0)
        Response.Write "保存成功：<font color=red>"&formatnumber(len(Datas)/1024*2,2)&"</font>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 "保存失败：<font color=red>文件大小"&formatnumber(len(imgs)/1024*2,2)&"Kb，小于1K</font>"
            response.Flush
        end if
    end function

    '*****************************************************************
    '    function（私有）
    '    作用 ：利用fso检测文件是否存在,存在返回true,不存在返回false
    '    参数 ：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
    '    参数 ：folder（文件夹位置）
    '*****************************************************************
    Private Function IsFolder(byref Folder)
        If FSO.FolderExists(server.MapPath(Folder)) Then  
        IsFolder = True
        Else
        IsFolder = False
        End If
    End Function

    '*****************************************************************
    '    function（私有）
    '    作用 ：利用fso创建文件夹
    '    参数 ：fldr（文件夹位置）
    '*****************************************************************
    Private Function CreateFolder(byref fldr) 
        Dim f
        Set f = FSO.CreateFolder(Server.MapPath(fldr))
        CreateFolder = f.Path
        Set f=nothing
    End Function

    '*****************************************************************
    '    function（公有）
    '    作用 ：保存文件，并自动创建多级文件夹
    '    参数 ：fromurl（远程文件地址），tofiles （保存位置）
    '*****************************************************************
    Public Function SaveData(byref FromUrl,byref ToFiles)
        ToFiles=trim(Replace(ToFiles,"//","/"))
        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（公有）
    '    作用 ：取得远程数据
    '    参数 ：url（远程文件地址），getmode （模式:0为二进制，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（公有）
    '    作用 ：格式化远程图片地址为本地位置
    '    参数 ：imgurl（远程图片地址），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 "<a href="&strpath&">"&strpath&"</a>" &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,"//","/")
            if left(strpath,1)="/" then strpath=right(strpath,len(strpath)-1)
            strpath = trim(strpath)
            Response.Write "<a href="&strpath&">"&strpath&"</a>" &vbcrlf
            savedata ImgUrl,strpath
        end if
        FormatImgPath = strpath
    End function

    '*****************************************************************
    '    function（公有）
    '    作用 ：格式化远程音乐文件地址为本地位置
    '    参数 ：MusicUrl（远程文件地址），oServerUrl （原服务连接地址），MusicFolder（本地音乐文件目录）
    '*****************************************************************
    Public Function FormatMusicPath(byref MusicUrl,byref oServerUrl,byref MusicFolder)
        strpath=""
        strpath = Replace(MusicUrl,oServerUrl,"")
        strpath = MusicFolder&"/"&strpath
        strpath = Replace(strpath,"//","/")
        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（公有）
    '    作用 ：截取字符
    '    参数 ：str要操作的对像,start开始字符,last结束字符,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    '左右都截取（都取前面）（去处关键字）
            GetContent=Right(str,Len(str)-Instr(lcase(str),lcase(start))-Len(start)+1)
            GetContent=Left(GetContent,Instr(lcase(GetContent),lcase(last))-1)
            case 1    '左右都截取（都取前面）（保留关键字）
            GetContent=Right(str,Len(str)-Instr(lcase(str),lcase(start))+1)
            GetContent=Left(GetContent,Instr(lcase(GetContent),lcase(last))+Len(last)-1)
            case 2    '只往右截取（取前面的）（去除关键字）
            GetContent=Right(str,Len(str)-Instr(lcase(str),lcase(start))-Len(start)+1)
            case 3    '只往右截取（取前面的）（包含关键字）
            GetContent=Right(str,Len(str)-Instr(lcase(str),lcase(start))+1)
            case 4    '只往左截取（取后面的）（包含关键字）
            GetContent=Left(str,InstrRev(lcase(str),lcase(start))+Len(start)-1)
            case 5    '只往左截取（取后面的）（去除关键字）
            GetContent=Left(str,InstrRev(lcase(str),lcase(start))-1)
            case 6    '只往左截取（取前面的）（包含关键字）
            GetContent=Left(str,Instr(lcase(str),lcase(start))+Len(start)-1)
            case 7    '只往右截取（取后面的）（包含关键字）
            GetContent=Right(str,Len(str)-InstrRev(lcase(str),lcase(start))+1)
            case 8    '只往左截取（取前面的）（去除关键字）
            GetContent=Left(str,Instr(lcase(str),lcase(start))-1)
            case 9    '只往右截取（取后面的）（包含关键字）
            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（公有）
    '    作用 ：循环取得字符串的拼音
    '*****************************************************************
    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,"建议您检查输入文字有无错误") then 
                MusicGc= "暂无"
            else
                musicGc=FormatHtml(musicgc,0)
                musicGc=GetContent(musicgc,"专辑:<a href="http://mp3.baidu.com/m?tn=baidump3&ct=134217728&lm=-1&word=","<p align=right>",0)
                musicgc=Replace(musicgc,"<","<")
                musicgc=Replace(musicgc,">",">")
                musicgc=Replace(musicgc," "," ")
                musicgc=Replace(musicgc,"<font style=color:#e10900>","")
                musicgc=Replace(musicgc,"</font>","")
                musicgc=GetContent(musicgc,"<p>","</p>",0)
                'response.write musicGc
            end if
            if musicgc="" then 
                LrcMusicgc="暂无"
            else
                LrcMusicgc=MusicGc
            end if
    End function
End Class
%>

时间： 2024-10-22 03:33:55

MusicGet 类_ASP CLASS类的相关文章

asp的通用数据分页类_ASP CLASS类

 (原创)<!--#include file="Conn.asp" --> 通用数据分页类     通用分页类,以后写分页显示数据时就轻松多啦.直接调用此类,然后再Execute即可以取得当前页的所有数据.     此类所做的工作是只取得当前页的数据,和总页数和总记录数等等数据. ASP代码: <% '/*****************************分页显示类************************** '/* 作者:哇哇鱼 '/* 日期:2004

分页类，异常类_ASP CLASS类

其它的一些,比如分页类,异常类(用于信息提示),文件操作类(未完成),经常用到的工具类及验证输入的表单验证类(ASP版,配合前台JS版使用更佳): 分页类Pager <% Class Pager Private IUrl Private IPage Private IParam Private IPageSize Private IPageCount Private IRecordCount Private ICurrentPageIndex Public Property Let Url(By

叶子asp分页类_ASP CLASS类

名称: 叶子asp分页类 Name: ShowoPage(vbs class) RCSfile: ReadMe.txt Revision: 0.12.20051114.f Author: Yehe(叶子) Released: 2005-11-14 09:40:13 Descript: ASP分页类,支持access/mssql/mysql/sqlite Contact: QQ:311673 MSN:myehe@msn.com GT:mmyehe@gmail.com WebSite: http:/

ASP 使用三层架构 asp中使用类_ASP CLASS类

但是Class这个东西,如果用得比较少,充其量只是一个大模块的包装方式. 只有大规模地用它来开发,才能显出它对项目管理的优越性来. 所谓的意大利面条式代码,就会和asp划上句号了. 我想目前大部分的asp程序员中都还没有使用Class,对面向对象这种术语也不太熟悉,需要增加一章来描述一下asp中的类所扮演的角色,以及和面向对象编程的关系. 我会用尽量贴近编程实践的方式来解释Class的运用,但不会动用面向对象之类的抽象术语,如果你有了面向对象的理论基础,可以把这些内容与其结合,或者会有你独特的发

创建一个ASP通用分页类_ASP CLASS类

从开始学习到使用ASP到现在也写了不少程序了,最令人头痛的是写数据分页,每次都是由于几个变量名或几个参数的不同,因而需要每次都写哪一段冗长而又繁杂的分页代码,代码长了使得程序的可读性变差,容易出差,调试半天也找不出错在哪里,所以慢慢的我开始使用一些网上的提供的分页函数或分页类.的确省事不少,但是通常的函数和类的做法都是就数据显示部分也封装了起来,每次为了达到自己需要的显求效果要去改动函数或者类的本身,所以使用起来也不是怎么方便,自己写的分页改起来已经够复杂了,更不要说别人的了. 所以趁昨天有空自

捌度空间 缓存类_ASP CLASS类

捌度空间 缓存类代码 复制代码 代码如下: <% class Cache     private obj            'cache内容     private expireTime        '过期时间     private expireTimeName    '过期时间application名     private cacheName        'cache内容application名     private path            'url     privat

ASP操作数据库的类_ASP CLASS类

今天俺在这裡给大家提供一种数据库操作的思路,这些代码是俺在长期的ASP应用中不断完成和修正的,也已经用它完成了很多项目了,应该说直接拿去用是没有问题的.当然本人能力也有限,希望大家一起来讨论. 说明:此帖代码均是VBScript版本.另外最好你对手写ASP已经有一定的基础. 先简单介绍一下俺这个类的一些特点: 可同时操作多个不同类型的数据库. 完全不用考虑数据类型的差别,再也不用想字符型字段加不加单引号. 调用非常简单,对数据库的主要操作一般只需要一行代码. 支持mssql事务回滚. 可自动生成

用ASP编写的加密和解密类_ASP CLASS类

class Base64Class rem Const  dim sBASE_64_CHARACTERS'转化码  dim lenString '计算字符串的长度  dim iCount '计数器  dim returnValue '返回值  dim tempChar'缓存字符  dim tempString'缓存字符串  dim paramString '参数字符串  dim temHex'缓存缓存十六进制  dim tempLow'缓存低位  dim tempHigh'缓存高位  dim m

asp下生成目录树结构的类_ASP CLASS类

关于生成目录树结构的类 本程序有两文件test.asp 和tree.asp 还有一些图标文件 1.test.asp 调用类生成树 代码如下 <%@ Language=VBScript %> <html> <head> <link rel="stylesheet" href="tree.css"> <title>tree</title> </head> <!-- #include