www.gusucode.com > 好22网络TOM新闻小偷源码程序 > wrw.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;}
.maincolb{width:390px;float:left;overflow:hidden;}
.maincolb h3{background:url(http://news.tom.com/uldf/2008/1210/yingnana/bg07.jpg) no-repeat;font-size:14px;text-indent:8px;height:27px;line-height:25px;}
.maincolb ul{padding:18px 0;border-bottom:1px dotted #6C6C6C;margin-right:15px;float:left;clear:both;}
.maincolb .last{border-bottom:none;}
.maincolb li{height:24px;padding:0 35px;background:url(http://news.tom.com/uldf/2008/1210/yingnana/ico1.gif) no-repeat 25px 12px;font-size:14px;line-height:24px;overflow:hidden;float:left;clear:both;width:396px;}
.maincolb li a{float:left;width:320px;}
.maincolb a:link,
.maincolb a:visited{color:#424242;text-decoration:underline;}
.maincolb li span{float:right;width:40px;}
</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:10px; color:#FFFFFF" align="right">
好22网络提供技术支持——<a href="index.asp"><font color="#FFFFFF">WwW.OK22.CoM</font></a>
</td>
</tr>
</table>
</td>
</tr>
</table>
<script type="text/javascript"><!--
google_ad_client = "pub-3907352362415459";
google_ad_format = "js_sdo";
google_color_bg = "cfe8f6";
google_cts_mode ="hq";
google_num_cts = "8";
google_searchbox_width = 215;
google_searchbox_height = 26;
google_link_target = 2;
google_logo_pos = "left";
google_rs_pos = "right";
google_ad_height = 30;
google_ad_width = 960;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_sdo.js">
</script>
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<tr>
<td>
<table border="1" style="border-collapse: collapse" width="100%" bordercolor="#99CCFF">
<tr>
<td>
<%
if Request("riqi")="" Then HttpUrl="http://news.tom.com/world/renwu/index.html"
StartGet = GetHttpPage(HttpUrl)
List=GetBody(StartGet,"<!--04 专题推荐 -->","<!-- 12 图说新闻 -->",False,False)
List=GetBody(List,"<div class=""maincolb"">","<div align=""center"">",False,False)
List="<div class=""maincolb"">"&List
List=replace(List,"http://post.news.tom.com/s/","Show.asp?ztren=")
List=replace(List,".html","")
If List<>"$False$" Then
Response.write List
Else
Response.write "信息暂时无法显示更新中。。。。。"
End If
%>
</td></tr></table><td width="5"></td><td width="50%" valign="top"><table border="0" cellpadding="0" style="border-collapse: collapse" width="100%" valign="top"><tr><td><table border="1" style="border-collapse: collapse" width="100%" bordercolor="#99CCFF"><tr><td>
<%
if Request("riqi")="" Then HttpUrl="http://news.tom.com/world/pinglun/index.html"
StartGet = GetHttpPage(HttpUrl)
List=GetBody(StartGet,"<!--04 专题推荐 -->","<!-- 12 图说新闻 -->",False,False)
List=GetBody(List,"<div class=""maincolb"">","<div align=""center"">",False,False)
List="<div class=""maincolb"">"&List
List=replace(List,"http://post.news.tom.com/s/","Show.asp?ztren=")
List=replace(List,".html","")
If List<>"$False$" Then
Response.write List
Else
Response.write "信息暂时无法显示更新中。。。。。"
End If
%>
</td>
</tr>
</table>
</td>
<td width="10"></td>
<td width="170" valign="top" align="center">
<script type="text/javascript"><!--
google_ad_client = "pub-3907352362415459";
/* 160x600, 创建于 09-9-19 */
google_ad_slot = "0628724789";
google_ad_width = 160;
google_ad_height = 600;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
</tr>
</table>
</td>
</tr>
</table>
<br>
<!--网页尾开始-->
<!--#include file="wei.asp"-->
<!--网页尾结束-->
</body>
</html>