📄 复件 (2) index_mb.asp
字号:
<%
do while not rs_list.eof
i=1
Do While i<=5
%>
<td height="25" width="20%" bgcolor="<%=cc%>" align="center"><a href="class/<%=rs_list("id")%>_1.htm"><%=rs_list("name")%></a></td>
<%
i=i+1
rs_list.MoveNext
if rs_list.eof then
exit do
end if
loop
%>
<%for l=0 to 5-i%>
<td width="20%" bgcolor="<%=cc%>" align="center"> </td>
<%next%>
</tr>
<%
loop
end if
rs_list.close
%>
</table></td>
</tr>
<%
rs.MoveNext
loop
end if
rs.close
set rs=nothing
set rs_list=nothing%>
</table></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD vAlign=top width=298> <TABLE cellSpacing=0 cellPadding=0 width="95%" align=center border=0>
<TBODY>
<TR>
<TD colSpan=3 height=22><IMG height=22
src="indeximg/TI2.gif"
width=267></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="95%" align=center border=0>
<TBODY>
<TR>
<TD bgColor=#ffffff colSpan=3 height=40> <TABLE cellSpacing=0 cellPadding=0 width="95%" align=center
border=0>
<TBODY>
<TR align=middle>
<TD width="33%" > <TABLE cellSpacing=0 cellPadding=0 width="95%" border=0>
<TBODY>
<TR>
<TD align=middle>
<%
i=0
Set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * From flash where classid='10' order by hits desc"
Rs.open Sql,Conn,1,1
Do While not Rs.Eof
i=i+1
%>
<table width="87" border="0" align="center" cellpadding="0" cellspacing="0" class="table3">
<tr>
<td valign="middle"> <div align="center">
<a href="flash/<%=rs("id")%>.htm" target=_blank><img border=0 src="<%=replace(rs("pic"),"../flashpic","flashpic")%>" width="75" height="53"></a>
<table width="72%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="119" height="18"> <div align="center"><a href="flash/<%=rs("id")%>.htm" target=_blank><%=left(rs("flashname"),3)%></a></div></td>
</tr>
</table>
</div></td>
</tr>
</table>
<%
if i>=1 then exit do
Rs.Movenext
Loop
Rs.Close
Set Rs=nothing
%>
</TD>
</TR>
</TBODY>
</TABLE></TD>
<TD width="33%"> <TABLE cellSpacing=0 cellPadding=0 width="95%" border=0>
<TBODY>
<TR>
<TD height="107" align=middle>
<%
i=0
Set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * From flash where classid='11' order by hits desc"
Rs.open Sql,Conn,1,1
Do While not Rs.Eof
i=i+1
%>
<table width="87" border="0" align="center" cellpadding="0" cellspacing="0" class="table3">
<tr>
<td valign="middle"> <div align="center">
<a href="flash/<%=rs("id")%>.htm" target=_blank><img border=0 src="<%=replace(rs("pic"),"../flashpic","flashpic")%>" width="75" height="53"></a>
<table width="72%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="119" height="18"> <div align="center"><a href="flash/<%=rs("id")%>.htm" target=_blank><%=left(rs("flashname"),3)%></a></div></td>
</tr>
</table>
</div></td>
</tr>
</table>
<%
if i>=1 then exit do
Rs.Movenext
Loop
Rs.Close
Set Rs=nothing
%>
</TD>
</TR>
</TBODY>
</TABLE></TD>
<TD width="33%"> <TABLE cellSpacing=0 cellPadding=0 width="95%" border=0>
<TBODY>
<TR>
<TD height="107" align=middle>
<%
i=0
Set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * From flash where classid='12' order by hits desc"
Rs.open Sql,Conn,1,1
Do While not Rs.Eof
i=i+1
%>
<table width="87" border="0" align="center" cellpadding="0" cellspacing="0" class="table3">
<tr>
<td valign="middle"> <div align="center">
<a href="flash/<%=rs("id")%>.htm" target=_blank><img border=0 src="<%=replace(rs("pic"),"../flashpic","flashpic")%>" width="75" height="53"></a>
<table width="72%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="119" height="18"> <div align="center"><a href="flash/<%=rs("id")%>.htm" target=_blank><%=left(rs("flashname"),3)%></a></div></td>
</tr>
</table>
</div></td>
</tr>
</table>
<%
if i>=1 then exit do
Rs.Movenext
Loop
Rs.Close
Set Rs=nothing
%>
</TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="95%" align=center
border=0>
<TBODY>
<TR align=middle>
<TD width="33%"> <TABLE cellSpacing=0 cellPadding=0 width="95%" border=0>
<TBODY>
<TR>
<TD align=middle>
<%
i=0
Set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * From flash where classid='13' order by hits desc"
Rs.open Sql,Conn,1,1
Do While not Rs.Eof
i=i+1
%>
<table width="87" border="0" align="center" cellpadding="0" cellspacing="0" class="table3">
<tr>
<td valign="middle"> <div align="center">
<a href="flash/<%=rs("id")%>.htm" target=_blank><img border=0 src="<%=replace(rs("pic"),"../flashpic","flashpic")%>" width="75" height="53"></a>
<table width="72%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="119" height="18"> <div align="center"><a href="flash/<%=rs("id")%>.htm" target=_blank><%=left(rs("flashname"),3)%></a></div></td>
</tr>
</table>
</div></td>
</tr>
</table>
<%
if i>=1 then exit do
Rs.Movenext
Loop
Rs.Close
Set Rs=nothing
%>
</TD>
</TR>
</TBODY>
</TABLE></TD>
<TD width="33%"> <TABLE cellSpacing=0 cellPadding=0 width="95%" border=0>
<TBODY>
<TR>
<TD height="107" align=middle>
<%
i=0
Set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * From flash where classid='14' order by hits desc"
Rs.open Sql,Conn,1,1
Do While not Rs.Eof
i=i+1
%>
<table width="87" border="0" align="center" cellpadding="0" cellspacing="0" class="table3">
<tr>
<td valign="middle"> <div align="center">
<a href="flash/<%=rs("id")%>.htm" target=_blank><img border=0 src="<%=replace(rs("pic"),"../flashpic","flashpic")%>" width="75" height="53"></a>
<table width="72%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="119" height="18"> <div align="center"><a href="flash/<%=rs("id")%>.htm" target=_blank><%=left(rs("flashname"),3)%></a></div></td>
</tr>
</table>
</div></td>
</tr>
</table>
<%
if i>=1 then exit do
Rs.Movenext
Loop
Rs.Close
Set Rs=nothing
%>
</TD>
</TR>
</TBODY>
</TABLE></TD>
<TD width="33%"> <TABLE cellSpacing=0 cellPadding=0 width="95%" border=0>
<TBODY>
<TR>
<TD height="107" align=middle>
<%
i=0
Set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * From flash where classid='15' order by hits desc"
Rs.open Sql,Conn,1,1
Do While not Rs.Eof
i=i+1
%>
<table width="87" border="0" align="center" cellpadding="0" cellspacing="0" class="table3">
<tr>
<td valign="middle"> <div align="center">
<a href="flash/<%=rs("id")%>.htm" target=_blank><img border=0 src="<%=replace(rs("pic"),"../flashpic","flashpic")%>" width="75" height="53"></a>
<table width="72%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="119" height="18"> <div align="center"><a href="flash/<%=rs("id")%>.htm" target=_blank><%=left(rs("flashname"),3)%></a></div></td>
</tr>
</table>
</div></td>
</tr>
</table>
<%
if i>=1 then exit do
Rs.Movenext
Loop
Rs.Close
Set Rs=nothing
%>
</TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<%
Set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * From flash order by id desc"
Rs.open Sql,Conn,1,1
%>
<%
For i=1 To 84
If rs.eof Then Exit For
If i mod 2 <> 0 Then
%>
<tr>
<td width="50%" height="25" class="table1"> <a href="flash/<%=rs("id")%>.htm" target=_blank><%=left(rs("flashname"),9)%></a></td>
<%Else%>
<td width="50%" class="table1"> <a href="flash/<%=rs("id")%>.htm" target=_blank><%=left(rs("flashname"),9)%></a></td>
</tr>
<%
End If
rs.movenext
Next
rs.close
set rs=NOTHING
%>
</table></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
<%conn.close
set conn=nothing%>
<!--#include File="end.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -