www.gusucode.com > 黑鹰自助链管理系统 1.1 商业版码程序 > IP/200.asp
<!--#include file="mdb.asp"--> <link rel="stylesheet" href="../css/style.css"> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <style type="text/css"> <!-- .STYLE2 {color: #FF0000} --> </style> <% set rsDe=server.createobject("adodb.recordset") sql= "select * from detail Where verity=1 and yl_dayin>=0 order by yl_intime desc" 'response.write sql rsDe.open sql,conn,1,1 %> <title>黑鹰免费友情链接网-最新显示排行代码</title><BODY leftMargin=0 topMargin=0 marginwidth="0" marginheight="0"> <table width=200 height="200" border=0 cellpadding=1 cellspacing=1 bgcolor="#CFECF8"> <tr><td width="20" align="center" bgcolor="#CFECF8" rowspan="8"><script type="text/javascript" src="come.js"></script><a href='http://www.hymm.net' title=黑鹰链 target='_blank'><b>黑<br> 鹰<br> 链<br> 自<br> 动<br> 高<br> 速<br> 链<br> 接<br> 网<br><br </b></a><a href=javascript:location.reload() title=刷新排名 class=red><b>刷</b></a></td> <% n=1 While Not rsDe.Eof and n<17 %> <td bgcolor="#F9FDFC"><a href='/go.asp?id=<%=rsDe("id")%>' title=<%=rsDe("title")%> target='_blank'><%if rsDe("yl_dayin")>4 then%><font color=#ff00FF><%end if%> <%if rsDe("yl_dayin")>9 then%></font><font color=#0000ff><%end if%> <%if rsDe("yl_dayin")>19 then%></font><font color=#FF0000><%end if%> <%if rsDe("yl_dayin")>29 then%><font color=#0000ff><b><%end if%> <%if rsDe("yl_dayin")>49 then%><font color=#ff0000><b><%end if%> <%=rsDe("title")%><%if rsDe("yl_dayin")>4 then%> </b></font></a><a href='/go.asp?id=<%=rsDe("id")%>' title=<%=rsDe("title")%> target='_blank'> <%end if%> </a></td> <% if n mod 2 =0 then Response.Write("</Tr>") end if rsDe.MoveNext n=n+1 Wend rsDe.close set rsDe=nothing %> </table> <span style="display:none"> <script language="javascript" type="text/javascript" src="http://js.users.51.la/2738073.js"></script> </span> <!--禁止右键开始--> <script language="JavaScript"> document.oncontextmenu=new Function("event.returnValue=false;"); document.onselectstart=new Function("event.returnValue=false;"); </script> <!--禁止右键结素-->