index.asp

来自「Follow me超级搜索引擎 源码」· ASP 代码 · 共 430 行 · 第 1/2 页

response.write"<li><a href='"&trim(rs1("weburl"))&"' target='_blank'>"&trim(rs1("name"))&"</a></li>"
Rs1.movenext
loop
rs1.close
Set rs1 = Nothing
rs.close
Set rs = Nothing

%>
</ul></div>

<%
set rs=server.createobject("adodb.recordset")
sql="select * from typeindex where i=3  "
rs.open sql,conn,1,3
%>
<div id="site_music" class=site style="display:none"><div class=site_title ><%=rs("name")%>：
</div>
<ul>
<%
set rs1=server.createobject("adodb.recordset")
sql1="select * from urlindex where indexshow like 'yes' and id like '"&rs("i")&"' order by indexid desc,i "
rs1.open sql1,conn,1,3
do while Not Rs1.eof
response.write"<li><a href='"&trim(rs1("weburl"))&"' target='_blank'>"&trim(rs1("name"))&"</a></li>"
Rs1.movenext
loop
rs1.close
Set rs1 = Nothing
rs.close
Set rs = Nothing

%>
</ul></div>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from typeindex where i=12  "
rs.open sql,conn,1,3
%>
<div id="site_video" class=site style="display:none"><div class=site_title ><%=rs("name")%>：
</div>
<ul>
<%
set rs1=server.createobject("adodb.recordset")
sql1="select * from urlindex where indexshow like 'yes' and id like '"&rs("i")&"' order by indexid desc,i "
rs1.open sql1,conn,1,3
do while Not Rs1.eof
response.write"<li><a href='"&trim(rs1("weburl"))&"' target='_blank'>"&trim(rs1("name"))&"</a></li>"
Rs1.movenext
loop
rs1.close
Set rs1 = Nothing
rs.close
Set rs = Nothing

%>
</ul></div>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from typeindex where i=13  "
rs.open sql,conn,1,3
%>
<div id="site_game" class=site style="display:none"><div class=site_title ><%=rs("name")%>：
</div>
<ul>
<%
set rs1=server.createobject("adodb.recordset")
sql1="select * from urlindex where indexshow like 'yes' and id like '"&rs("i")&"' order by indexid desc,i "
rs1.open sql1,conn,1,3
do while Not Rs1.eof
response.write"<li><a href='"&trim(rs1("weburl"))&"' target='_blank'>"&trim(rs1("name"))&"</a></li>"
Rs1.movenext
loop
rs1.close
Set rs1 = Nothing
rs.close
Set rs = Nothing

%>
</ul></div>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from typeindex where i=14  "
rs.open sql,conn,1,3
%>
<div id="site_know" class=site style="display:none"><div class=site_title ><%=rs("name")%>：
</div>
<ul>
<%
set rs1=server.createobject("adodb.recordset")
sql1="select * from urlindex where indexshow like 'yes' and id like '"&rs("i")&"' order by indexid desc,i "
rs1.open sql1,conn,1,3
do while Not Rs1.eof
response.write"<li><a href='"&trim(rs1("weburl"))&"' target='_blank'>"&trim(rs1("name"))&"</a></li>"
Rs1.movenext
loop
rs1.close
Set rs1 = Nothing
rs.close
Set rs = Nothing

%>
</ul></div>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from typeindex where i=15  "
rs.open sql,conn,1,3
%>
<div id="site_news" class=site style="display:none"><div class=site_title ><%=rs("name")%>：
</div>
<ul>
<%
set rs1=server.createobject("adodb.recordset")
sql1="select * from urlindex where indexshow like 'yes' and id like '"&rs("i")&"' order by indexid desc,i "
rs1.open sql1,conn,1,3
do while Not Rs1.eof
response.write"<li><a href='"&trim(rs1("weburl"))&"' target='_blank'>"&trim(rs1("name"))&"</a></li>"
Rs1.movenext
loop
rs1.close
Set rs1 = Nothing
rs.close
Set rs = Nothing

%>
</ul></div>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from typeindex where i=16  "
rs.open sql,conn,1,3
%>
<div id="site_software" class=site style="display:none"><div class=site_title ><%=rs("name")%>：
</div>
<ul>
<%
set rs1=server.createobject("adodb.recordset")
sql1="select * from urlindex where indexshow like 'yes' and id like '"&rs("i")&"' order by indexid desc,i "
rs1.open sql1,conn,1,3
do while Not Rs1.eof
response.write"<li><a href='"&trim(rs1("weburl"))&"' target='_blank'>"&trim(rs1("name"))&"</a></li>"
Rs1.movenext
loop
rs1.close
Set rs1 = Nothing
rs.close
Set rs = Nothing

%>
</ul></div>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from typeindex where i=17  "
rs.open sql,conn,1,3
%>
<div id="site_dict" class=site style="display:none"><div class=site_title ><%=rs("name")%>：
</div>
<ul>
<%
set rs1=server.createobject("adodb.recordset")
sql1="select * from urlindex where indexshow like 'yes' and id like '"&rs("i")&"' order by indexid desc,i "
rs1.open sql1,conn,1,3
do while Not Rs1.eof
response.write"<li><a href='"&trim(rs1("weburl"))&"' target='_blank'>"&trim(rs1("name"))&"</a></li>"
Rs1.movenext
loop
rs1.close
Set rs1 = Nothing
rs.close
Set rs = Nothing

%>
</ul></div>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from typeindex where i=233  "
rs.open sql,conn,1,3
%>
<div id="site_other" class=site style="display:none"><div class=site_title ><%=rs("name")%>：
</div>
<ul>
<%
set rs1=server.createobject("adodb.recordset")
sql1="select * from urlindex where indexshow like 'yes' and id like '"&rs("i")&"' order by indexid desc,i "
rs1.open sql1,conn,1,3
do while Not Rs1.eof
response.write"<li><a href='"&trim(rs1("weburl"))&"' target='_blank'>"&trim(rs1("name"))&"</a></li>"
Rs1.movenext
loop
rs1.close
Set rs1 = Nothing
rs.close
Set rs = Nothing

%>
</ul></div>
<%
conn.close
Set conn = Nothing
%>


　


																						
<br />



<%=gg3%>




</body>