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

📄 index.asp

📁 有关遗传算法的例子
💻 ASP
📖 第 1 页 / 共 5 页
字号:
                      </td>
                      <td width="25%" height=20> 
                        <div align="right"><%=rs("人气")%></div>
                      </td>
                    </tr>
<%
next
end if
rs.close
%>
                    </tbody> 
                  </table>
                </td>
              </tr>
              </tbody>
            </table>
          </td>
        </tr>
        <tr> 
          <td><img height=16 src="images/left_03_ry_r4_c1.gif" 
          width=200></td>
        </tr>
        </tbody>
      </table>
      <table cellspacing=0 cellpadding=0 width=200 align=center border=0>
        <tbody> 
        <tr> 
          <td><img height=52 
            src="images/viewhistory.gif" width=200 border=0></td>
        </tr>
        <tr> 
          <td background=images/left_02_002.gif> 
            <table cellspacing=0 cellpadding=2 width="90%" align=center 
border=0>
              <tbody> 
              <tr> 
                <td>
                  <IFRAME id=main src="view_history.asp" 
            frameBorder=0 width=100% scrolling=no height="365"></IFRAME>
				  </td>
              </tr>
              </tbody>
            </table>
          </td>
        </tr>
        <tr> 
          <td><img height=17 src="images/left_02_003.gif" 
        width=200></td>
        </tr>
        </tbody>
      </table>
      <table cellspacing=0 cellpadding=0 width=200 align=center border=0>
        <tbody> 
        <tr> 
          <td><img 
            height=52 src="images/yiren.gif" width=200 border=0></td>
        </tr>
        <tr> 
          <td background=images/tv_02.gif> <br>
            <table border="0" align="center" cellpadding="3">
              <%mx=split(site_mx,"|")
  		mxword=split(site_mxword,"|")
		for i=0 to ubound(mx)%>
              <tr> 
                <td><a href="film_sort.asp?serachfs=<%=site_mxserfs%>&keyword=<%=mxword(i)%>"><img src="../<%=film_pic%>/<%=mx(i)%>" border="0" class=form></a></td>
        </tr>
<%next
%>
      </table>
    
            <br>
          </td>
        </tr>
        <tr> 
          <td><img height=15 src="images/tv_04.gif" 
        width=200></td>
        </tr>
        </tbody>
      </table>
      <table cellspacing=0 cellpadding=0 width=200 align=center border=0>
        <tbody> 
        <tr> 
          <td><img height=52 src="images/yqlj.gif" 
          width=200></td>
        </tr>
        <tr> 
          <td align=middle 
            background=images/left_04_b_r2_c1.gif>
			<table border="0" align="center" cellpadding="3" cellspacing="0">
                      <%
	set rs=server.createobject("adodb.recordset")
    sql="select * from 友情链接 order by id desc"
	rs.open sql,conn,1,1
    if not rs.eof then
    do While not rs.EOF
%><tr align="center"> 
<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>
                      
                    <tr><%
rs.movenext
loop
else
%>
                      <td> 
                        <div align="center">暂无</div>
                      </td>
                    </tr>
                    <%end if
rs.close%>
                  </table>
                </td>
        </tr>
        <tr> 
          <td><img height=16 src="images/left_04_b_r4_c1.gif" 
            width=200></td>
        </tr>
        </tbody> 
      </table>
      <table cellspacing=0 cellpadding=0 width=200 align=center border=0>
        <tbody> 
        <tr> 
          <td><a href="http://www.mytv365.com/download/" target=_blank><img 
            height=52 src="images/softwaredown.gif" width=200 
          border=0></a></td>
        </tr>
        <tr> 
          <td valign=top background=images/affiche_r3_c1.gif> 
            <div align=center><a href="http://www.mytv365.com/download/" 
            target=_blank><img height=150 src="images/soft_down.jpg" 
            width=174 border=0></a> </div>
          </td>
        </tr>
        <tr> 
          <td><img height=16 src="images/affiche_r5_c1.gif" 
        width=200></td>
        </tr>
        </tbody>
      </table>
    </TD>
    <TD vAlign=top width=762>
      <TABLE cellSpacing=0 cellPadding=0 width=762 align=center border=0>
        <TBODY>
        <TR>
          <TD bgColor=#acec00 height=5>
            <DIV align=center></DIV></TD></TR>
        <TR>
          <TD><IMG height=45 src="images/00_newmovie_02.gif" 
        width=762></TD></TR>
        <TR>
          <TD vAlign=top width=762 
            background=images/00_newmovie_02_bg.gif>
			
<%
set rs=server.createobject("adodb.recordset")
sql="SELECT top 6 ID,大图,小图,分类,人气,出产地,影片名,主演,显示,加入时间,详细介绍 FROM 影片 where 显示='是' order by id desc"
rs.Open sql,conn,1,1
%><TABLE cellSpacing=0 
            cellPadding=2 width=760 border=0>
              <TBODY> 
              <TR> 
                <TD vAlign=middle width="36%" rowSpan=2> 
                  <TABLE cellSpacing=0 cellPadding=0 align=center border=0>
                    <TBODY> 
                    <TR> 
                      <TD bgColor=#cccccc> 
                        <TABLE cellSpacing=1 cellPadding=3 width="100%" 
border=0>
                          <TBODY> 
                          <TR> 
                            <TD vAlign=top bgColor=#ffffff><%
if site_runscript="asp" then
Rw "<a title='影片名:"&rs("影片名")&"&#13;&#10;所属类:"&readtype(rs("分类"))&"&#13;&#10;出产地:"&rs("出产地")&"&#13;&#10;日 期:"&datevalue(rs("加入时间"))&"&#13;&#10;人 气:"&rs("人气")&"' href=film_view.asp?id="&rs("id")&" target='_top'><img src='../"&film_pic&"/"&rs("大图")&"' width=250 height=340 border=0></a>"
else
Rw "<a title='影片名:"&rs("影片名")&"&#13;&#10;所属类:"&readtype(rs("分类"))&"&#13;&#10;出产地:"&rs("出产地")&"&#13;&#10;日 期:"&datevalue(rs("加入时间"))&"&#13;&#10;人 气:"&rs("人气")&"' href=film_view_"&md5(rs("id"),32)&".html target='_top'><img src='../"&film_pic&"/"&rs("大图")&"' width=250 height=320 border=0></a>"
end if%><br>
                              <DIV class=menu align=center><font color=#666666><strong> 
                                <%if site_runscript="asp" then
Rw "<a href=film_view.asp?id="&rs("id")&" title="&rs("影片名")&">"&left(rs("影片名"),15)&"</a>"
else
Rw "<a href=film_view_"&md5(rs("id"),32)&".html title="&rs("影片名")&">"&left(rs("影片名"),15)&"</a>"
end if
%></strong></font></DIV></TD></TR>
                          </TBODY> 
                        </TABLE>
                      </TD>
                    </TR>
                    </TBODY> 
                  </TABLE>
                </TD>
                <TD vAlign=top width="64%"> 
                  <TABLE align=center 
                  border=0 cellSpacing=5>
                    <TBODY> 
                    <TR> 
                      <%
					  for i=1 to 3
					  if not rs.eof then rs.movenext
					  %>
                      <TD vAlign=top> 
                        <TABLE cellSpacing=0 cellPadding=0 width=122 
                        align=left border=0>
                          <TBODY> 
                          <TR> 
                            <TD width=118 bgColor=#cccccc> 
                              <TABLE cellSpacing=1 cellPadding=3 width="100%" 
                              border=0>
                                <TBODY> 
                                <TR> 
                                  <TD vAlign=top bgColor=#ffffff> 
                                    <TABLE cellSpacing=0 cellPadding=0 width=10 
                                border=0>
                                      <TBODY> 
                                      <TR> 
                                        <TD><%
if site_runscript="asp" then
Rw "<a title='影片名:"&rs("影片名")&"&#13;&#10;所属类:"&readtype(rs("分类"))&"&#13;&#10;出产地:"&rs("出产地")&"&#13;&#10;日 期:"&datevalue(rs("加入时间"))&"&#13;&#10;人 气:"&rs("人气")&"' href=film_view.asp?id="&rs("id")&" target='_top'><img src='../"&film_pic&"/"&rs("小图")&"' width=138 height=194 border=0></a>"
else
Rw "<a title='影片名:"&rs("影片名")&"&#13;&#10;所属类:"&readtype(rs("分类"))&"&#13;&#10;出产地:"&rs("出产地")&"&#13;&#10;日 期:"&datevalue(rs("加入时间"))&"&#13;&#10;人 气:"&rs("人气")&"' href=film_view_"&md5(rs("id"),32)&".html target='_top'><img src='../"&film_pic&"/"&rs("小图")&"' width=138 height=194 border=0></a>"
end if
%></TD></TR>
                                      <TR> 
                                        <TD> 
                                          <DIV align=center><IMG height=9 
                                src="images/line_03.gif" 
                                width=138></DIV>
                                        </TD>
                                      </TR>
                                      </TBODY> 
                                    </TABLE>
                                    <DIV align=center><%if site_runscript="asp" then
Rw "<a href=film_view.asp?id="&rs("id")&" title="&rs("影片名")&">"&left(rs("影片名"),8)&"</a>"
else
Rw "<a href=film_view_"&md5(rs("id"),32)&".html title="&rs("影片名")&">"&left(rs("影片名"),8)&"</a>"
end if%></DIV>
                                  </TD>
                                </TR>
                                </TBODY> 
                              </TABLE>
                            </TD>
                          </TR>
                          </TBODY> 
                        </TABLE>
                      </TD>
                      <%next%>
                    </TR>
                    </TBODY> 
                  </TABLE>
                  <DIV align=center><IMG height=11 src="images/line.gif" 
                  width=481></DIV>
                </TD>
              </TR>
              <TR> 


                <TD vAlign=top align=middle>
                  <table border="0" cellspacing="5" align="center">
                    <tr>
<%
for i2=1 to 2
if not rs.eof then rs.movenext
%>                      <td><table width="75" border="0" cellspacing="0" cellpadding="0">
                          <tr> 
                            <td> 
                              <table cellspacing=0 cellpadding=2 width="99%" border=0>
                                <tbody> 
                                <tr> 

⌨️ 快捷键说明

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