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

📄 function.asp

📁 有关遗传算法的例子
💻 ASP
字号:
🔍 
<link rel="stylesheet" href="images/css.css" type="text/css">
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" bgcolor="#FFFFFF">
      
<DIV id=layerleft
style="Z-INDEX: 1; RIGHT: 12px; VISIBILITY: visible; POSITION: absolute; width: 26px; height: 21px; top: 150px; left: 17px"> 
  <script src="../banner.asp?id=<%=ayang_left_ban%>"></script>
</DIV>
      
<DIV id=layerright 
style="Z-INDEX: 1; RIGHT: 12px; VISIBILITY: visible; POSITION: absolute; width: 21px; height: 21px; top: 150px; left: 886px"> 
  <script src="../banner.asp?id=<%=ayang_right_ban%>"></script>
</DIV>
<SCRIPT lanuage="javascript">
function layermove(){ 
//大于800的分辩率才显示对联广告
if (screen.width>900){
 layerleft.style.top=document.body.scrollTop+150;
 layerright.style.top=document.body.scrollTop+150;
 setTimeout("layermove();",50)
 }else
 {
 layerleft.style.display='none';
 layerright.style.display='none';
 }
}
layermove();
</SCRIPT>
<%function top()%>
<%if site_runpem="是" then%>
<table width="749" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#eeece0" height="30">
  <tr> 
    <td><iframe border=0 name=banner src="login.asp" frameborder=0 width="100%" scrolling=no height="100%"></iframe></td>
  </tr>
  <tr>
    <td background="images/line1.gif" height="1"></td>
  </tr>
</table>
<%end if%>
<table cellspacing=0 cellpadding=0 width=750 align=center border=0>
  <tbody> 
  <tr> 
    <td width=150 rowspan=2><img height=61 
      src="<%=site_logo%>" width=150 border=0></td>
    <td width=600 background=images/bu_2.jpg height=33> 
      <table cellspacing=0 cellpadding=0 width=590 align=center border=0>
        <tbody> 
        <tr> 
          <td> 
            <table cellspacing=0 cellpadding=0 width=590 align=center 
              border=0>
              <tbody> 
              <tr align=middle> 
                <td>
                  <table cellspacing=0 cellpadding=0 width="100%" border=0>
                    <tbody> 
                    <tr> 
                      <td width=10>&nbsp;</td>
                      <td style="COLOR: #ffffff">&nbsp; 
<a href='../'><font color='#CC0000'>首页</font></a>

<%'==============================读出分类=================////////////////////////
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
if site_runscript="asp" then
Rw "| <a href=film_sort.asp?id="&rs("id")&"><font color='#CC0000'>"&rs("分类名")&"</font></a> "
else
Rw "| <a href=film_sort_"&md5(rs("id"),32)&"_1.html><font color='#CC0000'>"&rs("分类名")&"</font></a> "
end if
rs.movenext
loop
else
response.write "暂无分类"
end if
rs.close
%>
                      </td>
                    </tr>
                    </tbody> 
                  </table>
                </td>
              </tr>
              </tbody> 
            </table>
          </td>
        </tr>
        </tbody> 
      </table>
    </td>
  </tr>
  <tr> 
    <td width=600 background=images/bu_3.gif height=28> 
      <table cellspacing=0 cellpadding=0 width="100%" align=center border=0>
        <tbody> 
        <tr> 
          <td width=10>&nbsp;</td>
          <td width=590> 
            <%'////读取产地
site_film_cd=split(site_film_cd,"|")
for i=0 to ubound(site_film_cd)
Rw "&nbsp;<font color=white>&#8226;</font> <a href=film_sort.asp?serachfs=出产地&keyword="&site_film_cd(i)&"><font color='#FFFFFF'>"&site_film_cd(i)&"</font></a> "
next
if site_runscript="asp" then
Rw "&nbsp;<font color='#ffffff'>&#8226; <a href=film_sort.asp><font color='#ffffff'>全部影片</font></a> "
else
Rw "&nbsp;<font color='#ffffff'>&#8226; <a href=film_sort_"&md5("0",32)&"_1.html><font color='#ffffff'>全部影片</font></a> "
end if%>
          </td>
        </tr>
        </tbody> 
      </table>
    </td>
  </tr>
  </tbody> 
</table>
<table cellspacing=0 cellpadding=0 width=750 align=center border=0>
  <tbody> 
  <tr> 
    <td height=16> 
      <div align="center"> 
        <script src="../banner.asp?id=<%=ayang_ban_top%>"></script>
      </div>
    </td>
  </tr>
  </tbody> 
</table>
<table width="750" border="0" cellspacing="0" cellpadding="0" height="27" align="center" bgcolor="#DDDDDD">
  <tr>
    <td>
      <table cellspacing=0 cellpadding=0 width="100%" border=0>
        <tbody> 
        <tr> 
          <td width=10>&nbsp;</td>
          <td width="1012">
            <script language="Javascript" src="../write_js.asp?action=site_top"></script>
          </td>
        </tr>
        </tbody> 
      </table>
    </td>
  </tr>
</table>
<%end function%>
<%function copyright()%>
<table cellspacing=0 cellpadding=0 width=750 align=center border=0>
  <tbody> 
  <tr> 
    <td height=6></td>
  </tr>
  <tr> 
    <td bgcolor=#afafaf height=1></td>
  </tr>
  <tr> 
    <td align=middle height=12> 
      <div align="left"></div>
    </td>
  </tr>
  <tr> 
    <td align=middle height=9> 
      <div align="left">&nbsp;版权声明：本站所有资源均由网上收集而来，版权归原影音公司所有，如果侵犯了你的权益，请通知我们更正 
      </div>
    </td>
  </tr>
  <tr> 
    <td align=middle height=5> 
      <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>
  </tr>
  <tr> 
    <td height=12></td>
  </tr>
  </tbody> 
</table>
<%ConnClose
end function%>

⌨️ 快捷键说明

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