📄 index_mb.asp
字号:
<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 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 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></TD>
<TD width="50%"><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 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 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></TD>
</TR>
<TR></TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=2 cellPadding=0 width="553" border=0>
<TBODY>
<TR>
<TD background=indeximg.files/bg_moreservice.gif colSpan=2
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -