|
病 毒 防 治 |
|
|
| 网址名称 |
点击率 |
<%i = 0
set rs = server.CreateObject ("adodb.recordset")
sql = "select id,sitename,siteurl,ifpass,hits,addtime from site where ifpass=1 and bid=49 and sid=358 order by hits desc"
rs.Open sql,conn,1,1
do while not rs.EOF
title=rs("sitename")
title=left(title,10)
i = i + 1
if i mod 3 = 1 then
%>
| &id=<%=rs("id")%> target=_blank><%=title%> |
<%=rs("hits")%> |
<%
rs.MoveNext()
else
rs.MoveNext()
end if
loop
rs.close %>
|
| 网址名称 |
点击率 |
<%i = 0
set rs = server.CreateObject ("adodb.recordset")
sql = "select id,sitename,siteurl,ifpass,hits,addtime from site where ifpass=1 and bid=49 and sid=358 order by hits desc"
rs.Open sql,conn,1,1
do while not rs.EOF
title=rs("sitename")
title=left(title,10)
i = i + 1
if i mod 3 = 2 then %>
| &id=<%=rs("id")%> target=_blank><%=title%> |
<%=rs("hits")%> |
<%
rs.MoveNext()
else
rs.MoveNext()
end if
loop
rs.close %>
|
| 网址名称 |
点击率 |
<%i = 0
set rs = server.CreateObject ("adodb.recordset")
sql = "select id,sitename,siteurl,ifpass,hits,addtime from site where ifpass=1 and bid=49 and sid=358 order by hits desc"
rs.Open sql,conn,1,1
do while not rs.EOF
title=rs("sitename")
title=left(title,10)
i = i + 1
if i mod 3 = 0 then %>
| &id=<%=rs("id")%> target=_blank><%=title%> |
<%=rs("hits")%> |
<%
rs.MoveNext()
else
rs.MoveNext()
end if
loop
rs.close %>
|
|
|
|
|
|
|
| 网址名称 |
点击率 |
<%i = 0
set rs = server.CreateObject ("adodb.recordset")
sql = "select id,sitename,siteurl,ifpass,hits,addtime from site where ifpass=1 and bid=49 and sid=360 order by hits desc"
rs.Open sql,conn,1,1
do while not rs.EOF
title=rs("sitename")
title=left(title,10)
i = i + 1
if i mod 3 = 1 then
%>
| &id=<%=rs("id")%> target=_blank><%=title%> |
<%=rs("hits")%> |
<%
rs.MoveNext()
else
rs.MoveNext()
end if
loop
rs.close %>
|
| 网址名称 |
点击率 |
<%i = 0
set rs = server.CreateObject ("adodb.recordset")
sql = "select id,sitename,siteurl,ifpass,hits,addtime from site where ifpass=1 and bid=49 and sid=360 order by hits desc"
rs.Open sql,conn,1,1
do while not rs.EOF
title=rs("sitename")
title=left(title,10)
i = i + 1
if i mod 3 = 2 then %>
| &id=<%=rs("id")%> target=_blank><%=title%> |
<%=rs("hits")%> |
<%
rs.MoveNext()
else
rs.MoveNext()
end if
loop
rs.close %>
|
| 网址名称 |
点击率 |
<%i = 0
set rs = server.CreateObject ("adodb.recordset")
sql = "select id,sitename,siteurl,ifpass,hits,addtime from site where ifpass=1 and bid=49 and sid=360 order by hits desc"
rs.Open sql,conn,1,1
do while not rs.EOF
title=rs("sitename")
title=left(title,10)
i = i + 1
if i mod 3 = 0 then %>
| &id=<%=rs("id")%> target=_blank><%=title%> |
<%=rs("hits")%> |
<%
rs.MoveNext()
else
rs.MoveNext()
end if
loop
rs.close %>
|
|
|
|
安 全 论 坛 |
|
|
| 网址名称 |
点击率 |
<%i = 0
set rs = server.CreateObject ("adodb.recordset")
sql = "select id,sitename,siteurl,ifpass,hits,addtime from site where ifpass=1 and bid=49 and sid=362 order by hits desc"
rs.Open sql,conn,1,1
do while not rs.EOF
title=rs("sitename")
title=left(title,10)
i = i + 1
if i mod 3 = 1 then
%>
| &id=<%=rs("id")%> target=_blank><%=title%> |
<%=rs("hits")%> |
<%
rs.MoveNext()
else
rs.MoveNext()
end if
loop
rs.close %>
|
| 网址名称 |
点击率 |
<%i = 0
set rs = server.CreateObject ("adodb.recordset")
sql = "select id,sitename,siteurl,ifpass,hits,addtime from site where ifpass=1 and bid=49 and sid=362 order by hits desc"
rs.Open sql,conn,1,1
do while not rs.EOF
title=rs("sitename")
title=left(title,10)
i = i + 1
if i mod 3 = 2 then %>
| &id=<%=rs("id")%> target=_blank><%=title%> |
<%=rs("hits")%> |
<%
rs.MoveNext()
else
rs.MoveNext()
end if
loop
rs.close %>
|
| 网址名称 |
点击率 |
<%i = 0
set rs = server.CreateObject ("adodb.recordset")
sql = "select id,sitename,siteurl,ifpass,hits,addtime from site where ifpass=1 and bid=49 and sid=362 order by hits desc"
rs.Open sql,conn,1,1
do while not rs.EOF
title=rs("sitename")
title=left(title,10)
i = i + 1
if i mod 3 = 0 then %>
| &id=<%=rs("id")%> target=_blank><%=title%> |
<%=rs("hits")%> |
<%
rs.MoveNext()
else
rs.MoveNext()
end if
loop
rs.close %>
|
|
|
|
黑 客 安 全 |
|
|
| 网址名称 |
点击率 |
<%i = 0
set rs = server.CreateObject ("adodb.recordset")
sql = "select id,sitename,siteurl,ifpass,hits,addtime from site where ifpass=1 and bid=49 and sid=364 order by hits desc"
rs.Open sql,conn,1,1
do while not rs.EOF
title=rs("sitename")
title=left(title,10)
i = i + 1
if i mod 3 = 1 then
%>
| &id=<%=rs("id")%> target=_blank><%=title%> |
<%=rs("hits")%> |
<%
rs.MoveNext()
else
rs.MoveNext()
end if
loop
rs.close %>
|
| 网址名称 |
点击率 |
<%i = 0
set rs = server.CreateObject ("adodb.recordset")
sql = "select id,sitename,siteurl,ifpass,hits,addtime from site where ifpass=1 and bid=49 and sid=364 order by hits desc"
rs.Open sql,conn,1,1
do while not rs.EOF
title=rs("sitename")
title=left(title,10)
i = i + 1
if i mod 3 = 2 then %>
| &id=<%=rs("id")%> target=_blank><%=title%> |
<%=rs("hits")%> |
<%
rs.MoveNext()
else
rs.MoveNext()
end if
loop
rs.close %>
|
| 网址名称 |
点击率 |
<%i = 0
set rs = server.CreateObject ("adodb.recordset")
sql = "select id,sitename,siteurl,ifpass,hits,addtime from site where ifpass=1 and bid=49 and sid=364 order by hits desc"
rs.Open sql,conn,1,1
do while not rs.EOF
title=rs("sitename")
title=left(title,10)
i = i + 1
if i mod 3 = 0 then %>
| &id=<%=rs("id")%> target=_blank><%=title%> |
<%=rs("hits")%> |
<%
rs.MoveNext()
else
rs.MoveNext()
end if
loop
rs.close %>
|
|
|
|
|
|
 |
| ::::热 门 网 址:::: |
<%
r=0
set rs = server.CreateObject ("adodb.recordset")
sql = "select top 10 id,sitename,siteurl,ifpass,hits from site where ifpass=1 and bid=6 order by hits desc"
rs.Open sql,conn,1,1
for r=1 to 10
title=rs("sitename")
title=left(title,10)
%>
| <%=r%> | &id=<%=rs("id")%> target=_blank><%=title%> | <%=rs("hits")%> |
<%
rs.MoveNext()
next
rs.close %>
|
| ::::广
播 电 视:::: |
|
|
