ASP网页编程之重新浪提取上海天色的vbs

ASP是依赖组件的，能访问数据库的组件好多就有好多种,再有就是你微软的工具可是什么都要收钱的啊！肇端很复杂的。剖析一下抓上去的代码，然后处置一下就好了。


文件：weather.vbs放进企图义务，天天早上8:30实行，天生饱含
文件供首页利用
实行体例：cscriptD:上海国度管帐学院网站外部社区vbsweather.vbs
********************************************************************************************************
SymantecScriptBlockingAuthenticatedFile
E9815BB2-5813-400B-9ED5-156350335DE3

constincFilePath="D:上海国度管帐学院网站外部社区webclub"包括文件地点目次,最初的号是必需的
constlogfile="d:club-job-log.txt"日记文件
constincWeather="weather-report.asp"包括文件地点目次,最初的号是必需的
dimfs
dimf
onerrorresumenext

Setfs=CreateObject("Scripting.FileSystemObject")
dimwstr
wstr=getHTTPPage("http://sh.sina.com.cn/")
Response.Writewstr

ifinstr(wstr,"")+len("<imgsrc=http://edu.cnzz.cn/NewsInfo/images/sina_sh/new/sh24.gifwidth=172height=17>"))
wstr=mid(wstr,instr(wstr,"<tablewidth=160border=0cellspacing=0cellpadding=0>"))
wstr=mid(wstr,1,instr(wstr,"</table>")+len("</table>"))
endif
wstr=replace(wstr,"<tr><tdcolspan=3align=right><ahref=http://weather.sina.com.cn/>其他乡村</a><fontcolor=#015B7B>>></font></td></tr>","")
dimpos1,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.Writewstr
iferr.number=0then
Setf=fs.CreateTextFile(incFilePath&incWeather,true)
f.writewstr
setf=nothing
else
wscript.echoerr.description
endif
setfs=nothing

SubwriteLog(Msg)
OnErrorResumeNext
Dimf
Setf=fs.OpenTextFile(logfile,8,true)
f.WriteLinenow&"-"&Msg
f.close
EndSub

functiongetHTTPPage(url)
onerrorresumenext
dimhttp
sethttp=createobject("MSXML2.XMLHTTP")
Http.open"GET",url,false
Http.send()
ifHttp.readystate4then
exitfunction
endif
getHTTPPage=bytes2BSTR(Http.responseBody)
sethttp=nothing
iferr.number0thenerr.Clear
endfunction

Functionbytes2BSTR(vIn)
dimstrReturn
dimi,ThisCharCode,NextCharCode
strReturn=""
Fori=1ToLenB(vIn)
ThisCharCode=AscB(MidB(vIn,i,1))
IfThisCharCode<&H80Then
strReturn=strReturn&Chr(ThisCharCode)
Else
NextCharCode=AscB(MidB(vIn,i+1,1))
strReturn=strReturn&Chr(CLng(ThisCharCode)*&H100+CInt(NextCharCode))
i=i+1
EndIf
Next
bytes2BSTR=strReturn
EndFunction


***********************************************
ActiveServerPage技术为应用开发商提供了基于脚本的直观、快速、高效的应用开发手段，极大地提高了开发的效果。在讨论ASP的安全性问题之前，让我们来看看ASP是怎么工作的。

Response:从字面上讲是“响应”，因此这个是服务端向客户端发送工具的，例如Response.Write

从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了

如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了

封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。

先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习

学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。

下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...