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

📄 index.asp

📁 有关遗传算法的例子
💻 ASP
📖 第 1 页 / 共 5 页
字号:
                                  <td width="47%" rowspan=2> 
                                    <table cellspacing=0 cellpadding=0 width=122 
                        align=center 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><%
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=119 height=87 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=119 height=87 border=0></a>"
end if%></td></tr>
                                            </tbody> 
                                          </table>
                                        </td>
                                      </tr>
                                      </tbody> 
                                    </table>
                                  </td>
                                  <td width="53%"><FONT color=#666666><strong><%if site_runscript="asp" then
Rw "<a href=film_view.asp?id="&rs("id")&" title="&rs("影片名")&">"&left(rs("影片名"),6)&"</a>"
else
Rw "<a href=film_view_"&md5(rs("id"),32)&".html title="&rs("影片名")&">"&left(rs("影片名"),6)&"</a>"
end if%></strong></font></td>
                                </tr>
                                <tr> 
                                  <td>主演:<%=left(rs("主演"),80)%></td>
                                </tr>
                                </tbody> 
                              </table>
                              <img 
                  height=9 
                  src="images%5Cline_03.gif" 
                  width=224> </td>
                          </tr>
                        </table></td>
<%
next
rs.close
%>
                    </tr>
                  </table>
                </TD></TR>
              </TBODY> 
            </TABLE>
          </TD></TR>
        <TR>
          <TD vAlign=top><IMG height=22 src="images/00_newmovie_02_0.gif" 
            width=762></TD></TR></TBODY></TABLE>
      <table width=760 align=center border=0>
        <tbody> 
        <tr> 
          <td bgcolor=#f5f5f5> 
            <div align=center> 
              <table cellspacing=3 cellpadding=3 width=750 border=0>
                <tbody> 
                <tr> 
                  <td bgcolor=#ffffff> 
                    <script src="../banner.asp?id=<%=site_ban_flash%>"></script>
                  </td>
                </tr>
                </tbody>
              </table>
            </div>
          </td>
        </tr>
        </tbody>
      </table>
      <br>
      <table cellspacing=0 cellpadding=0 width="99%" align=center border=0>
        <tbody> 
        <tr> 
          <td bgcolor=#ff0033 height=5> 
            <div align=center></div>
          </td>
        </tr>
        <tr> 
          <td><img 
            height=51 src="images/tj.gif" width=764 
        border=0></td>
        </tr>
        <tr> 
          <td valign=top background=images/serialise_bg.gif> 
            <%
set rs=server.createobject("adodb.recordset")
sql="SELECT ID,小图,大图,分类,人气,出产地,影片名,主演,显示,加入时间,推荐时间 FROM 影片 where 显示='是' and 推荐='是' order by 推荐时间 desc"
rs.Open sql,conn,1,1
%>
            <table cellspacing=0 cellpadding=0 align=center 
border=0>
              <tbody> 
              <tr> 
                <td> 
                  <table cellspacing=0 cellpadding=0 width=122 align=center 
                  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=175 height=125 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=175 height=125 border=0></a>"
end if%></td></tr>
                                <tr> 
                                  <td> 
                                    <div align=center><img height=9 
                                src="images/line_03.gif" 
                                width=117></div>
                                  </td>
                                </tr>
                                </tbody> 
                              </table>
                              <div align=center><font color=#666666><b><%=rs("影片名")%></b></font></div>
                            </td>
                          </tr>
                          </tbody> 
                        </table>
                      </td>
                    </tr>
                    </tbody> 
                  </table>
                </td>
                <td> 
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <%
					  for i=1 to 6
					  if not rs.eof then rs.movenext
					  %>
                      <td> 
                        <table border="0" cellspacing="2" cellpadding="0">
                          <tr>
    <td><table cellspacing=1 cellpadding=0 width=185 align=left 
                  border=0 bgcolor="#CCCCCC">
                          <tbody> 
                          <tr> 
                            <td width=267 bgcolor=#cccccc> 
                              <table cellspacing=0 cellpadding=3 width="100%" 
border=0>
                                <tbody> 
                                <tr> 
                                  <td width="27%" bgcolor=#ffffff rowspan=2> 
                                    <table cellspacing=0 cellpadding=0 align=center 
                              border=0>
                                      <tbody> 
                                      <tr> 
                                        <td bgcolor=#cccccc> 
                                          <table cellspacing=1 cellpadding=3 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=60 height=60 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=60 height=60 border=0></a>"
end if
%></td></tr>
                                            </tbody> 
                                          </table>
                                        </td>
                                      </tr>
                                      </tbody> 
                                    </table>
                                  </td>
                                  <td width="73%" bgcolor=#ffffff valign="bottom"><font color=#666666><strong><%if site_runscript="asp" then
Rw "<a href=film_view.asp?id="&rs("id")&" title="&rs("影片名")&">"&left(rs("影片名"),7)&"</a>"
else
Rw "<a href=film_view_"&md5(rs("id"),32)&".html title="&rs("影片名")&">"&left(rs("影片名"),8)&"</a>"
end if%></strong></font></td>
                                </tr>
                                <tr> 
                                  <td 
                        bgcolor=#ffffff valign="top">主演:<%=left(rs("主演"),20)%></td>
                                </tr>
                                </tbody> 
                              </table>
                            </td>
                          </tr>
                          </tbody> 
                        </table>
                      </td>
  </tr>
</table>
</td>
                      <%
					  if i mod 3 = 0 then Rw "</tr><tr>"
					  next
					  rs.close
					  %>
                    </tr>
                  </table>
                </td>
              </tr>
              </tbody> 
            </table>
            <br>
          </td>
        </tr>
        </tbody>
      </table>
        
      <%
set rs=server.createobject("adodb.recordset")
sql="SELECT * FROM 影片 where 显示='是' and 分类='"&site_tvid&"' order by id desc"
rs.Open sql,conn,1,1
%>
      <table cellspacing=0 cellpadding=0 width=759 align=center border=0>
        <tbody> 
        <tr> 
          <td bgcolor=#0099ff height=5> 
            <div align=center></div>
          </td>
        </tr>
        <tr> 
          <td><img height=48 src="images/tvplay.gif" 
        width=760></td>
        </tr>
        <tr> 
          <td valign=top background=images/00_bestmovie_bg.gif 
            height=215> 
            <table cellspacing=0 cellpadding=0 width="100%" 
              border=0>
              <tbody> 
              <tr> 
                <td valign=top width="36%"> 
                  <table width="100%" border="0" cellspacing="5">
                    <tr> 
                      <td> 
                        <table cellspacing=0 cellpadding=1 width=250 align=center 
                  border=0>
                          <tbody> 
                          <tr> 
                            <td width=267 bgcolor=#cccccc> 
                              <table height=200 cellspacing=0 cellpadding=4 
                        width="100%" border=0>
                                <tbody> 
                                <tr> 
                                  <td bgcolor=#ffffff> 
                                    <div align=center> 
                                      <%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=245 height=222 border=0><br><FONT color=#666666><STRONG>"&rs("影片名")&"</STRONG></font></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=245 height=222 border=0><br><FONT color=#666666><STRONG>"&rs("影片名")&"</STRONG></font></a>"
end if%>
                                    </div>
                                  </td>
                                </tr>
                                </tbody> 
                              </table>
                            </td>
                          </tr>
                          </tbody> 
                        </table>
                      </td>
                    </tr>
                  </table>
                </td>
                <td valign=top> 
                  <table width="100%" border="0" cellspacing="5">
                    <tr> 
                      <%

⌨️ 快捷键说明

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