站长网_站长创业_站长主页_站长之家_易采站长站

会员投稿 投稿指南 站长资讯通告: 浅谈自动采集程序及入库
搜索:
您的位置: 主页 > 教程 > 网页编程 > ASP编程 > » 正文

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="动感采集系统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
Tags:
最新图文资讯
1 2 3 4 5 6
相关文章列表:
曾刚:消费金融未来监管或出现这几大方向 曾刚:消费金融未来监管或出现这几大
放眼国际,全球金融科技创新正如火如荼,新技术重塑着金融产业全流程。以人工智能、区块链、云计算、大数据为代表的核
2017⇆2019三年寒冬 第三方支付行业之变 2017⇆2019三年寒冬 第三方支付行业之变
中国的钱包制造商,太难了。 有着中国缝制设备制造之都美誉的浙江台州,如今已经找不到专门生产钱包的企业了。 要知道
行业诞生以来最大“地震”!大数据倒在2019 行业诞生以来最大“地震”!大数据倒
一场大数据行业诞生以来最大规模的地震正在发生。 2019年9月6日,第三方数据风控公司魔蝎数据和新颜科技的相关负责人在
“蹊跷”的银行财报:资本充足率飙升至15357% “蹊跷”的银行财报:资本充足率飙升
日前,中国债券信息网披露了黄石农村商业银行股份有限公司(下称黄石农商行)2019年三季度信息报告(下称三季报)。 三
被诈骗+背债!凭什么不让我们起诉支付宝? 被诈骗+背债!凭什么不让我们起诉支付
本文呦呦鹿鸣一位读者的遭遇,这件事从未披露过,他写了下来,供诸君参考。我很欣赏年轻的朋友们这样认真对待自己权利
建行贵州分行被罚50万:“e信通”信贷资金被挪用 建行贵州分行被罚50万:“e信通”信贷资
12月3日,贵州银保监局公布行政处罚信息公开表(银保监银罚决字〔2019〕17号),中国建设银行股份有限公司(以下称建设银
水滴筹创始人:再管不好 愿把公司交给公益组织 水滴筹创始人:再管不好 愿把公司交给
12月5日晚,水滴筹创始人兼CEO沈鹏在微博上发布公开信《水滴筹欢迎大众的监督,希望重新赢得信任》,并表示再管不好,我
山东证监局原局长徐铁被开除党籍:曾与姚刚共事6年 山东证监局原局长徐铁被开除党籍:曾
12月6日,据中央纪委国家监委网站消息,日前,中央纪委国家监委驻中国证监会纪检监察组、山东省监委对中国证券监督管理
助贷业务的运作模式、潜在风险及监管建议 助贷业务的运作模式、潜在风险及监管
编者语: 助贷业务存在客户支持、资金支持和风控支持三种基本模式,其发展建立在比较优势理论和金融功能理论的基础上
太悲情!内幕交易亏损超百万 还被罚60万! 太悲情!内幕交易亏损超百万 还被罚
证监会日前通报了一桩利用内幕交易炒股的案件。在ST天业历时一年多,耗资18亿元的跨国并购案的背后,违法当事人斥资千
最新文章
易采站长站 - 联系我们 - 广告服务 - 友情链接 - 网站地图 - 版权声明 - 人才招聘 - 帮助 -