起始很简单的。分析一下抓下来的代码,然后处理一下就行了。
'文件: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
1/5 1 2 3 4 5 下一页 尾页 |