<!--#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">
<!--
body {
	margin-left: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
-->
</style><BODY topMargin=0>
<% 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("dydh123com_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 dydh123com_hei=0 order by ding desc,dydh123com_intime desc"
'response.write sql
rsDe.open sql,conn,1,1
%>
<table width=100% border=0 align="center" cellpadding=4 cellspacing=1>
<tr><%
n=1 
While Not rsDe.Eof and n<91
%>
    <td width="150" height="30"><a href='<%=rsDe("url")%>' target='_blank'>
    <%if rsDe("dydh123com_dayin")>199 then
response.write "<b><font color=#ff0000>"&rsDe("Title")&"</font></b>"
elseif rsDe("dydh123com_dayin")>149 then
response.write "<b><font color=#0000FF>"&rsDe("Title")&"</font></b>"
elseif rsDe("dydh123com_dayin")>99 then
response.write "<b><font color=#FF00FF>"&rsDe("Title")&"</font></b>"
elseif rsDe("dydh123com_dayin")>79 then
response.write "<b><font color=#008000>"&rsDe("Title")&"</font></b>"
elseif rsDe("dydh123com_dayin")>39 then
response.write "<font color=#ff0000>"&rsDe("Title")&"</font>"
elseif rsDe("dydh123com_dayin")>29 then
response.write "<font color=#0000ff>"&rsDe("Title")&"</font>"
elseif rsDe("dydh123com_dayin")>19 then
response.write "<font color=#FF00FF>"&rsDe("Title")&"</font>"
elseif rsDe("dydh123com_dayin")>9 then
response.write "<font color=#008000>"&rsDe("Title")&"</font>"
else
Response.Write""&rsDe("Title")&""
end if%></a></td>
<%
if n mod 6 =0 then
Response.Write("</Tr>")
end if     
rsDe.MoveNext
n=n+1
Wend
rsDe.close
set rsDe=nothing
%></table>

