📄 ttlink.asp
字号:
<!--#include file="conn.asp" -->
<%'==========================================================
'天天智能友情链接管理系统
'天天DV网制作 http://www.ttdv.cn
'电脑家园http://www.pc326.com
'文秘家园http://www.wm326.com
'博大网址库http://www.ip126.com
'可自由传播和免费使用，但必须保留此完整版权信息
'本程序撷取了ITlearner、博大网址库智能友情链接系统、飞
'越智能友情链接系统等优秀程序中的源代码，对他们的作者表示感谢
'============================================================
%>
<%
'自动重置每天点入数据开始
'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%> </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>
<a href="admin/" target="_blank">| </a><a href="http://www.ttdv.cn" target="_blank">感谢天天DV网提供本程序</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>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -