index.asp

有关遗传算法的例子

            <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>
                          </tbody> 
                        </table>
                      </td>
<%rs.movenext
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=739 align=center border=0>
              <tbody> 
              <tr> 
                <td height=12></td>
              </tr>
              </tbody> 
            </table>
            <table cellspacing=0 cellpadding=0 width=739 align=center border=0>
              <tbody> 
              <tr> 
			  <%
set rs=server.createobject("adodb.recordset")
sql="SELECT * FROM 影片分类 order by 排序"
rs.Open sql,conn,1,1
if not rs.eof then
count=0
do while not rs.eof
%>   
                <td width=192 valign="top"> 
                  <table cellspacing=0 cellpadding=0 width=170 align=center border=0>
                    <tbody> 
                    <tr>                
					  <td background=images/chinese.gif height=27> 
                        <table cellspacing=0 cellpadding=0 width=170 border=0>
                          <tbody> 
                          <tr> 
                            <td width=41></td>
                            <td class=ff style="PADDING-TOP: 2px" 
                    width=129><%=rs("分类名")%></td>
                          </tr>
                          </tbody> 
                        </table>
                      </td>
                    </tr>
                    </tbody> 
                  </table>
                  <table cellspacing=0 cellpadding=0 width=170 align=center 
              border=0>
                    <tbody> 
                    <tr> 
                      <td height=4></td>
                    </tr>
                    </tbody> 
                  </table>
                  <table cellspacing=0 cellpadding=0 width=170 align=center 
              border=0>
                    <tbody> 
                    <tr> 
                      <td><img height=6 src="images/chinese_1.gif" 
              width=172></td>
                    </tr>
                    </tbody> 
                  </table>
                  <table cellspacing=0 cellpadding=0 width=172 align=center 
            background=images/chin_bg.gif border=0>
                    <tbody> 
                    <tr> 
                      <td> 
                        <table cellspacing=0 cellpadding=0 width=154 align=center 
                  border=0 height="28">
                          <tbody> 
                          
<%
show=0
show=5
set rs2=server.createobject("adodb.recordset")
sql2="select top 5 ID,小图,分类,影片名,主演,显示,人气 FROM 影片 where 显示='是' and 分类='"&rs("id")&"' order by 人气 desc"
rs2.Open sql2,conn,1,1
if not rs2.eof then
list_top=1
do while not rs2.eof%>
						  <tr> 
                            <td width=20><img height=14 src="images/dot15.gif" 
                        width=14></td>
                            <td width=104 height="25">
                              <%if site_runscript="asp" then
Rw "<a href=film_view.asp?id="&rs2("id")&" title="&rs2("影片名")&">"&left(rs2("影片名"),7)&"</a>"
else
Rw "<a href=film_view_"&md5(rs2("id"),32)&".html title="&rs2("影片名")&">"&rs2("影片名")&"</a>"
end if%>
                            </td>
                            <td width=50> 
                              <div align="right"><%=rs2("人气")%></div>
                            </td>
                          </tr>
                          <tr> 
                            <td colspan=3><img height=1 src="images/line29.gif" 
                        width=154></td>
                          </tr>
<%
if list_top>=5 then exit do
list_top=list_top+1
rs2.movenext
loop
else
%>
<tr><td colspan=3>
                              <div align="center">暂无</div>
                            </td></tr>
<%end if
rs2.close%>
						  
						  </tbody> 
                        </table>
						</td>
                    </tr>
                    </tbody> 
                  </table>
                  <table cellspacing=0 cellpadding=0 width=172 align=center 
              border=0>
                    <tbody> 
                    <tr> 
                      <td height=5><img height=5 src="images/chinese_2.gif" 
                  width=172></td>
</tr>
                    </tbody> 
                  </table>  

                </td>
<%count=count+1
if count mod 4 = 0 then Rw "</tr><tr><td height=8></td></tr><tr>"
rs.movenext
loop
else
response.write "暂无分类"
end if
rs.close
%>
              </tr>
              <tr> 
                <td height=4></td>
              </tr>
              </tbody> 
            </table>
            <table cellspacing=0 cellpadding=0 width=50% align=center border=0>
              <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=6><img src="images/end.gif" width="750" height="13"></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=50% align=center border=0>
        <tbody> 
        <tr> 
          <td height=4></td>
        </tr>
        </tbody> 
      </table>
      <table cellspacing=0 cellpadding=0 width=750 align=center border=0>
        <tbody> 
        <tr> 
          <td height=4></td>
        </tr>
        </tbody> 
      </table>
      <table cellspacing=1 cellpadding=0 width=750 align=center bgcolor=#e5e5e5 
border=0>
        <tbody> 
        <tr> 
          <td bgcolor=#ffffff> 
            <table cellspacing=0 cellpadding=0 width=750 border=0>
              <tbody> 
              <tr> 
                <td width=10><img height=59 src="images/di_1.gif" width=10></td>
                <td width=70 background=images/di_3.gif><img height=24 
            src="images/weekly.gif" width=76></td>
                <td width=10 background=images/di_3.gif><img height=44 
            src="images/di_4.gif" width=7></td>
                <td width=646 background=images/di_3.gif valign="middle"> 
                  <table cellspacing=0 cellpadding=0 width=50% align=center border=0>
                    <tbody> 
                    <tr> 
                      <td height=4></td>
                    </tr>
                    </tbody> 
                  </table>
                  <table border="0" align="left" cellpadding="3" cellspacing="0">
                    <tr align="center"> 
<%
	set rs=server.createobject("adodb.recordset")
    sql="select top 7 * from 友情链接 order by id desc"
	rs.open sql,conn,1,1
    if not rs.eof then
    do While not rs.EOF
%>
<td> 
                        <div align="left"> 
                          <%if rs("格式")="图片" then%>
                          <a href="<%=rs("网址")%>" target="_blank"><img src="../<%=film_pic%>/<%=rs("图标")%>" alt="<%=rs("网站名")%>-<%=rs("简介")%>" border="0"></a> 
                          <%else%>
                          <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000">
                            <param name="movie" value="../<%=film_pic%>/<%=rs("图标")%>">
                          </object> 
                          <%end if%>
                        </div>
                      </td>
<%
rs.movenext
loop
else
%>                    
<tr><td>
                        <div align="center">暂无</div>
                      </td></tr>
<%end if
rs.close%>
                  </table>				
				
				
				
				</td>
                <td width=12><img height=59 src="images/di_2.gif" 
        width=12></td>
              </tr>
              </tbody> 
            </table>
          </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=50% align=center border=0>
        <tbody> 
        <tr> 
          <td height=4></td>
        </tr>
        </tbody> 
      </table>
    </td>
    <td valign=top width="244" bgcolor="#FFFFFF">
      <DIV id=layerleft 
      style="Z-INDEX: 1; RIGHT: 12px; VISIBILITY: visible; POSITION: absolute; width: 214px; height: 21px; top: 173px; left: 782px"> 
        <script src="../banner.asp?id=<%=ayang_right_ban%>"></script>
      </DIV>      <SCRIPT lanuage="javascript">
function layermove(){ 
if (screen.width>800){
 layerleft.style.top=document.body.scrollTop+150;
 setTimeout("layermove();",50)
 }
}
layermove();
</SCRIPT>
      </td>
  </tr>
  <tr bgcolor="#eeece0"> 
    <td colspan="2" valign="top"> <br>
      <%copyright%></td>
  </tr>
  </tbody> 
</table>