index.asp

有关遗传算法的例子

<!--#include file="conn.asp" --> 
<!--#include file="function.asp" --> 
<%
showtitle
top
%>
<table cellspacing=0 cellpadding=0 width="100%" border=0>
  <tbody> 
  <tr> 
    <td width=780 valign="top" bgcolor="#FFFFFF"> 
      <div align="center"> 
        <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 align=center border=0>
                <tbody> 
                <tr> 
                  <td height=16> 
                    <div align="center">
                      <script src="../banner.asp?id=<%=ayang_ban_index1%>"></script>
                    </div>
                  </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>
      <div align="center"> </div>
      <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 width=216 valign="middle"> 
            <div align="center"> 
              <table cellspacing=0 cellpadding=0 width=206 align=center border=0>
                <tbody> 
                <tr> 
                  <td valign=top background=images/artist.gif height=36> 
                    <table cellspacing=0 cellpadding=0 width=206 border=0>
                      <tbody> 
                      <tr> 
                        <td colspan=2></td>
                      </tr>
                      <tr> 
                        <td width=78 height="32"></td>
                        <td class=ti-14 
        width=128 height="32">网站公告栏</td>
                      </tr>
                      </tbody> 
                    </table>
                  </td>
                </tr>
                </tbody> 
              </table>
              <table cellspacing=0 cellpadding=0 width=206 align=center border=0>
                <tbody> 
                <tr> 
                  <td height=4><img height=4 src="images/line30.gif" 
        width=206></td>
                </tr>
                </tbody> 
              </table>
              <table cellspacing=0 cellpadding=0 width=206 align=center border=0>
                <tbody> 
                <tr> 
                  <td width=5><img height=226 src="images/art_1.gif" width=5></td>
                  <td valign="top" height="147">
                    <table width="194" border="0" cellspacing="0" cellpadding="0" height="220" align="center">
                      <tr>
                        <td valign="top"><iframe frameborder=0 height="100%" 
                        id=news marginheight=0 marginwidth=0 
                        scrolling=no src="../news.asp" 
                    width="100%"></iframe></td>
                      </tr>
                    </table>
                  </td>
                  <td width=5><img height=226 src="images/art_2.gif" 
        width=5></td>
                </tr>
                </tbody> 
              </table>
              <table cellspacing=0 cellpadding=0 width=206 align=center border=0>
                <tbody> 
                <tr> 
                  <td height=8><img height=8 src="images/art_3.gif" 
        width=206></td>
                </tr>
                </tbody> 
              </table>
            </div>
          </td>
          <td width=15 background=images/dot16.gif></td>
          <td valign=top width=511> 
            <table cellspacing=0 cellpadding=0 width=504 align=center border=0>
              <tbody> 
              <tr> 
                <td height=2></td>
              </tr>
              </tbody> 
            </table>
            <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=504 align=center border=0>
              <tbody> 
              <tr> 
                <td valign=top background=images/gen.gif height=34> 
                  <table cellspacing=0 cellpadding=0 width=504 border=0>
                    <tbody> 
                    <tr> 
                      <td colspan=3 height=2></td>
                    </tr>
                    <tr> 
                      <td width=30></td>
                      <td class=white width=新增影片397>最新加入</td>
                      <td valign=bottom width=77><img 
                  height=16 src="images/more.gif" width=51 
              border=0></td>
                    </tr>
                    </tbody> 
                  </table>
                </td>
              </tr>
              </tbody> 
            </table>
            <table cellspacing=0 cellpadding=0 width=504 align=center border=0>
              <tbody> 
              <tr> 
                <td height=6></td>
              </tr>
              </tbody> 
            </table>
			
            <table cellspacing=0 cellpadding=0 width=504 align=center border=0>
              <tbody> 
              <tr> 
<%
show=0
forci=0
show=ayang_newfilm
set rs=server.createobject("adodb.recordset")
sql="SELECT top "&show&" ID,小图,分类,影片名,主演,显示 FROM 影片 where 显示='是' order by id 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 bgcolor=#f5f5f5> 
                  <table cellspacing=0 cellpadding=0 width=155 align=center 
              border=0>
                    <tbody> 
                    <tr> 
                      <td> 
                        <table height=78 cellspacing=1 cellpadding=0 width=78 
                  align=center bgcolor=#c5c5c5 border=0>
                          <tbody> 
                          <tr> 
                            <td align=middle bgcolor=#ffffff><%if site_runscript="asp" then
Rw "<a href=film_view.asp?id="&rs("id")&"><img height=74 src='../"&film_pic&"/"&rs("小图")&"' width=74 border=0 title="&rs("影片名")&"></a>"
else
Rw "<a href=film_view_"&md5(rs("id"),32)&".html><img height=74 src='../"&film_pic&"/"&rs("小图")&"' width=74 border=0 title="&rs("影片名")&"></a>"
end if%></td>
                          </tr>
                          </tbody> 
                        </table>
                      </td>
                      <td> 
                        <table cellspacing=0 cellpadding=0 width=60 align=center 
                  border=0>
                          <tbody> 
                          <tr> 
                            <td class=red5>主演</td>
                          </tr>
                          <tr> 
                            <td class=gree1><%=left(rs("主演"),3)%></td>
                          </tr>
                          <tr> 
                            <td class=red5>类型</td>
                          </tr>
                          <tr> 
                            <td>
							
<%
call readtype(rs("分类"))
%>
							
</td>
                          </tr>
                          </tbody> 
                        </table>
                      </td>
                    </tr>
                    </tbody> 
                  </table>
                  <table cellspacing=0 cellpadding=0 width=155 align=center 
              border=0>
                    <tbody> 
                    <tr> 
                      <td align=middle width=20><img src="images/tv.gif" align="absmiddle"></td>
                      <td width=125> 
                        <%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%>
                      </td>
                    </tr>
                    </tbody> 
                  </table>
                </td>
                <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>