ASP编程：用ASP+XMLHTTP编写一个天色预告程序

使用cdonts，可以发送、查看邮件，实现webmail的功能。结合wsh，可以实现对nt主机的管理，如nt用户管理、iis虚拟主机设置、exchange邮箱设置等等，就像管理本地机一样方便。asp+|xml|程序|天色预告|xml自己就任于一个当地流派网站，天天网站上的天色都得更新。一朝一夕感应相称贫苦，因而写了一个准时的旧事小偷，帖出来人人参考一下体系请求:撑持FSO,服务器UDP　TCP/IP没有屏障。

　　上面是小偷的内容：
FileNameTianQi.asp
WriteByNiaokedQQ408611119
www.ckuyun.com
＜%
　ifhour(now)=9andminute(now)＜30then
　　getCategories()
　endif
　FunctiongetCategories()
　　onerrorresumenext
　　DimoXMLHTTPAsObject
　　DimoCategoriesAsObject
　　DimBodyText
　　DimPos,Pos1
　　SetoXMLHTTP=CreateObject("Microsoft.XMLHTTP")
　　---settheXMLHTTPcallandissuesend(noparmascategory
　　---isincludedinURL
　　oXMLHTTP.open"GET","http://weather.china.com.cn/travel_gntq.php?cityid=56196&cityname=绵阳",False这个中央换成你本人的地点
　　oXMLHTTP.send
　　---loadtheresponseintotheCategoriesdataisland
　　BodyText=oXMLHTTP.responsebody
　　BodyText=BytesToBstr(BodyText,"gb2312")
　　Pos=Instr(BodyText,"＜body")
　　pos1=Instr(BodyText,"＜/body＞")
　　BodyText=mid(BodyText,pos,pos1)
　　BodyText=split(BodyText,"＜table")
　　Pos=Instr(BodyText(4),"＜tr")
　　pos1=Instr(BodyText(4),"＜/tr＞")
　　Body=mid(BodyText(4),pos,len(BodyText(4))-pos)
　　body=split(body,"＜/table＞")
　　body1=split(replace(replace(replace(body(0),"＜br＞",""),"＜/td＞",""),"＜/tr＞",""),"天色")
　　fori=1toubound(body1)
　　　body3=split(body1(i),"＜td")
　　　weather=weather&"document.write("""&i&"$"&"天色"&HTMLEncode(trim(body3(0)))&""");"&vbcrlf
　　next
　　weather=replace(weather,"1$","＜FONTcolor=#ffffff＞【明天】＜/FONT＞")
　　weather=replace(weather,"2$","＜FONTcolor=#ffffff＞【今天】＜/FONT＞")
　　weather=replace(weather,"3$","＜FONTcolor=#ffffff＞【后天】＜/FONT＞")
　　Setfs=CreateObject("Scripting.FileSystemObject")
　　Setf=fs.CreateTextFile(request.ServerVariables("APPL_PHYSICAL_PATH")&"tq.js",True)
　　f.write("document.write(绵阳天色预告:);"&vbcrlf&replace(weather,"＜BR＞",""))
　　f.close
　　Setf=nothing
　　Setfs=nothing
　　response.write"绵阳天色预告:"&weather
　　SetoXMLHTTP=Nothing
　　iferr.number＜＞0then
　　　response.write"堕落了，毛病形貌："&err.description&"＜br＞毛病来历"&err.source
　　　response.End()
　　endif
　EndFunction

　FunctionBytesToBstr(body,Cset)
　　dimobjstream
　　setobjstream=Server.CreateObject("adodb.stream")
　　objstream.Type=1
　　objstream.Mode=3
　　objstream.Open
　　objstream.Writebody
　　objstream.Position=0
　　objstream.Type=2
　　objstream.Charset=Cset
　　BytesToBstr=objstream.ReadText
　　objstream.Close
　　setobjstream=nothing
　EndFunction
　PublicFunctionHTMLEncode(fString)
　　IfNotIsNull(fString)Then
　　　fString=replace(fString,"＞",">")
　　　fString=replace(fString,"＜","<")
　　　fString=Replace(fString,CHR(32),"")
　　　fString=Replace(fString,CHR(9),"")
　　　fString=Replace(fString,CHR(34),""")
　　　fString=Replace(fString,CHR(39),"")单引号过滤
　　　fString=Replace(fString,CHR(13),"")
　　　fString=Replace(fString,CHR(10)&CHR(10),"＜/P＞＜P＞")
　　　fString=Replace(fString,CHR(10),"＜BR＞")
　　　HTMLEncode=fString
　　EndIf
　EndFunction
%＞</p>因为现在数据库都使用标准的SQL语言对数据库进行管理，所以如果是标准SQL语言，两者基本上都可以通用的。SQLServer还有更多的扩展，可以用存储过程，数据库大小无极限限制。

仓酷云

哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的?

Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件

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

我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。

我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

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

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

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