www.gusucode.com > 好22网络TOM新闻小偷源码程序 > Show.asp
<% Function GetHttpPage(HttpUrl) If IsNull(HttpUrl)=True Or HttpUrl="$False$" Then GetHttpPage="$False$" Exit Function End If Dim Http Set Http=server.createobject("MSXML2.XMLHTTP") Http.open "GET",HttpUrl,False Http.Send() If Http.Readystate<>4 then Set Http=Nothing GetHttpPage="$False$" Exit function End if GetHTTPPage=bytesToBSTR(Http.responseBody,"GB2312") Set Http=Nothing If Err.number<>0 then Err.Clear End If End Function Function BytesToBstr(Body,Cset) Dim Objstream Set Objstream = Server.CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode =3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = Cset BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function Function GetBody(ConStr,StartStr,OverStr,IncluL,IncluR) If ConStr="$False$" or ConStr="" or IsNull(ConStr)=True Or StartStr="" or IsNull(StartStr)=True Or OverStr="" or IsNull(OverStr)=True Then GetBody="$False$" Exit Function End If Dim ConStrTemp Dim Start,Over ConStrTemp=Lcase(ConStr) StartStr=Lcase(StartStr) OverStr=Lcase(OverStr) Start = InStrB(1, ConStrTemp, StartStr, vbBinaryCompare) If Start<=0 then GetBody="$False$" Exit Function Else If IncluL=False Then Start=Start+LenB(StartStr) End If End If Over=InStrB(Start,ConStrTemp,OverStr,vbBinaryCompare) If Over<=0 Or Over<=Start then GetBody="$False$" Exit Function Else If IncluR=True Then Over=Over+LenB(OverStr) End If End If GetBody=MidB(ConStr,Start,Over-Start) End Function %> <!--网页头开始--> <!--#include file="tou.asp"--> <!--网页头结束--> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title><% HttpUrl="http://post.news.tom.com/s/"& Request("ztren") &".html" StartGet = GetHttpPage(HttpUrl) List=GetBody(StartGet,"<title>","</title>",False,False) List=replace(List,"TOM.COM","互联网-OK22") If List<>"$False$" Then Response.write List End If %></title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <style> body,td,th { /*文字大小*/ font-size: 12px; /*文字颜色*/ color: #2E2E2E; /*文字行距*/ line-height: 20px; } a:link { text-decoration: none; color: #000000; } a:visited { text-decoration: none; color: #000000; } a:hover { color: #FF6600; } </style> </head> <body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0"> <table border="0" cellpadding="0" style="border-collapse: collapse" width="960" align="center" bordercolor="#DDDDDD"> <tr> <td valign="top"> <table border="1" style="border-collapse: collapse" width="100%" bordercolor="#DDDDDD"> <tr> <td style="padding-left:3px;padding-bottom:5px;padding-top:13px;" align="center"><font color="#000000" size="5"><b><% HttpUrl="http://post.news.tom.com/s/"& Request("ztren") &".html" StartGet = GetHttpPage(HttpUrl) List=GetBody(StartGet,"<title>","</title>",False,False) List=replace(List," - TOM.COM","") If List<>"$False$" Then Response.write List End If %></b></font></td> </tr> <tr> <td align="right"> 时间:<font color="#FF6600"> <% HttpUrl="http://tech.sina.com.cn/"& Request("ztren") &".html" StartGet = GetHttpPage(HttpUrl) List=GetBody(StartGet,"</a> </em>】</span>","<!--}end panel-->",False,False) List=replace(List,"</div>","") if List<>"$False$" Then Response.write List Else Response.write now() End If %> </font> 来源:<font color="#FF6600">TOM新闻</font> [ <a href="javascript:" onclick="window.print();return false;" title="打印正文">打印</a> ] [ <a style="cursor:hand;" href="javascript:window.close()">关闭</a> ] </td> </tr> <tr> <td style="padding-left:3px;padding-right:3px;padding-bottom:3px;padding-top:13px; width:770; height:615; word-break:break-all; word-wrap:break-word;" valign="top"> <% HttpUrl="http://post.news.tom.com/s/"& Request("ztren") &".html" StartGet = GetHttpPage(HttpUrl) List=GetBody(StartGet,"<!--}end panel-->","<a name=""ding"">",False,False) List=GetBody(List,"<div class=""post"" id='content_body'>","<div class=""mix"">",False,False) List=replace(List,"http://post.news.tom.com/s/","Show.asp?ztren=") List=replace(List,"</div>","") List=replace(List,"<a href=""/s/","<a href=""Show.asp?ztren=") List=replace(List,".html","") List=replace(List,"http://slideshow.news.tom.com","http://www.ok22.com") If List<>"$False$" Then Response.write List End If %> <center><script type="text/javascript"><!-- google_ad_client = "pub-3907352362415459"; /* 728x90, 创建于 09-9-22 */ google_ad_slot = "6339035996"; google_ad_width = 728; google_ad_height = 90; //--> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script></center> </td> </tr> </table> </td> <td width="5"></td> <td width="182" valign="top" align="center"> <br> <% HttpUrl="http://news.tom.com/world/shizheng/index.html" StartGet = GetHttpPage(HttpUrl) List=GetBody(StartGet,"<!-- 12 图说新闻 -->","<!--12 图说新闻 -->",False,False) List=GetBody(list,"<ul>","</ul>",False,False) List=replace(List,"http://post.news.tom.com/s/","Show.asp?ztren=") List=replace(List,"src=""/uimg","src=""http://news.tom.com/uimg") List=replace(List,".html","") List=replace(List,"<li>","") List=replace(List,"</li>","") If List<>"$False$" Then Response.write List End If %> <script type="text/javascript"><!-- google_ad_client = "pub-3907352362415459"; google_ad_format = "js_sdo"; google_color_bg = "FFFFFF"; google_cts_mode ="hq"; google_num_cts = "6"; google_searchbox_width = 150; google_searchbox_height = 30; google_link_target = 2; google_logo_pos = "above"; google_button_pos = "below"; google_rs_pos = "below"; google_ad_height = 160; google_ad_width = 155; //--> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_sdo.js"> </script> </td> <td width="5"></td> </tr> </table> <br> <!--网页尾开始--> <!--#include file="wei.asp"--> <!--网页尾结束--> </body> </html>