<!--#include file="mdb.asp"-->
<link rel="stylesheet" href="css/style.css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<BODY leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<SCRIPT language=JavaScript1.2> 
<!-- 
function wsug(e, str){
 var oThis = arguments.callee;
 if(!str) {
  oThis.sug.style.visibility = 'hidden';
  //oThis.sug1.innerHTML = "图片正在加载中......";
  document.onmousemove = null;
  return;
 }  
 if(!oThis.sug){
  var div = document.createElement('div'), css = 'top:0; left:0; position:absolute; z-index:100; visibility:hidden;';
   div.style.cssText = css;
   div.setAttribute('style',css);
  var sug = document.createElement('div'), css= 'font:normal 12px/16px "宋体"; white-space:nowrap; color:#666; padding:3px; position:absolute; left:0; top:0; z-index:10; background:#f9fdfd; border:1px solid #0aa; height:86;width:113;';
   sug.style.cssText = css;
   sug.setAttribute('style',css);
  var dr = document.createElement('div'), css = 'position:absolute; top:3px; left:3px; background:#333; filter:alpha(opacity=50); opacity:0.5; z-index:9;';
   dr.style.cssText = css;
   dr.setAttribute('style',css);
  var ifr = document.createElement('iframe'), css='position:absolute; left:0; top:0; z-index:8; filter:alpha(opacity=0); opacity:0;';
   ifr.style.cssText = css;
   ifr.setAttribute('style',css);
  div.appendChild(ifr);
  div.appendChild(dr);
  div.appendChild(sug);
  div.sug = sug;
  document.body.appendChild(div);
  oThis.sug = div;
  //oThis.sug1=sug;
  oThis.dr = dr;
  oThis.ifr = ifr;
  div = dr = ifr = sug = null;
 }
 var e = e || window.event, obj = oThis.sug, dr = oThis.dr, ifr = oThis.ifr;
//obj.div.innerHTML = "图片正在加载中......";
//obj.sug.innerHTML = "图片正在加载中......";
//obj.dr.innerHTML = "图片正在加载中......";
//obj.ifr.innerHTML = "图片正在加载中......";
obj.sug.innerHTML = str;
//obj.sug.innerHTML = str;
var w = obj.sug.offsetWidth, h = obj.sug.offsetHeight, dw = document.documentElement.clientWidth||document.body.clientWidth; dh = document.documentElement.clientHeight || document.body.clientHeight;
var st = document.documentElement.scrollTop || document.body.scrollTop, sl = document.documentElement.scrollLeft || document.body.scrollLeft;
//var left = e.clientX +sl +17 + w < dw + sl  &&  e.clientX + sl + 15 || e.clientX +sl-8 - w, top = e.clientY + st + 17;
var left// = e.clientX + sl +17 + w < dw + sl  &&  e.clientX + sl + 15 || e.clientX + sl - 25 - w;
var top// = e.clientY + st +17 + h < dh + st  &&  e.clientY + st + 17 || e.clientY + st - 25 - h;
if (e.clientY + st +17 + h < dh + st)
 {
 	top = e.clientY + st + 17; 
 }
 else
 {
 //alert(e.clientY + st - 25 - h);
 	if (e.clientY + st - 25 - h < 0)
 	{
 		top = 0;
 	}
 	else
 	{
  		top = e.clientY + st - 25 - h;
  	}
 }
if (e.clientX + sl +17 + w < dw + sl)
 {
 	left = e.clientX + sl + 15;
 
 }
 else
 {
  	left = e.clientX + sl - 25 - w;
 }
 obj.style.left = left+ 10 + 'px';
 obj.style.top = top + 10 + 'px';
 dr.style.width = w + 'px';
 dr.style.height = h + 'px';
 ifr.style.width = w + 3 + 'px';
 ifr.style.height = h + 3 + 'px';
 obj.style.visibility = 'visible';
};
//--> 
</script>
<% set rs=server.createobject("adodb.recordset")
rs.open "select * from title",conn,1,3
auto=rs("auto")
rs.close
set rs=nothing
if auto<>1 then
Response.Write ""
Else
set rsDe=server.createobject("adodb.recordset")
sql=" select * from detail where verity=0 order by id desc"
rsDe.open sql,conn,1,3
do while not rsDe.eof
if rsDe("aspliancom_in")>0 then
rsDe("verity")=1
rsDe.update
end if
rsDe.movenext 
loop 
rsDe.close
set rsDe=nothing
'Response.End
end if
%>
<%
set rsDe=server.createobject("adodb.recordset")
sql= "select * from detail Where verity=1 and aspliancom_hei=0 order by ding desc,aspliancom_intime desc"
'response.write sql
rsDe.open sql,conn,1,1
%>
<table width=100% border=0 cellpadding=3 cellspacing=1 bgcolor="#eeeeee">
<tr><%
n=1 
While Not rsDe.Eof and n<50
%>
    <td height="20" bgcolor="#F9FDFC"><img src=logo/01.gif hspace="5" border=0><a href='<%=rsDe("url")%>' title=名称:<%=rsDe("title")%>&#13&#10网址:<%=rsDe("url")%>&#13&#10当天来路:<%=rsDe("aspliancom_dayin")%>次|历史来路:<%=rsDe("aspliancom_in")%>次 target='_blank' name ="<img border=0 height=80 width=107 src=http://www.myip.cn/webthumb.php?q=<%=rsDe("url")%>>" onMouseOver="wsug(event,this.name)" onMouseOut="wsug(event, 0)"><%if rsDe("aspliancom_dayin")>9 then%></font><font color=#008000><%end if%>
<%if rsDe("aspliancom_dayin")>19 then%></font><font color=#FF00FF><%end if%>
<%if rsDe("aspliancom_dayin")>29 then%></font><font color=#0000ff><%end if%>
<%if rsDe("aspliancom_dayin")>39 then%></font><font color=#ff0000><%end if%>
<%if rsDe("aspliancom_dayin")>79 then%></font><font color=#008000><b><%end if%>
<%if rsDe("aspliancom_dayin")>99 then%></font><font color=#FF00FF><b><%end if%>
<%if rsDe("aspliancom_dayin")>149 then%></font><font color=#0000FF><b><%end if%>
<%if rsDe("aspliancom_dayin")>199 then%></font><font color=#ff0000><b><%end if%>
<%=rsDe("title")%><%if rsDe("aspliancom_dayin")>4 then%></b></font><%end if%></a> <a href="http://www.alexa.com/data/details/traffic_details?q=&amp;url=<%=rsDe("url")%>" target="_blank"><img src="images/alexa.gif" alt="世界排名查看" border="0"/></a></td>
<%
if n mod 7 =0 then
Response.Write("</Tr>")
   end if     
rsDe.MoveNext
n=n+1
Wend
rsDe.close
set rsDe=nothing
%></table>
<%
set rsDe=server.createobject("adodb.recordset")
sql= "select * from detail Where verity=1 and aspliancom_hei=0 and logo<>'' order by aspliancom_intime desc"
'response.write sql
rsDe.open sql,conn,1,1
%>