<!--#include file="conn.asp" -->
<% 
 '自动重置每天点入数据开始
'strsql = "update ttlink set fouttoday=0,fouttime='"&date()&"' where 'fouttime<>#"&date()&"#"
'conn.Execute(strsql)
'strsql = "update ttlink set fintoday=0 where fintime<>#"&date()&"# and sh=1"   '此为每天点入数清0的同时，最后点入时间不与当天时间同步。
'strsql = "update ttlink set fintoday=0,fintime='"&date()&"' where fintime<>#"&date()&"# and sh=1"  '此为每天点入数清0的同时，最后点入时间与当天同步。
'conn.Execute(strsql) 
 '自动重置每天点入数据结束
 %>

  <html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>首页调用_<%=WebName & ChannelName%></title>
<link rel="stylesheet" href="style.css">
</head>
<body>
  <center>
  
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse"  width="760">
  <tr>
    <td   height="25" align="center" >
    <p ><div class="main_title<%=skin%>"><font color='#FF0000'><%=WebName & ChannelName%>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>
<a href="addlink.asp" target="_blank">申请友情链接</a>
 | <a href="morelink.asp" target="_blank">友情链接列表</a>
 | <a href="admin.asp" target="_blank">用户控制面板</a>
 | <a href="index.asp" target="_blank">系统帮助中心</a>
</div></td>
  </tr>

  <tr>
      <table border="1" cellspacing="0" width="760" bgcolor="#CDE4CF" bordercolorlight="#008000" bordercolordark="#FFFFFF" cellpadding="1" >
 
     <%	dim rs,i,j,username,tturl,ttname,ttlogo,ttinfo,inp,k,m,gd

	set rs=hx.execute("select * from tt_Link where (inp>="&inpc&" and IsVerify="&strTrue&") or (gd=1 and IsVerify="&strTrue&")  order by top desc,inp desc")
 
  i=0
  m=0
  do while not rs.eof and m<MaxLine
  %>
   <tr > 
 <%
for j=1 to LineNum
if rs.eof then
%>
<td  class="tr<%=skin%>" align="center" width="760"> <center><a href="addlink.asp" target="_blank">
<%if k=<LineLogo*LineNum then%>
<img src='images/your_link.gif' width=88 height=31 border=0 alt="申请您的座位">
<%else%>
您的位置
<%end if%>
</a>

</td>
<%else
%>

 <td class="tr<%=skin%>" width="760" class=tdc1 align="center">
 
 <% if i<LineLogo*LineNum  then
 ttlogo=rs("ttlogo")
 ttinfo=rs("ttinfo")
 ttname=rs("ttname")%>
 <center><a href="ttout.asp?username=<%=rs("username")%>" title="<%=ttname%>" target=_blank>
<% if ttlogo=""  or ttlogo="" &WebUrl & "link/images/wu.gif" then %>
<table width="88" height="31"  background="Images/nologo2.gif"><tr><td class=tdc1 align="center"><a href="ttout.asp?username=<%=rs("username")%>" title="<%=ttinfo%>" target=_blank><% if len(rs("ttname"))>6 then%><%if rs("gd")=1 then response.write "<font color=#FF0000>" end if%><%=""&Left(rs("ttname"),6)%><%if rs("gd")=1 then response.write "</font >" end if%><% else%><%if rs("gd")=1 then response.write "<font color=#FF0000>" end if%><%=""&rs("ttname")%><%if rs("gd")=1 then response.write "</font >" end if%><%end if%></a></td></tr></table>   <%else%><img src="<%=rs("ttlogo")%>" width=88 height=31 border=0 alt="<% if len(ttinfo)>30 then%><%=""&Left(ttinfo,30)%><% else%><%=""&ttinfo%><%end if%>">
  <%end if%>
 </a>
 <%else%>
 <a href="ttout.asp?username=<%=rs("username")%>" title="<%=ttinfo%>" target=_blank><% if len(rs("ttname"))>7 then%><%if rs("gd")=1 then response.write "<font color=#FF0000>" end if%><%=""&Left(rs("ttname"),7)%><%if rs("gd")=1 then response.write "</font >" end if%><% else%><%if rs("gd")=1 then response.write "<font color=#FF0000>" end if%><%=""&rs("ttname")%><%if rs("gd")=1 then response.write "</font >" end if%><%end if%></a>

 <% 
 end if 
 i=i+1
 k=k+1
rs.movenext
end if

next
%>        </tr>
<%
m=m+1 
loop
rs.close
set rs=nothing
     '删除系统缓存
     set hxcache=new cls_cache
      hxcache.Name="js"
%>
</table>

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse"  width="760">
   <tr>
    <td   height="25" align="center" class="main_title<%=skin%>"><p ><div>本智能友情链接管理系统动态排名，按日均点进次数的多少来排列顺序，且日均大于<%=inpc%>次以上才在首页显示(前<%=LineLogo*LineNum%>位显示图标)！</div></td>
  </tr>
</table></center>