<% dim find,webtype,pl dim rs,sql dim condition,linkstr find=hx.checkstr(trim(request("find")),50) webtype=request("webtype") sql="select * from CL_Link" condition = " where 1=1 " pl=request("pl") if pl="" then pl="inp" end if linkstr = "pl=" & pl if webtype="" or not isnumeric(webtype) then webtype=0 elseif webtype>0 then condition = condition & " and webtype="&webtype end if linkstr = linkstr & "&webtype="&webtype if find<>"" then condition = condition & " and (sitename like '%"&find&"%' or siteintro like '%"&find&"%' or siteurl like '%"&find&"%')" linkstr = linkstr & "&find="&find end if '分页信息 dim PageNo PageNo=Request.QueryString("PageNo") if PageNo="" or not isnumeric(PageNo) then PageNo=1 else PageNo=int(PageNo) end if '普通sql语句 sql=sql & condition &" ORDER BY "&pl&" DESC" %>
网站首页| 系统使用说明 | 申请友情链接 | 查询网站点击 | 管理网站信息 | 重获链接代码|
您的位置:自助友情联盟 -- <%=ChannelName%> -- 查询网站点击
<%if webtype=0 then%>
今日点入排行
<%call showtop(1,1)%>
总计点入排行
<%call showtop(1,2)%>
今日点出排行
<%call showtop(2,1)%>
总计点出排行
<%call showtop(2,2)%>
<%end if%>

输入关键字：   网站分类：    排序：    

<%hx.showPageInfo "CL_link","username",condition,PageNo,MaxPageSize,linkstr%>
<% set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 if not rs.eof then rs.PageSize = MaxPageSize rs.AbsolutePage = PageNo dim i i=0 %> <% Do While Not rs.EOF and i <% i=i+1 rs.MoveNext Loop else %> <% end if rs.close set rs=nothing CloseDatabase %>
网站名称 链接图标 网站类别 网站登记时间 开始统计时间 最后点入时间 最后点出时间
" target="_blank"><%=rs("sitename")%> " target="_blank"> width=88 height=31 alt="网址:<%=hx.htmlencode2(rs("siteurl"))%>" border="0"> <%=hx.showwebtype(rs("webtype"))%> <%=rs("dateandtime")%> <%=rs("fromdate")%> <%=rs("indate")%> <%=rs("outdate")%>
简　介 <%=hx.htmlencode2(rs("siteintro"))%>
贡献统计
[你站]对[我站]:总计点入 <%=rs("inc")%> 今天点入 <%=rs("inj")%> 平均点入 <%=formatnumber(rs("inp"),2,-1)%>
[我站]对[你站]:总计点出 <%=rs("outc")%> 今天点出 <%=rs("outj")%> 平均点出 <%=formatnumber(rs("outp"),2,-1)%>
没有找到你所查询的网站
<% Function ShowTop(x,y) Dim OutStr,conditionstr Dim rs,sql,i if y=2 then if x=1 then conditionstr=" where inc>0 order by inc desc" else conditionstr=" where outc>0 order by outc desc" end if sql="select top 5 sitename,inc,outc,username from CL_link "&conditionstr else if x=1 then conditionstr=" where inj>0 order by inj desc" else conditionstr=" where outj>0 order by outj desc" end if sql="select top 5 sitename,inj,outj,username from CL_link "&conditionstr end if OutStr = "" set rs=hx.Execute(sql) if rs.eof then OutStr= OutStr & "" else do while not rs.eof and i<5 OutStr= OutStr & "" i=i+1 rs.movenext loop end if OutStr= OutStr & "
暂时还没有数据
" OutStr= OutStr & " " OutStr= OutStr & " "&rs(0)&"" OutStr= OutStr & "" if x=1 then OutStr= OutStr & " in:"&rs(1) else OutStr= OutStr & " out:"&rs(2) end if OutStr= OutStr & "
" Response.Write OutStr End Function %>