一个例子:从新浪提取上海天气的vbs_.NET教程_编程技术_ASP.NET_青云站长教程网
欢迎来到站长教程网!
  • 秒到短信接口 免费试用
  • 微信支付宝接口 秒结算
  • 中文网站排名|申请加入
  • 搜索引擎全站查询
  • 查询移动网站权重数据
  • 海外主机 台湾公司直销
  • ASP.NET

    当前位置:主页 > 网络编程 > ASP.NET >

    一个例子:从新浪提取上海天气的vbs_.NET教程_编程技术

    时间:2019-07-10|栏目:ASP.NET|点击:
  • 新浪 起始很简单的。分析一下抓下来的代码,然后处理一下就行了。


    '文件:weather.vbs  放入计划任务,每天早上8:30执行,生成饱含
    '文件供首页使用
    '执行方式:cscript D:/上海国家会计学院网站/内部社区/vbs/weather.vbs
    '********************************************************************************************************
    ' Symantec ScriptBlocking Authenticated File
    ' E9815BB2-5813-400B-9ED5-156350335DE3

        const incFilePath            = "D:/上海国家会计学院网站/内部社区/web/club/"        '包含文件所在目录,最后的/号是必须的
        const logfile                = "d:/club-job-log.txt"                    '日志文件
        const incWeather            = "weather-report.asp"        '包含文件所在目录,最后的/号是必须的
        dim fs
        dim f
        on error resume next

        Set fs        = CreateObject("Scripting.FileSystemObject")
         dim wstr
         wstr=getHTTPPage("http://sh.sina.com.cn/")
         'Response.Write wstr
         
         if instr(wstr,"<img src=http://www.163design.net/a/y/images/sina_sh/new/sh24.gif width=172 height=17>")>0 then
            wstr=mid(wstr,instr(wstr,"<img src=http://www.163design.net/a/y/images/sina_sh/new/sh24.gif width=172 height=17>")+len("<img src=http://www.163design.net/a/y/images/sina_sh/new/sh24.gif width=172 height=17>"))
            wstr=mid(wstr,instr(wstr,"<table width=160 border=0 cellspacing=0 cellpadding=0>"))
            wstr=mid(wstr,1,instr(wstr,"</table>")+len("</table>"))
         end if     
         wstr=replace(wstr,"<tr><td colspan=3 align=right><a href=http://weather.sina.com.cn/>其他城市</a><font rel="nofollow" color=#015B7B>>></font></td></tr>","")
         dim pos1,pos2
         pos1=instr(wstr,"<tr>")
         pos2=instr(pos1,wstr,"</tr>")
         wstr=right(wstr,len(wstr)-pos2-4-4)
         wstr=replace(wstr,"</table>","")
        wstr=replace(wstr,"width=35","")
        wstr=replace(wstr,"width=45","")
        wstr=replace(wstr,"width=60","")
         'Response.Write wstr
         if err.number=0 then
            Set f = fs.CreateTextFile(incFilePath & incWeather,true)    
            f.write wstr
            set f = nothing
         else
            wscript.echo err.description
             end if
        set fs        = nothing

        Sub writeLog(Msg)
            On Error Resume Next
            Dim f
            Set f = fs.OpenTextFile(logfile,8,true)
            f.WriteLine now & " - " & Msg
            f.close
         End Sub

        function getHTTPPage(url)
            on error resume next
            dim http
            set http=createobject("MSXML2.XMLHTTP")
            Http.open "GET",url,false
            Http.send()
            if Htt



    上一篇:VBS 中 Space 函数的应用_.NET教程_编程技术

    栏    目:ASP.NET

    下一篇:清空iis log 中自己登录ip的vbs(仅供研究使用)_.NET教程_编程技术

    本文标题:一个例子:从新浪提取上海天气的vbs_.NET教程_编程技术

    本文地址:http://www.jh-floor.com/wangluobiancheng/ASP_NET/2360.html

    您可能感兴趣的文章

    广告投放 | 联系我们 | 版权申明

    重要申明:本站所有的文章、图片、评论等,均由网友发表或上传并维护或收集自网络,属个人行为,与本站立场无关。

    如果侵犯了您的权利,请与我们联系,我们将在24小时内进行处理、任何非本站因素导致的法律后果,本站均不负任何责任。

    联系QQ:888888 | 邮箱:888888#qq.com(#换成@)

    Copyright © 2002-2017 青云站长教程网 版权所有 琼ICP备xxxxxxxx号