仓酷云

标题: ASP网站制作之接纳XMLHTTP编写一个天色预告的程序 [打印本页]

作者: 若天明    时间: 2015-1-16 22:30
标题: ASP网站制作之接纳XMLHTTP编写一个天色预告的程序
写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了.另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们)自己就任于一个当地流派网站,天天网站上的天色都得更新。一朝一夕感应相称贫苦,因而写了一个准时的旧事小偷,帖出来人人参考一下体系请求:撑持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.number0then
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
%>
写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了.另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们)
作者: 海妖    时间: 2015-1-19 15:58
另外因为asp需要使用组件,所以了解一点组件的知识(ADODB也是组件)
作者: 愤怒的大鸟    时间: 2015-1-28 07:51
以HTML语言整合(HTML负责界面上,ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。
作者: 山那边是海    时间: 2015-2-5 19:41
不能只是将它停留在纸上谈兵的程度上。
作者: 再现理想    时间: 2015-2-13 08:53
完全不知道到底自己学的是什么。最后,除了教程里面说的几个例子,还是什么都不会。
作者: 兰色精灵    时间: 2015-3-3 19:46
用户端的浏览器不需要提供任何别的支持,这样大提高了用户与服务器之间的交互的速度。
作者: admin    时间: 2015-3-18 16:47
学习是为了用的,是为了让你的程序产生价值,把握住这个原则会比较轻松点。除此之外,课外时间一定要多参加一些社会实践活动,来锻炼自己的能力。
作者: 第二个灵魂    时间: 2015-3-26 06:35
弱类型造成潜在的出错可能:尽管弱数据类型的编程语言使用起来回方便一些,但相对于它所造成的出错几率是远远得不偿失的。




欢迎光临 仓酷云 (http://ckuyun.com/) Powered by Discuz! X3.2