function.asp

有关遗传算法的例子

<!--#include file="conn.asp" -->
<script language=javascript src="js.js"></script>
<script language=javascript src="../images/js.js"></script>
<link rel="stylesheet" href="images/DefaultSkin.css" type="text/css">
<%function top()%>
<table cellspacing=0 cellpadding=0 width=980 bgcolor=#ffffff border=0 align="center">
  <tbody> 
  <tr> 
    <td width=232 height="82"> 
      <div align="right"><a href="../"><img src="<%=site_logo%>" border="0"></a></div>
    </td>
    <td align=middle width=620 height="82"> 
      <div align="center"><img src="<%=ayang_alltop%>" width="458" height="60"></div>
    </td>
    <td align=middle width=128 height="82"> 
      <div align="center"></div>
    </td>
  </tr>
  </tbody> 
</table>
<table cellspacing=0 cellpadding=0 width=980 align=center border=0>
  <tbody> 
  <tr> 
    <td valign=center align=left width=705 background=images/menu_bg.gif 
    height=36> 
      <table cellspacing=0 cellpadding=0 border=0>
        <tbody> 
        <tr> 
          <td align=left width=15><img src="images/menu_bg5.gif"></td>
          <%'==============================读出分类=================////////////////////////
set rs=server.createobject("adodb.recordset")
sql="SELECT * FROM 影片分类 order by 排序"
rs.Open sql,conn,1,1
if not rs.eof then
do while not rs.eof%>
          <td align=middle width=59> 
            <%if site_runscript="asp" then
Rw "<a href=film_sort.asp?id="&rs("id")&"><font color='#ffffff'>"&rs("分类名")&"</font></a> "
else
Rw "<a href=film_sort_"&md5(rs("id"),32)&"_1.html><font color='#ffffff'>"&rs("分类名")&"</font></a> "
end if%>
          </td>
          <td width=2><img height=36 src="images/menu_bg3.gif" 
width=2></td>
          <%
rs.movenext
loop
else
response.write "暂无分类"
end if
rs.close
%>
          <td width=70> 
<div align="center">
<%if site_runscript="asp" then
Rw "<a href=film_sort.asp><font color='#ffffff'>全部影片</font></a> "
else
Rw "<a href=film_sort_"&md5("0",32)&"_1.html><font color='#ffffff'>全部影片</font></a> "
end if%>
</div>
          </td>
        </tr>
        </tbody> 
      </table>
    </td>
    <td align=right width=270 background=images/menu_bg2.gif> 
      <div align="center">
        <%site_film_cd=split(site_film_cd,"|")
for i=0 to ubound(site_film_cd)
Rw "<a href=film_sort.asp?serachfs=出产地&keyword="&site_film_cd(i)&"><font color='#0033CC'>"&site_film_cd(i)&"</font></a>&nbsp;<font color='#0033CC'>|</font>&nbsp;"
next%>
      </div>
    </td>
    <td align=right width=5 background=images/menu_bg2.gif> 
      <div align="right"><img height=36 
            src="images/menu_bg6.gif" 
  width=4></div>
    </td>
  </tr>
  </tbody> 
</table>
<%end function%>
<%function copyright()%>
<TABLE cellSpacing=0 cellPadding=0 width=980 border=0 align="center">
  <TBODY> 
  <TR>
    <TD bgColor=#c3c3c3 colSpan=3></TD>
  </TR>
  <TR>
    <TD width=1 bgColor=#c3c3c3></TD>
    <TD align=middle width=943>
      <table cellspacing=0 cellpadding=0 width="99%" border=0 align="center">
        <tbody> 
        <tr> 
          <td colspan=2 height=10><img height=1 src="images/none.gif" 
            width=1></td>
        </tr>
        <tr> 
          <td align=middle width=10></td>
          <td align=middle width=184> 
            <div align="center"><img 
                        height=84 src="<%=site_logo_s%>" width=87 
                        border=0> </div>
          </td>
          <td width=1 bgcolor=#c3c3c3><img 
            src="index.files%5Cspacer_1.gif" width="1" height="1"></td>
          <td align=middle width=750> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td width="2%">&nbsp; </td>
                <td width="98%"> 
                  <table cellspacing=0 cellpadding=0 width=100% align=left border=0>
                    <tbody> 
                    <tr> 
                      <td align=middle height=25 colspan="2"> 
                        <div align="left">&nbsp;版权声明：本站所有资源均由网上收集而来，版权归原影音公司所有，如果侵犯了你的权益，请通知我们更正 
                        </div>
                      </td>
                    </tr>
                    <tr> 
                      <td align=middle height=5 colspan="2"> 
                        <div align="left">&nbsp;电话：<%=site_servertel%>　传真：<%=site_serverfax%> 
                          &nbsp;&nbsp; OICQ在线服务： 
                          <%
site_serverqq=split(site_serverqq,"|")
site_serverqqname=split(site_serverqqname,"|")
for i=0 to ubound(site_serverqq)%>
                          <a target=blank href=http://wpa.qq.com/msgrd?V=1&Uin=<%=site_serverqq(i)%>&Site=<%=site%>&Menu=yes><img border="0" src=http://wpa.qq.com/pa?p=1:<%=site_serverqq(i)%>:5 alt="在线联系" align="absmiddle"></a> 
                          <%next%>
                        </div>
                      </td>
                    </tr>
                    <tr> 
                      <td align=middle height="31"> 
                        <div align="left">&nbsp;Copyright &copy; 2005 - 2008 <a href="<%=site%>"><%=webname%></a>. 
                          All Rights Reserved</div>
                      </td>
                      <form name="form1" method="post" action="">
                        <td align=middle height="31"> 
                          <div align="right">
                            <select name="select" class="INPUT" onChange="MM_jumpMenu('parent',this,0)">
							<option selected>：：：友情链接：：：</option>
<%
	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
%>					  
							  <option value="<%=rs("网址")%>"><%=rs("网站名")%></option>
<%
rs.movenext
loop
end if
%>
                            </select>
                          </div>
                        </td></form>
                    </tr>
                    </tbody> 
                  </table>
                </td>
              </tr>
            </table>
          </td>
        </tr>
        <tr> 
          <td colspan=2 height=10><img height=1 src="images/none.gif" 
            width=1></td>
        </tr>
        </tbody> 
      </table>
    </TD>
    <TD width=1 bgColor=#c3c3c3></TD></TR>
  <TR>
    <TD bgColor=#c3c3c3 colSpan=3></TD>
  </TR></TBODY></TABLE>
<%end function%>