⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 film_sort.asp

📁 有关遗传算法的例子
💻 ASP
📖 第 1 页 / 共 3 页
字号:
<!--#include file="function.asp" -->
<%
showtitle
top
id=Rq("id")
urlstr="&id="&id&"&keyword="&Rq("keyword")&"&serachfs="&Rq("serachfs")&"&order="&Rq("order")&"&gra="&Rq("gra")&""
if id="" then id=0
lx=readtype(id)
randomize
Main_bg=int(rnd()*6)+1
%>
<script language=javascript src="../images/js.js"></script>
<TABLE cellSpacing=0 cellPadding=0 width=970 align=center border=0>
  <TBODY>
  <TR>
    <TD width=970 bgColor=#ffffff colSpan=2>
      <TABLE cellSpacing=0 cellPadding=0 width=960 align=center border=0>
        <TBODY>
        <TR>
          <TD width=243 bgColor=#ffffff valign="top"> 
            <TABLE cellSpacing=0 cellPadding=0 width=267 border=0>
              <TBODY>
              <TR> 
                <TD colSpan=3 height="53" background="images/<%=Main_bg%>/ayangsort_r1_c1.gif"> 
                  <table width="85%" border="0" cellspacing="0" cellpadding="0" align="center" height="18">
                    <tr>
                      <td valign="top"><img src="images/home.gif" align="absmiddle"><font color="#000000"> 
                        当前位置:<a href="index.asp"><b>首页</b></a> &gt;&gt; <%=lx%></font></td>
                    </tr>
                  </table>
                </TD>
              </TR>
              <TR valign="top"> 
                <TD colSpan=3><IMG 
                  src="images/<%=Main_bg%>/ayangsort_r2_c1.gif"></TD>
              </TR>
              <TR>
                <TD width=9><IMG 
                  src="images/<%=Main_bg%>/ayangsort_r3_c1.gif"></TD>
                <TD bgcolor="#000000"> 
                  <%if ayang_newfilm<>"" then%>
                  <div align="center"><OBJECT id=ayangplayer height="180" width="245" classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA VIEWASTEXT>
                      <PARAM NAME="AUTOSTART" VALUE="1">
                      <PARAM NAME="src" VALUE="<%=ayang_newfilm%>">
                      <PARAM NAME="CONTROLS" VALUE="ImageWindow">
                      <PARAM NAME="PREFETCH" VALUE="0">
                      <PARAM NAME="LOOP" VALUE="0">
                      <param name="CONSOLE" value="one">
                    </OBJECT> 
                    <%else%><IMG src="images/<%=Main_bg%>/ayangsort_r3_c2.gif"></div><%end if%></TD>
                <TD width=7><IMG 
                  src="images/<%=Main_bg%>/ayangsort_r3_c3.gif"></TD>
              </TR>
              <TR valign="top"> 
                <TD colSpan=3><IMG 
                  src="images/<%=Main_bg%>/ayangsort_r4_c1.gif"></TD>
              </TR></TBODY></TABLE>
          </TD>
          <TD vAlign=top width=727 bgColor=#ffffff> 
            <TABLE cellSpacing=0 cellPadding=0 width=680 align=center 
              border=0>
              <TBODY> 
              <TR> 
                <TD colSpan=3><IMG 
                  src="images/<%=Main_bg%>/ayangsort_r1_c4.gif"></TD>
              </TR>
              <TR> 
                <TD width=6><IMG 
                  src="images/<%=Main_bg%>/ayangsort_r2_c4.gif"></TD>
                <TD> 
                  <%
on error resume next
set rs=server.createobject("adodb.recordset")
if id<>0 then
sql="SELECT top 10 ID,大图,小图,分类,人气,出产地,影片名,主演,显示,加入时间,详细介绍 FROM 影片 where 显示='是' and 分类='"&id&"' order by 人气 desc"
else
sql="SELECT top 10 ID,大图,小图,分类,人气,出产地,影片名,主演,显示,加入时间,详细介绍 FROM 影片 where 显示='是' order by 人气 desc"
end if
rs.Open sql,conn,1,1
if not rs.eof then
%><table width="660" border="0" cellspacing="0" cellpadding="0" align="center">
                    <tr> 
                      <td> 
                        <table cellspacing=0 cellpadding=0 width=203 align=center 
                  border=0>
                          <tbody> 
                          <tr> 
                            <td><img height=5 src="images/bg_top01_r1_c1.gif" 
                        width=203></td>
                          </tr>
                          <tr> 
                            <td background=images/bg_top01_r2_c1.gif 
                        height=242> 
                              <table cellspacing=0 cellpadding=2 
                        width="100%" border=0>
                                <tbody> 
                                <tr> 
                                  <td width="3%">&nbsp;</td>
                                  <td width="88%">
								  <%if site_runscript="asp" then
Rw "<a title='影片名:"&rs("影片名")&"&#13;&#10;所属类:"&readtype(rs("分类"))&"&#13;&#10;出产地:"&rs("出产地")&"&#13;&#10;日 期:"&datevalue(rs("加入时间"))&"&#13;&#10;人 气:"&rs("人气")&"' href=film_view.asp?id="&rs("id")&" target='_top'><img src='../"&film_pic&"/"&rs("大图")&"' width=173 height=230 border=0></a>"
else
Rw "<a title='影片名:"&rs("影片名")&"&#13;&#10;所属类:"&readtype(rs("分类"))&"&#13;&#10;出产地:"&rs("出产地")&"&#13;&#10;日 期:"&datevalue(rs("加入时间"))&"&#13;&#10;人 气:"&rs("人气")&"' href=film_view_"&md5(rs("id"),32)&".html target='_top'><img src='../"&film_pic&"/"&rs("大图")&"' width=173 height=230 border=0></a>"
end if%></td><td width="9%">&nbsp;</td>
                                </tr>
                                </tbody> 
                              </table>
                            </td>
                          </tr>
                          <tr> 
                            <td background=images/bg_top01_r4_c1.gif> 
                              <div class=menu align=center><strong><font color=#666666><strong> 
                                <%if site_runscript="asp" then
Rw "<a href=film_view.asp?id="&rs("id")&" title="&rs("影片名")&">"&left(rs("影片名"),8)&"</a>"
else
Rw "<a href=film_view_"&md5(rs("id"),32)&".html title="&rs("影片名")&">"&left(rs("影片名"),8)&"</a>"
end if%>
                                </strong></font></strong></div>
                            </td>
                          </tr>
                          <tr> 
                            <td><img height=7 src="images/bg_top01_r5_c1.gif" 
                        width=203></td>
                          </tr>
                          </tbody> 
                        </table>
                      </td>
                      <td> 
<%if not rs.eof then rs.movenext
for i=1 to 3
if not rs.eof then rs.movenext
%>
                        <table cellspacing=0 cellpadding=3 width="99%" align=center 
border=0>
                          <tbody> 
                          <tr> 
                            <td width="11%"><img height=72 src="images/no_0<%=i+1%>.gif" 
                  width=31></td>
                            <td width="89%"> 
                              <table cellspacing=0 cellpadding=2 width="100%" border=0>
                                <tbody> 
                                <tr> 
                                  <td width="27%" bgcolor=#ffffff rowspan=2> 
                                    <table cellspacing=0 cellpadding=0 align=center 
border=0>
                                      <tbody> 
                                      <tr> 
                                        <td bgcolor=#cccccc> 
                                          <table cellspacing=1 cellpadding=3 border=0>
                                            <tbody> 
                                            <tr> 
                                              <td valign=top bgcolor=#ffffff> 
                                                <%
if site_runscript="asp" then
Rw "<a title='影片名:"&rs("影片名")&"&#13;&#10;所属类:"&readtype(rs("分类"))&"&#13;&#10;出产地:"&rs("出产地")&"&#13;&#10;日 期:"&datevalue(rs("加入时间"))&"&#13;&#10;人 气:"&rs("人气")&"' href=film_view.asp?id="&rs("id")&" target='_top'><img src='../"&film_pic&"/"&rs("小图")&"' width=60 height=60 border=0></a>"
else
Rw "<a title='影片名:"&rs("影片名")&"&#13;&#10;所属类:"&readtype(rs("分类"))&"&#13;&#10;出产地:"&rs("出产地")&"&#13;&#10;日 期:"&datevalue(rs("加入时间"))&"&#13;&#10;人 气:"&rs("人气")&"' href=film_view_"&md5(rs("id"),32)&".html target='_top'><img src='../"&film_pic&"/"&rs("小图")&"' width=60 height=60 border=0></a>"
end if
%></td>
                                            </tr>
                                            </tbody> 
                                          </table>
                                        </td>
                                      </tr>
                                      </tbody> 
                                    </table>
                                  </td>
                                  <td width="73%" bgcolor=#ffffff><font color=#666666><strong>
                                    <%if site_runscript="asp" then
Rw "<a href=film_view.asp?id="&rs("id")&" title="&rs("影片名")&">"&left(rs("影片名"),8)&"</a>"
else
Rw "<a href=film_view_"&md5(rs("id"),32)&".html title="&rs("影片名")&">"&left(rs("影片名"),8)&"</a>"
end if%>
                                    </strong></font></td>
                                </tr>
                                <tr> 
                                  <td bgcolor=#ffffff valign="top">主演:<%=left(rs("主演"),50)%></td>
                                </tr>
                                </tbody> 
                              </table>
                              <img height=8 
                  src="images/010203_line.gif" width=195></td>
                          </tr>
                          <tr valign="top"> 
                            <td colspan=2> 
                              <div align="right"></div>
                            </td>
                          </tr>
                          </tbody> 
                        </table>
<%
next
%>
                      </td>
                      <td> 
<%
for i=5	to 10
if not rs.eof then rs.movenext
%>
<table cellspacing=0 cellpadding=1 width="100%">
                          <tbody> 
                          <tr> 
                            <td class=b8 valign=top width="16%"> 
                              <div align=center><img height=13 
                        src="images/top_no_0<%=i%>.gif" width=17></div>
                            </td>
                            <td width="84%"> 
                              <div align=justify> 
                                <table cellspacing=0 cellpadding=0 width="100%" 
border=0>
                                  <tbody> 
                                  <tr> 
                                    <td><font color=#666666><strong>
                                      <%if site_runscript="asp" then
Rw "<a href=film_view.asp?id="&rs("id")&" title="&rs("影片名")&">"&left(rs("影片名"),8)&"</a>"
else
Rw "<a href=film_view_"&md5(rs("id"),32)&".html title="&rs("影片名")&">"&left(rs("影片名"),8)&"</a>"
end if%>
                                      </strong></font></td>
                                  </tr>
                                  <tr> 
                                    <td>主演:<%=left(rs("主演"),25)%></td>
                                  </tr>
                                  </tbody> 
                                </table>
                              </div>
                            </td>
                          </tr>
                          <tr> 
                            <td class=b8 valign=top colspan=2 height=5><img height=1 
                        src="images/line_02.gif" 
                  width=169></td>
                          </tr>
                          </tbody> 
                        </table>
<%next
rs.close%>

</td>
                    </tr>
                  </table><%else
				  Rw "<div align=center>暂无</div>"
				  end if
				  rs.close
				  %><img src="images/spacer.gif" width="660" height="1"></TD>
                <TD width=12> 
                  <DIV align=right><IMG 
                  src="images/<%=Main_bg%>/ayangsort_r2_c6.gif"></DIV>
                </TD>
              </TR>
              <TR> 
                <TD colSpan=3><IMG 
                  src="images/<%=Main_bg%>/ayangsort_r5_c4.gif"></TD>
              </TR>
              </TBODY> 
            </TABLE>
          </TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=2 width=970 align=center border=0>
  <TBODY>
  <TR bgColor=#ffffff>
    <TD vAlign=top width=204>
      <DIV align=center> 
        <table cellspacing=0 cellpadding=0 width=200 align=center border=0>
          <tbody> 
          <tr> 
            <td><img height=52 
            src="images/playtop10.gif" width=200 border=0></td>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -