index.asp

一个WAP导航程序！动态友链！好东西！而且后台安全性很强

         Response.write "" & "" & rs("title") & "|"    

         else if rs("bz")="t" then
         Response.write "" & "<a href='lianjie.asp?id="&rs("id")&"'>"&rs("title")&"</a>|"
         end if
    end if
end if
%>
<%
i=i+1
rs.movenext
loop
response.write "<a href='fenlei.asp?id=5'>更多</a>"
end if
'----------------------------------------------------------------------------------------------------
 %>
 <br/>[<a href='fenlei.asp?id=6'>智能</a>] <a href='http://wap.zijoy.com'>子乐</a>|<% 
set rs = server.createobject("adodb.recordset")
sql="select * from wapqita where lassid=6 "&shou&" order by hits desc" 
rs.open sql,conn,1,1 
if rs.eof and rs.bof then
response.write "还没有站点，赶快联系我吧"
else
rs.pagesize =shu
total  = rs.RecordCount
rs.absolutepage=1
mypagesize = rs.pagesize %>

 <% 
		i=1
        do while not rs.eof and i<=mypagesize 


if session("admin")="" then
		
               if rs("bz")="f" then
               Response.write ""&rs("title")&"<br/>"
               else response.write "<a href='lianjie.asp?id="&rs("id")&"'>"&rs("title")&"</a>|"
               end if 
       
    else



         if rs("bz")="f" then   
         Response.write "" & "" & rs("title") & "|"    

         else if rs("bz")="t" then
         Response.write "" & "<a href='lianjie.asp?id="&rs("id")&"'>"&rs("title")&"</a>|"
         end if
    end if
end if
%>
<%
i=i+1
rs.movenext
loop
response.write "<a href='fenlei.asp?id=6'>更多</a>"
end if
'----------------------------------------------------------------------------------------------------
 %>
 <br/>[<a href='fenlei.asp?id=8'>导航</a>] <a href='http://miwap.cn'>迷我</a>|<% 
set rs = server.createobject("adodb.recordset")
sql="select * from wapqita where lassid=8 "&shou&" order by hits desc" 
rs.open sql,conn,1,1 
if rs.eof and rs.bof then
response.write "还没有站点，赶快联系我吧"
else
rs.pagesize =shu
total  = rs.RecordCount
rs.absolutepage=1
mypagesize = rs.pagesize %>

 <% 
		i=1
        do while not rs.eof and i<=mypagesize 


if session("admin")="" then
		
               if rs("bz")="f" then
               Response.write ""&rs("title")&"<br/>"
               else response.write "<a href='lianjie.asp?id="&rs("id")&"'>"&rs("title")&"</a>|"
               end if 
       
    else



         if rs("bz")="f" then   
         Response.write "" & "" & rs("title") & "|"    

         else if rs("bz")="t" then
         Response.write "" & "<a href='lianjie.asp?id="&rs("id")&"'>"&rs("title")&"</a>|"
         end if
    end if
end if
%>
<%
i=i+1
rs.movenext
loop
response.write "<a href='fenlei.asp?id=8'>更多</a>"
end if
'----------------------------------------------------------------------------------------------------
 %>
<br/>[<a href='fenlei.asp?id=14'>影视</a>]
 <% 
set rs = server.createobject("adodb.recordset")
sql="select * from wapqita where lassid=14 "&shou&" order by hits desc" 
rs.open sql,conn,1,1 
if rs.eof and rs.bof then
response.write "还没有站点，赶快联系我吧"
else
rs.pagesize =shu
total  = rs.RecordCount
rs.absolutepage=1
mypagesize = rs.pagesize %>

 <% 
		i=1
        do while not rs.eof and i<=mypagesize 


if session("admin")="" then
		
               if rs("bz")="f" then
               Response.write ""&rs("title")&"<br/>"
               else response.write "<a href='lianjie.asp?id="&rs("id")&"'>"&rs("title")&"</a>|"
               end if 
       
    else



         if rs("bz")="f" then   
         Response.write "" & "" & rs("title") & "|"    

         else if rs("bz")="t" then
         Response.write "" & "<a href='lianjie.asp?id="&rs("id")&"'>"&rs("title")&"</a>|"
         end if
    end if
end if
%>
<%
i=i+1
rs.movenext
loop
response.write "<a href='fenlei.asp?id=14'>更多</a>"
end if
'----------------------------------------------------------------------------------------------------
 %>
<br/>[<a href='fenlei.asp?id=11'>资讯</a>]
 <% 
set rs = server.createobject("adodb.recordset")
sql="select * from wapqita where lassid=11 "&shou&" order by hits desc" 
rs.open sql,conn,1,1 
if rs.eof and rs.bof then
response.write "还没有站点，赶快联系我吧"
else
rs.pagesize =shu
total  = rs.RecordCount
rs.absolutepage=1
mypagesize = rs.pagesize %>

 <% 
		i=1
        do while not rs.eof and i<=mypagesize 


if session("admin")="" then
		
               if rs("bz")="f" then
               Response.write ""&rs("title")&"|"
               else response.write "<a href='lianjie.asp?id="&rs("id")&"'>"&rs("title")&"</a>|"
               end if 
       
    else



         if rs("bz")="f" then   
         Response.write "" & "" & rs("title") & "|"    

         else if rs("bz")="t" then
         Response.write "" & "<a href='lianjie.asp?id="&rs("id")&"'>"&rs("title")&"</a>|"
         end if
    end if
end if
%>
<%
i=i+1
rs.movenext
loop
response.write "<a href='fenlei.asp?id=11'>更多</a>"
end if
'----------------------------------------------------------------------------------------------------
 %>
<br/>[<a href='fenlei.asp?id=9'>搜索</a>]
 <% 
set rs = server.createobject("adodb.recordset")
sql="select * from wapqita where lassid=9 "&shou&" order by hits desc" 
rs.open sql,conn,1,1 
if rs.eof and rs.bof then
response.write "还没有站点，赶快联系我吧"
else
rs.pagesize =shu
total  = rs.RecordCount
rs.absolutepage=1
mypagesize = rs.pagesize %>

 <% 
		i=1
        do while not rs.eof and i<=mypagesize 


if session("admin")="" then
		
               if rs("bz")="f" then
               Response.write ""&rs("title")&"<br/>"
               else response.write "<a href='lianjie.asp?id="&rs("id")&"'>"&rs("title")&"</a>|"
               end if 
       
    else



         if rs("bz")="f" then   
         Response.write "" & "" & rs("title") & "|"    

         else if rs("bz")="t" then
         Response.write "" & "<a href='lianjie.asp?id="&rs("id")&"'>"&rs("title")&"</a>|"
         end if
    end if
end if
%>
<%
i=i+1
rs.movenext
loop
response.write "<a href='fenlei.asp?id=9'>更多</a>"
end if
'----------------------------------------------------------------------------------------------------
 %>
<br/>[<a href='fenlei.asp?id=10'>酷站</a>]
 <% 
set rs = server.createobject("adodb.recordset")
sql="select * from wapqita where lassid=10 "&shou&" order by hits desc" 
rs.open sql,conn,1,1 
if rs.eof and rs.bof then
response.write "还没有站点，赶快联系我吧"
else
rs.pagesize =shu
total  = rs.RecordCount
rs.absolutepage=1
mypagesize = rs.pagesize %>

 <% 
		i=1
        do while not rs.eof and i<=mypagesize 


if session("admin")="" then
		
               if rs("bz")="f" then
               Response.write ""&rs("title")&"<br/>"
               else response.write "<a href='lianjie.asp?id="&rs("id")&"'>"&rs("title")&"</a>|"
               end if 
       
    else



         if rs("bz")="f" then   
         Response.write "" & "" & rs("title") & "|"    

         else if rs("bz")="t" then
         Response.write "" & "<a href='lianjie.asp?id="&rs("id")&"'>"&rs("title")&"</a>|"
         end if
    end if
end if
%>
<%
i=i+1
rs.movenext
loop
response.write "<a href='fenlei.asp?id=10'>更多</a>"
end if
'----------------------------------------------------------------------------------------------------
 %>
<br/>----------------
<br/><a href='news.asp'>新站</a>|<a href='daishen.asp'>待审</a>|
<a href='ru.asp'>强站</a>|<a href='chu.asp'>热门</a>
<br/>----------------<br/>
<a href='lianjie_tian.asp'>友链申请</a>|<a href='xuzhi.asp'>友情须知</a><br/>
<a href='http://miwap.cn/ly/ly.asp?nid=7'>合作留言</a>|<a href='http://62book.com/wap/'>书香首页</a>
<br/>友链合作请加QQ：550853085  e-mail:[e-mail]
<br/>报时:<%=time()%>
<br/>
</p>
</card>
</wml>