|
本人就职于一个本地门户网站，每天网站上的天气都得更新。久而久之感到相当麻烦，于是写了一个定时的新闻小偷，帖出来大家参考一下系统要求: 支持FSO, 服务器UDP TCP/IP 没有屏蔽 zQGLinux联盟
zQGLinux联盟
下面是小偷的内容 zQGLinux联盟
FileName TianQi.asp zQGLinux联盟
Write By Niaoked QQ408611119 zQGLinux联盟
www.knowsky.com zQGLinux联盟
<% zQGLinux联盟
if hour(now)=9 and minute(now)<30 then zQGLinux联盟
getCategories() zQGLinux联盟
end if zQGLinux联盟
Function getCategories() zQGLinux联盟
on error resume next zQGLinux联盟
Dim oXMLHTTP ' As Object zQGLinux联盟
Dim oCategories ' As Object zQGLinux联盟
Dim BodyText zQGLinux联盟
Dim Pos,Pos1 zQGLinux联盟
Set oXMLHTTP = CreateObject("Microsoft.XMLHTTP") zQGLinux联盟
'--- set the XMLHTTP call and issue send (no parm as category zQGLinux联盟
'--- is included in URL zQGLinux联盟
oXMLHTTP.open "GET","http://weather.china.com.cn/travel_gntq.php?cityid=56196&cityname=绵阳",False '这个地方换成你自己的地址 zQGLinux联盟
oXMLHTTP.send zQGLinux联盟
'--- load the response into the Categories data island zQGLinux联盟
BodyText=oXMLHTTP.responsebody zQGLinux联盟
BodyText=BytesToBstr(BodyText,"gb2312") zQGLinux联盟
Pos=Instr(BodyText,"<body") zQGLinux联盟
pos1=Instr(BodyText,"</body>") zQGLinux联盟
BodyText=mid(BodyText,pos,pos1) zQGLinux联盟
BodyText=split(BodyText,"<table") zQGLinux联盟
Pos=Instr(BodyText(4),"<tr") zQGLinux联盟
pos1=Instr(BodyText(4),"</tr>") zQGLinux联盟
Body=mid(BodyText(4),pos,len(BodyText(4))-pos) zQGLinux联盟
body=split(body,"</table>") zQGLinux联盟
body1=split(replace(replace(replace(body(0),"<br>",""),"</td>",""),"</tr>",""),"天气") zQGLinux联盟
for i= 1 to ubound(body1) zQGLinux联盟
body3=split(body1(i),"<td") zQGLinux联盟
weather=weather & "document.write("""& i&"$" & "天气" & HTMLEncode(trim(body3(0))) & """);" & vbcrlf zQGLinux联盟
next zQGLinux联盟
weather=replace(weather,"1$","<FONT color=#ffffff>【今天】</FONT>") zQGLinux联盟
weather=replace(weather,"2$","<FONT color=#ffffff>【明天】</FONT>") zQGLinux联盟
weather=replace(weather,"3$","<FONT color=#ffffff>【后天】</FONT>") zQGLinux联盟
Set fs = CreateObject("Scripting.FileSystemObject") zQGLinux联盟
Set f = fs.CreateTextFile(request.ServerVariables("APPL_PHYSICAL_PATH")& "tq.js", True) zQGLinux联盟
f.write("document.write('绵阳天气预报:');" &vbcrlf & replace(weather,"<BR>","")) zQGLinux联盟
f.close zQGLinux联盟
Set f = nothing zQGLinux联盟
Set fs = nothing zQGLinux联盟
response.write "绵阳天气预报:"& weather zQGLinux联盟
Set oXMLHTTP = Nothing zQGLinux联盟
if err.number<>0 then zQGLinux联盟
response.write "出错了，错误描述："&err.description & "<br>错误来源"& err.source zQGLinux联盟
response.End() zQGLinux联盟
end if zQGLinux联盟
End Function zQGLinux联盟
zQGLinux联盟
Function BytesToBstr(body,Cset) zQGLinux联盟
dim objstream zQGLinux联盟
set objstream = Server.CreateObject("adodb.stream") zQGLinux联盟
objstream.Type = 1 zQGLinux联盟
objstream.Mode =3 zQGLinux联盟
objstream.Open zQGLinux联盟
objstream.Write body zQGLinux联盟
objstream.Position = 0 zQGLinux联盟
objstream.Type = 2 zQGLinux联盟
objstream.Charset = Cset zQGLinux联盟
BytesToBstr = objstream.ReadText zQGLinux联盟
objstream.Close zQGLinux联盟
set objstream = nothing zQGLinux联盟
End Function zQGLinux联盟
Public Function HTMLEncode(fString) zQGLinux联盟
If Not IsNull(fString) Then zQGLinux联盟
fString = replace(fString, ">", ">") zQGLinux联盟
fString = replace(fString, "<", "<") zQGLinux联盟
fString = Replace(fString, CHR(32), " ") ' zQGLinux联盟
fString = Replace(fString, CHR(9), " ") ' zQGLinux联盟
fString = Replace(fString, CHR(34), """) zQGLinux联盟
fString = Replace(fString, CHR(39), "'") '单引号过滤 zQGLinux联盟
fString = Replace(fString, CHR(13), "") zQGLinux联盟
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ") zQGLinux联盟
fString = Replace(fString, CHR(10), "<BR> ") zQGLinux联盟
HTMLEncode = fString zQGLinux联盟
End If zQGLinux联盟
End Function zQGLinux联盟
%> zQGLinux联盟
zQGLinux联盟
Linux联盟收集整理 ,转贴请标明原始链接,如有任何疑问欢迎来本站Linux论坛讨论 |
|
