index.asp

3ani桑尼网络wap导航程序wap导航程序wap导航程序

<!--#include file="66hc.asp"--><!--#include file="opfw.asp"-->
<card id="login" title="<%=dname%>">
<p>
<%if len(dlogo)>4 then response.write("<img src='"&dlogo&"' alt='"&dname&"'/><br/>")%> 
<%=dwml%>
<a href='top/zr.asp?sb=<%=sb%>&amp;o=<%=o%>'>昨天</a>|<a href='top/jr.asp?sb=<%=sb%>&amp;o=<%=o%>'>今天</a>|<a href='top/zl.asp?sb=<%=sb%>&amp;o=<%=o%>'>全部</a>|<a href='top/rm.asp?sb=<%=sb%>&amp;o=<%=o%>'>热门</a><br/>
<%
'读取最新站点开始
set rs0=server.createobject("ADODB.Recordset")
Sql0="select top "&jjp&" * from [66hc_url] where cstr(kz)=0 order by [66hc_time] desc"
rs0.open Sql0,conn,1,1
if not rs0.eof then
if len(wml2)>3 then response.write wml2
i=1
do while not rs0.eof
%>
<%if rs0("zt")=1 then%>
<a href='url.asp?o=<%=o%>&amp;wid=<%=rs0("66hc_id")%>'><%=ubb(rs0("66hc_name"))%></a><br/>
<%else%>
<%=ubb(rs0("66hc_name"))%><br/>
<%end if%>
<%
i=i+1
rs0.movenext
loop
end if
rs0.close
set rs0=nothing
response.write("<a href='more.asp?sb="&sb&"&amp;o="&o&"'>更多网站>></a><br/>")
'读取最新站点结束
%>
<!--读取酷站推荐开始-->
<%
'读取最新站点开始
set rs1=server.createobject("ADODB.Recordset")
Sql1="select * from [66hc_url] where cstr(kz)=1 order by [66hc_time] desc"
rs1.open Sql1,conn,1,1
if not rs1.eof then
if len(wml1)>3 then response.write wml1
j1=1
do while not rs1.eof
%>
<a href='url.asp?o=<%=o%>&amp;wid=<%=rs1("66hc_id")%>'><%=ubb(rs1("66hc_sy"))%></a>
<%
response.Write "&nbsp;"
j1=j1+1
rs1.movenext
loop
response.Write "<br/>"
end if
rs1.close
set rs1=nothing
'读取最新站点结束
%>
<!--读取酷站推荐结束-->
<!--读取分类推荐开始-->
<%
if len(wml3)>3 then response.write wml3
set rs4=server.createobject("ADODB.Recordset")
Sql8="select * from [66hc_class] where [66hc_xs]=0 order by [66hc_pid] asc"
rs4.open Sql8,conn,1,1
l=1
do while not rs4.eof
%>
【<a href='class.asp?ids=<%=rs4("66hc_id")%>&amp;o=<%=o%>'><%=ubb(rs4("66hc_Name"))%></a>】
<%
set rstc=server.createobject("ADODB.Recordset")
rstcstr="select top 5 * from [66hc_url] where zt=1 and [66hc_fid]="&rs4("66hc_Id")&" order by [66hc_time] asc"
rstc.open rstcstr,conn,1,2
if not rstc.eof then
j=1
do while not rstc.eof
%>
<a href='url.asp?o=<%=o%>&amp;wid=<%=rstc("66hc_id")%>'><%=ubb(rstc("66hc_sy"))%></a>.
<%
j=j+1
rstc.movenext
loop
response.Write "<a href='class.asp?ids="&rs4("66hc_Id")&"&amp;o="&o&"'>更多</a><br/>"
end if
rstc.Close
set rstc=nothing
%>
<%
if rs4("66hc_br")=1 then response.Write "<br/>"
l=l+1
rs4.movenext
loop
rs4.Close
set rs4=nothing
%>
<%
if len(wml4)>3 then response.write wml4
set rs5=server.createobject("ADODB.Recordset")
Sql5="select * from [66hc_class] where [66hc_xs]=1 order by [66hc_pid] asc"
rs5.open Sql5,conn,1,1
k=1
do while not rs5.eof
%>
<a href='class.asp?ids=<%=rs5("66hc_id")%>&amp;o=<%=o%>'><%=ubb(rs5("66hc_Name"))%></a>
<%
if rs5("66hc_br")=1 then
response.Write "<br/>"
else
response.Write "&nbsp;"
end if
k=k+1
rs5.movenext
loop
rs5.Close
set rs5=nothing
%>

<br/>--------<br/>
<a href='add.asp?sb=<%=sb%>&amp;o=<%=o%>'>网站加入</a>|<a href='ds.asp?sb=<%=sb%>&amp;o=<%=o%>'>待审网站</a><br/>
<a href='sou.asp?sb=<%=sb%>&amp;o=<%=o%>'>查找网站</a>|<a href='dup.asp?sb=<%=sb%>&amp;o=<%=o%>'>待删网站</a><br/>
<%=zwml%>
<!--读取分类推荐结束-->
<!--#include file="66hcw.asp"-->