📄 复件 index_mb.asp
字号:
<!--#include File="Conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=(webname)%></title>
<style type="text/css">
<!--
.table1 {
font-size: 12px;
color: #999999;
text-decoration: none;
border-bottom-width: 1px;
border-bottom-style: dotted;
border-bottom-color: #CCCCCC;
}
.table2 {
font-size: 12px;
color: #333333;
text-decoration: none;
background-color: #F6F6F6;
border: 1px solid #CCCCCC;
height: 20px;
width: 70px;
clear: both;
padding: 3px;
text-align: center;
vertical-align: middle;
}
-->
</style>
<style type="text/css">
<!--
.table3 {
font-size: 12px;
color: #000000;
text-decoration: none;
border: medium solid #E8E8E8;
}
table {
font-size: 12px;
color: #000000;
text-decoration: none;
}
.table4 {
font-size: 12px;
color: #000000;
text-decoration: none;
border: medium solid #E6F2F2;
}
.table5 {
font-size: 12px;
color: #000000;
text-decoration: none;
border: medium solid #DAD7C9;
}
.table6 {
font-size: 12px;
color: #000000;
text-decoration: none;
border: medium solid #E6EDD6;
}
a:link {
font-size: 12px;
color: #007EA8;
text-decoration: none;
border-top: none;
border-right: none;
border-bottom: none;
border-left: none;
}
a:visited {
font-size: 12px;
color: #007EA8;
text-decoration: none;
}
a:hover {
font-size: 12px;
color: #000000;
text-decoration: none;
}
a:active {
font-size: 12px;
color: #007EA8;
text-decoration: none;
}
-->
</style>
</head>
<body leftmargin="0" topmargin="0">
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="200" height="52"><img src="img/logo.gif" width="200" height="75"></td>
<td width="560" bgcolor="#EFEFE0"> </td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor=#ffffff>
<form name="form1" method="post" action="search.asp">
<tr>
<td align=center bgcolor=#E6F2F2><a href=index.html target=_blank>首页</a></td>
<%
Set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * From class where classid='0'"
Rs.open Sql,Conn,1,1
Do While not Rs.Eof
%>
<td bgcolor=#E6F2F2 height=25 align=center> <a href=class/<%=rs("id")%>_1.htm target=_blank><%=rs("name")%></a></td>
<%
Rs.Movenext
Loop
Rs.Close
Set Rs=nothing
%>
</tr>
</form>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="table3">
<tr>
<td width="212" rowspan="3" valign="top">
<div align="center"></div>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="144">
<div align="center"><br>
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0" class="table5">
<tr>
<td height="30" bgcolor="#DAD7C9">
<div align="center">网站公告、动态</div></td>
</tr>
<tr>
<td height="100"> </td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td><br><div align="center">
<img src="img/zll.jpg" width="200" height="200">
</div><br></td>
</tr>
</table>
</td>
<td width="273" rowspan="3"><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="23" class="table1"><div align="center"><font color="#0066CC">最新添加FLASH作品</font></div></td>
</tr>
<%
i=0
Set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * From flash order by id asc"
Rs.open Sql,Conn,1,1
Do While not Rs.Eof
i=i+1
%>
<tr>
<td height="23" class="table1"> [<a href="class/<%=rs("classid")%>_1.htm" target=_blank><%=rs("classname")%></a>] <a href="flash/<%=rs("id")%>.htm" target=_blank><%=left(rs("flashname"),14)%></a></td>
</tr>
<%
if i>=14 then exit do
Rs.Movenext
Loop
Rs.Close
Set Rs=nothing
%>
<tr>
<td height="23" class="table1"><div align="right">更多...</div></td>
</tr>
</table></td>
<td height="34" colspan="2"> <div align="center">
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="28" bgcolor="#F6F6F6"> <div align="center">上榜推荐</div></td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td width="134" height="140" valign="middle"> <div align="center">
<%
i=0
Set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * From flash where classid='25' order by hits desc"
Rs.open Sql,Conn,1,1
Do While not Rs.Eof
i=i+1
%>
<table width="125" border="0" align="center" cellpadding="0" cellspacing="0" class="table3">
<tr>
<td height="149" valign="middle"> <div align="center"><br>
<a href="flash/<%=rs("id")%>.htm" target=_blank><img border=0 src="<%=rs("pic")%>" width="85" height="85"></a> <br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="119" height="27"> <div align="center"><a href="flash/<%=rs("id")%>.htm" target=_blank><%=left(rs("flashname"),8)%></a></div></td>
</tr>
<tr>
<td height="26"> <div align="center"><%=rs("zz")%></div></td>
</tr>
</table>
</div></td>
</tr>
</table>
<%
if i>=1 then exit do
Rs.Movenext
Loop
Rs.Close
Set Rs=nothing
%>
</div></td>
<td width="133"> <div align="center">
<%
i=0
Set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * From flash where classid='23' order by hits desc"
Rs.open Sql,Conn,1,1
Do While not Rs.Eof
i=i+1
%>
<table width="125" border="0" align="center" cellpadding="0" cellspacing="0" class="table3">
<tr>
<td height="149" valign="middle"> <div align="center"><br>
<a href="flash/<%=rs("id")%>.htm" target=_blank><img border=0 src="<%=rs("pic")%>" width="85" height="85"></a> <br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="119" height="27"> <div align="center"><a href="flash/<%=rs("id")%>.htm" target=_blank><%=left(rs("flashname"),8)%></a></div></td>
</tr>
<tr>
<td height="26"> <div align="center"><%=rs("zz")%></div></td>
</tr>
</table>
</div></td>
</tr>
</table>
<%
if i>=1 then exit do
Rs.Movenext
Loop
Rs.Close
Set Rs=nothing
%>
</div></td>
</tr>
<tr>
<td height="160" valign="middle">
<%
i=0
Set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * From flash where classid='20' order by hits desc"
Rs.open Sql,Conn,1,1
Do While not Rs.Eof
i=i+1
%>
<table width="125" border="0" align="center" cellpadding="0" cellspacing="0" class="table3">
<tr>
<td height="149" valign="middle"> <div align="center"><br>
<a href="flash/<%=rs("id")%>.htm" target=_blank><img border=0 src="<%=rs("pic")%>" width="85" height="85"></a> <br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="119" height="27"> <div align="center"><a href="flash/<%=rs("id")%>.htm" target=_blank><%=left(rs("flashname"),8)%></a></div></td>
</tr>
<tr>
<td height="26"> <div align="center"><%=rs("zz")%></div></td>
</tr>
</table>
</div></td>
</tr>
</table>
<%
if i>=1 then exit do
Rs.Movenext
Loop
Rs.Close
Set Rs=nothing
%>
</td>
<td width="133"> <%
i=0
Set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * From flash where classid='21' order by hits desc"
Rs.open Sql,Conn,1,1
Do While not Rs.Eof
i=i+1
%>
<table width="125" border="0" align="center" cellpadding="0" cellspacing="0" class="table3">
<tr>
<td height="149" valign="middle"> <div align="center"><br>
<a href="flash/<%=rs("id")%>.htm" target=_blank><img border=0 src="<%=rs("pic")%>" width="85" height="85"></a> <br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="119" height="27"> <div align="center"><a href="flash/<%=rs("id")%>.htm" target=_blank><%=left(rs("flashname"),8)%></a></div></td>
</tr>
<tr>
<td height="26"> <div align="center"><%=rs("zz")%></div></td>
</tr>
</table>
</div></td>
</tr>
</table>
<%
if i>=1 then exit do
Rs.Movenext
Loop
Rs.Close
Set Rs=nothing
%> </td>
</tr>
</table>
<table height=2 width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height=4></td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="table5">
<tr>
<%
i=0
Set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * From flash order by id asc"
Rs.open Sql,Conn,1,1
Do While not Rs.Eof
i=i+1
%>
<td width="147" height="175">
<table width="130" border="0" align="center" cellpadding="0" cellspacing="0" class="table3">
<tr>
<td height="149" valign="middle"> <div align="center"><br>
<a href="flash/<%=rs("id")%>.htm" target=_blank><img border=0 src="<%=rs("pic")%>" width="85" height="85"></a> <br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="119" height="27"> <div align="center"><a href="flash/<%=rs("id")%>.htm" target=_blank><%=left(rs("flashname"),8)%></a></div></td>
</tr>
<tr>
<td height="26"> <div align="center"><%=rs("zz")%></div></td>
</tr>
</table>
</div></td>
</tr>
</table></td>
<%
if i>=5 then exit do
Rs.Movenext
Loop
Rs.Close
Set Rs=nothing
%>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="4" cellspacing="0">
<tr>
<td><img src="img/year760-80.gif" width="760" height="80"></td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="489" height="41" valign="top"> <table width="99%" height="76" border="0" align="left" cellpadding="4" cellspacing="0" class="table6">
<tr>
<td height="68"> <div align="center"><img src="img/water468x60.gif" width="468" height="60"></div></td>
</tr>
</table></td>
<td width="271" rowspan="2"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="table4">
<tr>
<td height="28" bgcolor="#E6F2F2"><div align="center">酷客FLASH排行榜</div></td>
</tr>
<tr>
<td height="80"> <table width="100%" border="0" cellspacing="0" cellpadding="3">
<%
Set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * From flash order by hits desc"
Rs.open Sql,Conn,1,1
%>
<%
For i=1 To 28
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>
</table></td>
</tr>
<tr>
<td valign="middle"> <div align="center"></div>
<table cellSpacing="1" cellPadding="5" width="99%" align="left" bgColor="#FFFFFF" border="0">
<tr>
<td bgcolor="#DAF5FE" width="17%" align="center" colspan="2">本站FLASH分类导航</td>
</tr>
<%
set rs=server.CreateObject("ADODB.RecordSet")
set rs_list=server.CreateObject("ADODB.RecordSet")
rs.open "select * from class where classid='0'",conn,1,1
if NOT rs.EOF then
do while NOT rs.EOF
jjj=0
c=c+1
if c=2 then
cc="#ffffff"
c=0
else
cc="#ffffff"
end if
%>
<tr>
<td width="17%" bgcolor="#DAF5FE" align="center"><a href="class/<%=rs("id")%>_1.htm"><%=rs("name")%></a></td>
<td width="85%" bgcolor="#DAF5FE"> <table border="0" cellpadding="2" cellspacing="1" style="border-collapse: collapse" width="100%" class="p1">
<%
rs_list.open "select * from class where classid ='"&rs("id")&"' order by id asc",conn,1,1
if NOT rs_list.EOF then
%>
<tr>
<%
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
conn.close
set conn=nothing%>
</table></td>
</tr>
</table>
<!--#include File="end.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -