|
马 鞍 山 法 律 |
|
|
| 网址名称 |
点击率 |
<%i = 0
set rs = server.CreateObject ("adodb.recordset")
sql = "select id,sitename,siteurl,ifpass,hits,addtime from site where ifpass=1 and bid=12 and sid=128 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=12 and sid=128 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=12 and sid=128 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=12 and sid=130 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=12 and sid=130 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=12 and sid=130 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=12 and sid=132 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=12 and sid=132 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=12 and sid=132 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=12 and sid=134 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=12 and sid=134 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=12 and sid=134 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=12 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 %>
|
| ::::广
播 电 视:::: |
|
|
