www.gusucode.com > 好22网络TOM新闻小偷源码程序 > china.asp
<!--网页头开始--> <!--#include file="tou.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 %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>国内新闻</title> <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> <style> *{margin:0;padding:0;} img{border:none;} ul{list-style:none;} body{font-size:12px;font-family:"ËÎÌå",Arial,sans-serif;text-align:center;} a:link,a:visited{color:#4D4D4D;text-decoration:none;} a:hover{color:#ba0005;text-decoration:underline;} .mod{width:385px;padding:3px 4px;float:left;margin-right:10px;border:1px solid #9DC6F4;margin-bottom:10px;} .mod h3{height:27px;background:url(http://news.tom.com/uldf/2008/1210/yingnana/tab.jpg) no-repeat;font-size:14px;line-height:27px;text-indent:6px;} .mod h3 span{display:block;height:27px;background:url(http://news.tom.com/uldf/2008/1210/yingnana/tab2.jpg) no-repeat right top;float:right;margin-top:-27px;font-size:12px;font-weight:normal;padding-right:5px;} .mod span a:link, .mod span a:visited{color:#243D73;} .mod ul{padding:15px 15px} .mod li{height:24px;padding-left:8px;background:url(http://news.tom.com/uldf/2008/1210/yingnana/ico1.gif) no-repeat 0 9px;font-size:14px;line-height:24px;} </style> <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"> <tr> <td valign="top"> <table border="1" style="border-collapse: collapse" width="100%" bordercolor="#DDDDDD"> <tr> <td bgcolor="#BE0000" height="25"> <table border="0" cellpadding="0" style="border-collapse: collapse" width="100%"> <tr> <td style="padding-left:10px; color:#FFFFFF"><b>当前位置: <a href="index.asp"> <font color="#FFFFFF">新闻频道</font></a> > 国内新闻</b></td> <td style="padding-right:14px; color:#FFFFFF" align="right"> 好22网络提供技术支持——<a href="index.asp"><font color="#FFFFFF">WwW.OK22.CoM</font></a></td> </tr> </table> </td> </tr> </table> <table border="0" cellpadding="0" style="border-collapse: collapse" width="100%"> <tr> <td> <table style="border-collapse: collapse" width=790" bordercolor="#99CCFF"> <tr> <td> <script type="text/javascript"><!-- google_ad_client = "pub-3907352362415459"; google_ad_format = "js_sdo"; google_color_bg = "9DC6F4"; google_cts_mode ="hq"; google_num_cts = "6"; google_searchbox_color_border = "FFFFFF"; google_searchbox_width = 215; google_searchbox_height = 26; google_link_target = 2; google_logo_pos = "left"; google_rs_pos = "right"; google_ad_height = 28; google_ad_width = 780; //--> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_sdo.js"> </script> <% if Request("riqi")="" Then HttpUrl="http://news.tom.com/china/" StartGet = GetHttpPage(HttpUrl) List=GetBody(StartGet,"<div class=""bcola"">","<h3>股市行情<span>",False,False) List=replace(List,"http://post.news.tom.com/s/","Show.asp?ztren=") List=replace(List,"http://news.tom.com/china/minsheng/index.html","n1.asp") List=replace(List,"http://news.tom.com/china/shishi/index.html","nzx.asp") List=replace(List,"http://news.tom.com/china/gat/index.html","nzxt.asp") List=replace(List,"http://news.tom.com/china/comment/index.html","n1.asp") List=replace(List,".html","") List=replace(List,"<div class=""mod"">","") List=replace(List,"<h3>国内最新<span>","<div class=""mod""><h3>国内最新<span>") List=replace(List,"<h3>民生资讯<span>","<div class=""mod""><h3>民生资讯<span>") List=replace(List,"<h3>港澳台<span>","<div class=""mod""><h3>港澳台<span>") List=replace(List,"<h3>国内评论<span>","<div class=""mod""><h3>国内评论<span>") If List<>"$False$" Then Response.write List Else Response.write "信息暂时无法显示更新中。。。。。" End If %> </td> </tr> </table> <td> <td width="162" valign="top" align="center"> <% HttpUrl="http://news.tom.com/china/" StartGet = GetHttpPage(HttpUrl) List=GetBody(StartGet,"<!--09 图说新闻 b-->","<!--09 图说新闻 e-->",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 %> </td> </tr> </table> <br> <!--网页尾开始--> <!--#include file="wei.asp"--> <!--网页尾结束--> </body> </html>