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

📄 function.asp

📁 有关遗传算法的例子
💻 ASP
字号:
<!--#include file="conn.asp" -->
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2900.2722" name=GENERATOR></HEAD>
<LINK href="images/v3_mytv365.css" type=text/css rel=stylesheet>
<BODY text=#999999 vLink=#0099ff aLink=#0099ff link=#0099ff bgColor=#eeeeee leftMargin=0 topMargin=0">
<script language=javascript src="../images/js.js"></script>
<%
function top()
%>
<table width=1003 border=0 cellpadding=0 cellspacing=0>
  <tr> 
    <td colspan=12> <img src="images/index_1.gif" width=1003 height=7 alt=""></td>
  </tr>
  <tr> 
    <td colspan=2 rowspan=2> <img src="images/index_2.gif" width=19 height=80 alt=""></td>
    <td colspan=3 rowspan=2> <a href="<%=site%>"><img src="<%=site_logo%>" width=283 height=80 alt="" border="0"></a></td>
    <td rowspan=2> <img src="images/index_4.gif" width=19 height=80 alt=""></td>
    <td> <img src="images/index_5.gif" width=11 height=32 alt=""></td>
    <td> <img src="images/index_6.gif" width=3 height=32 alt=""></td>
    <td height="32" background="images/index_6.gif"> <marquee scrollamount=2 scrolldelay=5 direction=left onmouseover='this.stop()' onmouseout='this.start()'><font color="#FF6600"><b><%=site_top_mess%></b></font></marquee></td>
    <td> <img src="images/index_8.gif" width=14 height=32 alt=""></td>
    <td colspan=2 rowspan=2> <img src="images/index_9.gif" width=20 height=80 alt=""></td>
  </tr>
  <tr> 
    <td colspan=4 height="48" bgcolor="#FFFFFF"> 
      <table width="100%" border="0">
        <tr>
          <td bgcolor="#F5F5F5"> 
            <table border="0" height="27" cellspacing="0" cellpadding="0" width="650">
              <tr> 
                <td bgcolor="#F5F5F5" height="32"><img src="images/search_t.gif" width="90" height="30"></td>
                <form name="form1" method="post" action="film_sort.asp">
                  <td bgcolor="#F5F5F5" height="32"> 
                    <input type=radio CHECKED value="影片名 "
                  name=serachfs>
                    影片名 
                    <input type=radio value="主演 "
                  name=serachfs>
                    演员 
                    <input type=radio value="详细介绍"
                  name=serachfs>
                    详细介绍&nbsp;&nbsp; 
                    <input id=Keyword 
                  style="WIDTH: 170px" value=<%if Rq("keyword")<>"" then Rw Rq("keyword") else rw serach_word end if%> name=keyword class="form">
                    &nbsp;
                    <input type="image" border="0" name="imageField" src="images/search_button_go.gif" align="absmiddle" width="25" height="25">
                    搜索 </td>
                  <td bgcolor="#F5F5F5" height="32"><a href="<%=site%>"><img src="images/menu_top_new_01.gif" width="76" height="26" align="absmiddle" border="0"></a></td>
                </form>
              </tr>
            </table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td colspan=12> <img src="images/index_11.gif" width=1003 height=6 alt=""></td>
  </tr>
  <tr> 
    <td rowspan=3> <img src="images/index_12.gif" width=18 height=73 alt=""></td>
    <td colspan=10> <img src="images/index_13.gif" width=969 height=5 alt=""></td>
    <td rowspan=3> <img src="images/index_14.gif" width=16 height=73 alt=""></td>
  </tr>
  <tr> 
    <td colspan=2 rowspan=2> <img src="images/index_15.gif" width=276 height=68 alt=""></td>
    <td> <img src="images/index_16.gif" width=5 height=36 alt=""></td>
    <td colspan=7 background="images/index_16.gif">
<table width="98%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><%if site_runpem="是" then%><iframe border=0 name=banner src="login.asp" frameborder=0 width="100%" scrolling=no height="30"></iframe><%end if%></td>
  </tr>
</table>
    </td>
  </tr>
  <tr> 
    <td> <img src="images/index_18.gif" width=5 height=32 alt=""></td>
    <td colspan=7 background="images/index_18.gif" valign="bottom"> 
      <table width="98%" border="0" align="center" cellspacing="0" cellpadding="0" height="24">
        <tr>
          <td>
            <div align="right"><%site_film_cd=split(site_film_cd,"|")
for i=0 to ubound(site_film_cd)
Rw "<img src='images/icon_pc.gif' align='absmiddle'> <a href=film_sort.asp?serachfs=出产地&keyword="&site_film_cd(i)&"><font color='#000000'><b>"&site_film_cd(i)&"</b></font></a>&nbsp;&nbsp;"
next%></div>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td> <img src="images/spacer.gif" width=18 height=1 alt=""></td>
    <td> <img src="images/spacer.gif" width=1 height=1 alt=""></td>
    <td> <img src="images/spacer.gif" width=275 height=1 alt=""></td>
    <td> <img src="images/spacer.gif" width=5 height=1 alt=""></td>
    <td> <img src="images/spacer.gif" width=3 height=1 alt=""></td>
    <td> <img src="images/spacer.gif" width=19 height=1 alt=""></td>
    <td> <img src="images/spacer.gif" width=11 height=1 alt=""></td>
    <td> <img src="images/spacer.gif" width=3 height=1 alt=""></td>
    <td> <img src="images/spacer.gif" width=634 height=1 alt=""></td>
    <td> <img src="images/spacer.gif" width=14 height=1 alt=""></td>
    <td> <img src="images/spacer.gif" width=4 height=1 alt=""></td>
    <td> <img src="images/spacer.gif" width=16 height=1 alt=""></td>
  </tr>
</table>
<table cellspacing=0 cellpadding=0 width=970 align=center border=0>
  <tbody> 
  <tr> 
    <td width=110 background=images/sort_bg.gif height=30><img height=32 
      src="images/sort_movie_01.gif" width=110 border=0></td>
    <td width=844 background=images/sort_bg_02.gif height=30> 
      <table width="98%" border="0" align="center">
        <tr>
          <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
if site_runscript="asp" then
Rw "<img src='images/bul_05.gif'> <a href=film_sort.asp?id="&rs("id")&"><font color='#666666'>"&rs("分类名")&"</a>&nbsp;&nbsp;"
else
Rw "<img src='images/bul_05.gif' align='absmiddle'> <a href=film_sort_"&md5(rs("id"),32)&"_1.html><font color='#666666'>"&rs("分类名")&"</a>&nbsp;&nbsp;"
end if
rs.movenext
loop
else
response.write "暂无分类"
end if
rs.close
if site_runscript="asp" then
Rw "<img src='images/bul_05.gif'> <a href=film_sort.asp><font color='#666666'>全部影片</font></a> "
else
Rw "<img src='images/bul_05.gif'> <a href=film_sort_"&md5("0",32)&"_1.html><font color='#666666'>全部影片</font></a> "
end if
%>
          </td>
        </tr>
      </table>
    
    <td valign=top width=16><img height=32 src="images/sort_movie_02.gif" 
      width=16></td>
  </tr>
  </tbody> 
</table>
<%End Function
function copyright()
%>
<table width=970 border=0 cellpadding=0 cellspacing=0 align="center">
  <tr> 
    <td colspan=3> <img src="images/copyright_1.gif" width=970 height=10 alt=""></td>
    <td> <img src="images/spacer.gif" width=1 height=10 alt=""></td>
  </tr>
  <tr> 
    <td rowspan=2> <img src="images/copyright_2.gif" width=177 height=72 alt=""></td>
    <td rowspan=2> <img src="images/copyright_3.gif" width=749 height=72 alt=""></td>
    <td> <a href="#"><img src="images/copyright_4.gif" width=44 height=42 alt="" border="0"></a></td>
    <td> <img src="images/spacer.gif" width=1 height=42 alt=""></td>
  </tr>
  <tr> 
    <td rowspan=2 bgcolor="#FFFFFF">&nbsp; </td>
    <td> <img src="images/spacer.gif" width=1 height=30 alt=""></td>
  </tr>
  <tr> 
    <td background="images/copyright_6.gif"> 
      <table width="61%" border="0" cellspacing="0" cellpadding="0" align="right" height="31">
        <tr> 
          <td valign="top" height="20"> 
            <div align="center"><font color="#FF3300"><b><%=name_3721%></b></font></div>
          </td>
        </tr>
      </table>
    </td>
    <td bgcolor="#FFFFFF" valign="middle"> 
      <table width="97%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td><font color="#666666">电话:<%=site_servertel%> 传真:<%=site_serverfax%> 
            &nbsp;&nbsp; OICQ在线服务:</font> 
            <%
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%>
          </td>
        </tr>
        <tr> 
          <td height="26"><font color="#666666">Copyright &copy; 2005 - 2008 <a href="<%=site%>"><%=webname%></a>. 
            All Rights Reserved </font></td>
        </tr>
      </table>
      
    </td>
    <td> <img src="images/spacer.gif" width=1 height=48 alt=""></td>
  </tr>
</table>
<%connclose
end function%>

⌨️ 快捷键说明

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