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的朋友有所帮助...
页:
[1]