index.asp

有关遗传算法的例子

                <td width=1 bgcolor=#f5f5f5 height="111"><img height=104 
            src="images/line33.gif" width=1></td>
<%
rs.movenext
if i mod 3 = 0 then Rw "</tr><tr>"
next
else
%>
              <tr> 
                <td> 
                  <div align="center">暂无</div>
                </td>
                <%end if
rs.close%>
              </tr>
              </tbody> 
            </table>
          </td>
        </tr>
        </tbody> 
      </table>
      <table cellspacing=0 cellpadding=0 width=750 align=center border=0>
        <tbody> 
        <tr> 
          <td height=13><img height=13 src="images/line27.gif" 
  width=750></td>
        </tr>
        </tbody> 
      </table>
      <table style="BORDER-RIGHT: #e6e6e6 5px solid; BORDER-LEFT: #e6e6e6 5px solid" 
cellspacing=0 cellpadding=0 width=750 align=center border=0>
        <tbody> 
        <tr> 
          <td> 
            <table cellspacing=0 cellpadding=0 width=50% align=center border=0>
              <tbody> 
              <tr> 
                <td height=4></td>
              </tr>
              </tbody> 
            </table>
            <table cellspacing=0 cellpadding=0 width=733 align=center 
      background=images/photo.gif border=0>
              <tbody> 
              <tr> 
                <td valign=top width=145 height=31> 
                  <table cellspacing=0 cellpadding=0 width=145 border=0>
                    <tbody> 
                    <tr> 
                      <td class=red2 align=middle>影片推荐</td>
                    </tr>
                    </tbody> 
                  </table>
                </td>
                <td width=588> 
                  <table cellspacing=0 cellpadding=0 border=0 align="center" width=96%>
                    <tbody> 
                    <tr> 
                      <form name="form1" method="post" action="film_sort.asp">
                        <td> 
                          <div align="right">影片搜索: 
                            <input type="text" name="keyword" size="10">
                            <select name="serachfs">
                              <option selected value="影片名">影片名</option>
                              <option value="主演">主演</option>
                              <option value="详细介绍">介绍</option>
                            </select>
                            <input type="image" border="0" name="imageField" src="images/ser.gif" align="absmiddle">
                          </div>
                        </td>
                      </form>
                    </tr>
                    </tbody> 
                  </table>
                </td>
              </tr>
              </tbody> 
            </table>
            <table cellspacing=0 cellpadding=0 width=733 align=center border=0>
              <tbody> 
              <tr> 
                <td height=10></td>
              </tr>
              </tbody> 
            </table>
            <table cellspacing=0 cellpadding=0 width=733 align=center border=0>
              <tbody> 
              <tr> 
<%
show=0
forci=0
show=ayang_indexshowtj
set rs=server.createobject("adodb.recordset")
sql="SELECT top "&show&" ID,小图,分类,影片名,主演,显示 FROM 影片 where 显示='是' and 推荐='是' order by 推荐时间 desc"
rs.Open sql,conn,1,1
if not rs.eof then
if rs.recordcount>show then
forci=show
else
forci=rs.recordcount
end if
count_b=0
for i2=1 to forci
%>
                <td width=369> 
                  <div align="center"><table cellspacing=0 cellpadding=0 width=50% align=center 
              border=0>
                                <tbody> 
                                <tr> 
                                  <td height=6></td>
                                </tr>
                                </tbody> 
                              </table>
                              <table height=130 cellspacing=0 cellpadding=0 width=118 
                        align=center border=0 background="images/pic_bg2.gif">
                                <tbody> 
                                <tr> 
                                  <td valign=top>
                                    <div align="right">
                                      <%if site_runscript="asp" then
Rw "<a href=film_view.asp?id="&rs("id")&"><img src='../"&film_pic&"/"&rs("小图")&"' width=110 height=121 border=0 title="&rs("影片名")&"></a>"
else
Rw "<a href=film_view_"&md5(rs("id"),32)&".html><img src='../"&film_pic&"/"&rs("小图")&"' width=120 height=120 border=0 title="&rs("影片名")&"></a>"
end if%>
                                    </div>
                                  </td>
                                </tr>
                                </tbody> 
                              </table>
                              <table cellspacing=0 cellpadding=0 width=120 
                        align=center border=0>
                                <tbody> 
                                <tr> 
                                  <td align=middle> 
                                    <div align="center"> 
                                      <%if site_runscript="asp" then
Rw "<a href=film_view.asp?id="&rs("id")&" title="&rs("影片名")&">"&rs("影片名")&"</a>"
else
Rw "<a href=film_view_"&md5(rs("id"),32)&".html title="&rs("影片名")&">"&rs("影片名")&"</a>"
end if%>
                                    </div>
                                  </td>
                                </tr>
                                </tbody> 
                              </table>
                              <%
							  count_b=count_b+1
							  'Rw count_b&"|"&forci&"<br>"
							  if count_b<forci then rs.movenext
							  %>
</div>
                </td>
                <%
							if i2 mod 5 = 0 then Rw "</tr><tr>"
							next
							else
				%>
              <tr> 
                <td> 
                  <div align="center">暂无</div>
                </td>
                <%end if
				rs.close%>
              </tr>
              </tbody> 
            </table>
            <table cellspacing=0 cellpadding=0 width=50% align=center border=0 height="8">
              <tbody> 
              <tr> 
                <td height=4></td>
              </tr>
              </tbody> 
            </table>
          </td>
        </tr>
        </tbody> 
      </table>
      <table cellspacing=0 cellpadding=0 width=750 align=center border=0>
        <tbody> 
        <tr> 
          <td height=13><img height=13 src="images/line27.gif" 
  width=750></td>
        </tr>
        </tbody> 
      </table>
      <div align="center"></div>
      <table cellspacing=0 cellpadding=0 width=750 align=center border=0>
        <tbody> 
        <tr> 
          <td background=images/die.gif height=26> 
            <table cellspacing=0 cellpadding=0 width=750 border=0>
              <tbody> 
              <tr> 
                <td width=50></td>
                <td class=ti-14 width=700>排行版</td>
              </tr>
              </tbody> 
            </table>
          </td>
        </tr>
        </tbody> 
      </table>
      <table style="BORDER-RIGHT: #e6e6e6 5px solid; BORDER-LEFT: #e6e6e6 5px solid" 
cellspacing=0 cellpadding=0 width=750 align=center border=0>
        <tbody> 
        <tr> 
          <td> 
            <table cellspacing=0 cellpadding=0 width=739 border=0>
              <tbody> 
              <tr> 
                <td height=6></td>
              </tr>
              </tbody> 
            </table>
            <table cellspacing=0 cellpadding=0 width=739 border=0>
              <tbody> 
              <tr> 
                <td> 
                  <table cellspacing=0 cellpadding=0 width="98%" align=center 
            border=0 valign="top">
                    <tbody> 
                    <tr> 
                      <%
show=0
forci=0
show=5
set rs=server.createobject("adodb.recordset")
sql="SELECT top "&show&" ID,小图,分类,影片名,主演,显示,人气 FROM 影片 where 显示='是' order by 人气 desc"
rs.Open sql,conn,1,1
if not rs.eof then
if rs.recordcount>show then
forci=show
else
forci=rs.recordcount
end if
for i=1 to forci
%>
                      <td> 
                        <table cellspacing=0 cellpadding=3 
                  align=center border=0 bgcolor="#CCCCCC">
                          <tbody> 
                          <tr> 
                            <td bgcolor="#FFFFFF"> 
                              <table width="119" border="0" cellspacing="0" cellpadding="0" align="center" height="129">
                                <tr> 
                                  <td bgcolor="#CCCCCC" valign="top"> 
                                    <table cellspacing=1 cellpadding=2 width=110 
                        align=left bgcolor=#b3b2b7 border=0 height="120">
                                      <tbody> 
                                      <tr> 
                                        <td bgcolor=#ffffff>
                                          <%if site_runscript="asp" then
Rw "<a href=film_view.asp?id="&rs("id")&"><img src='../"&film_pic&"/"&rs("小图")&"' width=110 height=120 border=0 title="&rs("影片名")&"></a>"
else
Rw "<a href=film_view_"&md5(rs("id"),32)&".html><img src='../"&film_pic&"/"&rs("小图")&"' width=110 height=120 border=0 title="&rs("影片名")&"></a>"
end if%></td>
                                      </tr>
                                      </tbody> 
                                    </table>
                                  </td>
                                </tr>
                              </table>
                              <table cellspacing=0 cellpadding=0 width="100%" 
                              align=center border=0>
                                <tbody> 
                                <tr> 
                                  <td align=middle> 
                                    <div align="center"> 
                                      <%if site_runscript="asp" then
Rw "<a href=film_view.asp?id="&rs("id")&" title="&rs("影片名")&">"&rs("影片名")&"</a>"
else
Rw "<a href=film_view_"&md5(rs("id"),32)&".html title="&rs("影片名")&">"&rs("影片名")&"</a>"
end if%>
                                    </div>
                                  </td>
                                </tr>
                                </tbody> 
                              </table>
                            </td>
                          </tr>