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

📄 function.asp

📁 有关遗传算法的例子
💻 ASP
字号:
<link rel="stylesheet" href="images/css.css" type="text/css">
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" bgcolor="#eeece0">
<%function top()%>
<table cellspacing=0 cellpadding=0 width="100%" border=0>
  <tbody> 
  <tr> 
    <td width=22 height=85> 
      <table cellspacing=0 cellpadding=0 width="100%" border=0>
        <tbody> 
        <tr> 
          <td width=22><img height=1 width=22></td>
          <td width=218> 
            <div style="WIDTH: 218px"><img src="<%=site_logo%>"></div>
          </td>
          <td> 
            <table cellspacing=0 cellpadding=0 border=0>
              <tbody> 
              <tr> 
                <td height=52>
                  <table cellspacing=0 cellpadding=0 width="100%" border=0>
                      <tr> 
                        
                      <td width=75 height=20><img height=13 
                        src="images/my.gif" width=57></td>
                        
                      <td height="50" width="574">
					  <%if site_runpem="是" then%>
					  <IFRAME border=0 name=banner src="login.asp" frameBorder=0 width="100%" scrolling=no height="100%"></IFRAME>
					  <%end if%>
					  </td>
                    </tr>
                  </table>
                </td>
              </tr>
              <tr> 
                <td> 
                  <table cellspacing=0 cellpadding=0 border=0>
                    <tbody> 
                    <tr> 
                      <td><img height=33 
                        src="images/class_home.gif" width=82 
                      border=0></td>
                      <td><img 
                        height=33 src="images/class_ent.gif" width=67 
                        border=0></td>
                      <td><img height=33 
                        src="images/class_olvod.gif" width=96 
                      border=0></td>
                      <td><img 
                        height=33 src="images/class_b2b.gif" width=67 
                        border=0></td>
                      <td><img height=33 src="images/class_house.gif" 
                        width=67></td>
                      <td><img 
                        height=33 src="images/class_job.gif" width=67 
                        border=0></td>
                      <td><img height=33 src="images/class_school.gif" 
                        width=67></td>
                      <td><img height=33 src="images/class_flash.gif" 
                        width=67></td>
                      <td><img 
                        height=33 src="images/class_bbs.gif" width=69 
                        border=0></td>
                    </tr>
                    </tbody> 
                  </table>
                </td>
              </tr>
              </tbody> 
            </table>
          </td>
        </tr>
        </tbody>
      </table>
    </td>
  </tr>
  <tr> 
    <td background=images/class_bg.gif height=30> 
      <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='#FFFFFF'>首页</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='#FFFFFF'>"&rs("分类名")&"</font></a> "
else
Rw "| <a href=film_sort_"&md5(rs("id"),32)&"_1.html><font color='#FFFFFF'>"&rs("分类名")&"</font></a> "
end if
rs.movenext
loop
else
response.write "暂无分类"
end if
rs.close
'////读取产地
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='#FFFFFF'>"&site_film_cd(i)&"</font></a> "
next
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
%>
        </td>
        </tr>
        </tbody>
      </table>
    </td>
  </tr>
  <tr> 
    <td bgcolor=#e4dbcc height=26> 
      <table cellspacing=0 cellpadding=0 width="100%" border=0>
        <tbody> 
        <tr> 
          <td width=10>&nbsp;</td>
          <td width="1012">&nbsp;
            <script language="Javascript" src="../write_js.asp?action=site_top"></script>
          </td>
        </tr>
        </tbody>
      </table>
    </td>
  </tr>
  <tr height=1> 
    <td bgcolor=#9b9b9b height=1></td>
  </tr>
  </tbody>
</table>
<%end function%>


<%function copyright()%>
<table cellspacing=0 cellpadding=0 align=center border=0>
        <tbody> 
        <tr> 
          <td height=6><img height=6 src="images/boot_t.gif" 
                  width=821></td>
        </tr>
        <tr> 
          <td background=images/boot_bg.gif height=100> 
            <table cellspacing=0 cellpadding=0 width="100%" border=0>
              <tbody> 
              <tr> 
                
          <td align=middle width=120><img 
                        height=84 src="<%=site_logo_s%>" width=87 
                        border=0></td>
                <td width=1 bgcolor=#999999><img width=1></td>
                <td width=30>&nbsp;</td>
                
          <td> 
            <table cellspacing=0 cellpadding=0 width=644 align=left border=0>
              <tbody> 
              <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="在线联系"></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>
              </tbody> 
            </table>
          </td>
              </tr>
              </tbody>
            </table>
          </td>
        </tr>
        <tr> 
          <td height=6><img height=6 src="images/boot_b.gif" 
                  width=821></td>
        </tr>
        <tr> 
          <td height=6>&nbsp;</td>
        </tr>
        </tbody>
      </table>
<%ConnClose
end function%>

⌨️ 快捷键说明

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