 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
起始很简朴的。分析一下抓下来的代码，然后处理一下就行了。 \\\'文件：weather.vbs 放入计划任务，天天早上8:30执行，生成饱含 \\\'文件供首页使用 \\\'执行方法：cscript D:vbsweather.vbs \\\'******************************************************** \\\' Symantec ScriptBlocking Authenticated File \\\' E9815BB2-5813-400B-9ED5-156350335DE3 const incFilePath = "D:\\webclub" \\\'包含文件所在目录,最后的号是必须的 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=images/sina_sh/new/sh24.gif width=172 height=17>")>0 then wstr=mid(wstr,instr(wstr,"<img src=images/sina_sh/new/sh24.gif width=172 height=17>")+len("<img src=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 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 Http.readystate<>4 then exit function end if getHTTPPage=bytes2BSTR(Http.responseBody) set http=nothing if err.number<>0 then err.Clear end function Function bytes2BSTR(vIn) dim strReturn dim i,ThisCharCode,NextCharCode strReturn = "" For i = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn,i,1)) If ThisCharCode < &H80 Then strReturn = strReturn & Chr(ThisCharCode) Else NextCharCode = AscB(MidB(vIn,i+1,1)) strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) i = i + 1 End If Next bytes2BSTR = strReturn End Function 返回类别: 教程 上一教程: ASP漏洞集-MS IIS SERVER/FRONTPAGE EXT SERVER 下一教程: REQUEST废话连篇 您可以阅读与"从新浪提取上海天气的VBS"相关的教程: · 常用的VBSCRIPT 函数集 · VBScript与JScript谁怕谁(4) · VBSCRIPT语言 基础知识 · ASP页面内VBSCRIPT和JSCRIPT的交互 · VBSCRIPT的入门学习资料 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
