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

📄 film_sort.asp

📁 有关遗传算法的例子
💻 ASP
📖 第 1 页 / 共 3 页
字号:
                              <table cellspacing=0 cellpadding=0 width=504 align=center border=0>
                                <tbody> 
                                <tr> 
                                  <td height=15></td>
                                </tr>
                                </tbody> 
                              </table>
                              <table cellspacing=0 cellpadding=0 width="98%" align=center 
            border=0 valign="top">
                                <tbody> 
                                <tr> 
                      <%
set rs=server.createobject("adodb.recordset")
if Rq("keyword")<>"" then   '////搜索
keyword=Rq("keyword")
serachfs=Rq("serachfs")
if serachfs="" then serachfs="主演"
application("serachkey")=Rq("keyword")&"|"&left(application("serachkey"),100)
sql="SELECT ID,小图,分类,出产地,影片名,主演,显示,人气,加入时间,详细介绍 FROM 影片 where 显示='是' and "&serachfs&" like '%"&keyword&"%' order by id desc"
elseif Rq("order")<>"" and id<>0 then   '排序
sql="SELECT ID,小图,分类,出产地,影片名,主演,显示,人气,加入时间,格式,集数,观看次数,下载次数 FROM 影片 where 显示='是' and 分类='"&id&"' order by "&Rq("order")&" desc"
elseif Rq("order")<>"" then   '###################排序
sql="SELECT ID,小图,分类,出产地,影片名,主演,显示,人气,加入时间,格式,集数,观看次数,下载次数 FROM 影片 where 显示='是' order by "&Rq("order")&" desc"

elseif Rq("gra")<>"" and id<>0 then
sql="SELECT ID,小图,分类,出产地,影片名,主演,显示,人气,加入时间,开放级别 FROM 影片 where 显示='是' and 分类='"&id&"' and 开放级别='"&Rq("gra")&"' order by id desc"
elseif Rq("gra")<>"" then
sql="SELECT ID,小图,分类,出产地,影片名,主演,显示,人气,加入时间,开放级别 FROM 影片 where 显示='是' and 开放级别='"&Rq("gra")&"' order by id desc"

elseif id<>0 then
sql="SELECT ID,小图,分类,出产地,影片名,主演,显示,人气,加入时间 FROM 影片 where 显示='是' and 分类='"&id&"' order by id desc"
else
'/////////////////显示所有
sql="SELECT ID,小图,分类,出产地,影片名,主演,显示,人气,加入时间 FROM 影片 where 显示='是' order by id desc"
end if

'////结束sql

rs.Open sql,conn,1,1
if not rs.eof then
'///////////////////开始分页代码//////////////////////////////////
cardnumber=rs.recordcount
if Rq("page")="" then page="1" else page=Rq("page") end if
PageSize = film_sortlist
rs.PageSize = PageSize
pgnum=rs.Pagecount
if page="" or clng(page)<1 then page=1
if clng(page) > pgnum then page=pgnum
if pgnum>0 then rs.AbsolutePage=page
'///////////////////结束分页代码//////////////////////////////////

i=1
do while not rs.eof and i-1<rs.PageSize
%>
                                  <td> 
                                    <table cellspacing=0 cellpadding=3 
                  align=center border=0 bgcolor="#CCCCCC" width="50%">
                                      <tbody> 
                                      <tr> 
                                        <td bgcolor="#FFFFFF" width="120"> 
                                          <table cellspacing=1 cellpadding=5 width=110 
                        align=left bgcolor=#b3b2b7 border=0 height="120">
                                            <tbody> 
                                            <tr> 
                                              <td bgcolor=#F0F0F0> 
                                                <div align="center"><%if site_runscript="asp" then
Rw "<a href=film_view.asp?id="&rs("id")&"><img src='../"&film_pic&"/"&rs("小图")&"' width="&ayang_picwidth&" height="&ayang_picheight&" border=0 title="&rs("影片名")&"></a>"
else
Rw "<a href=film_view_"&md5(rs("id"),32)&".html><img src='../"&film_pic&"/"&rs("小图")&"' width="&ayang_picwidth&" height="&ayang_picheight&" border=0 title="&rs("影片名")&"></a>"
end if%></div>
                                              </td>
                                            </tr>
                                            </tbody> 
                                          </table>
                                        </td>
                                        <td bgcolor="#FFFFFF" width="156" valign="top"> 
                                          <table cellspacing=0 cellpadding=0 width="130" 
                              align=left border=0>
                                            <tbody> 
                                            <tr> 
                                              <td align=middle height="23"> 
                                                <div align="left"><img src="images/tv.gif" align="absmiddle"><b> 
                                                  <%if site_runscript="asp" then
Rw "<a href=film_view.asp?id="&rs("id")&" title="&rs("影片名")&">"&rs("影片名")&"</a>"
else
Rw "<a href=film_view_"&md5(rs("id"),32)&".html title="&rs("影片名")&">"&rs("影片名")&"</a>"
end if%>
                                                  </b></div>
                                              </td>
                                            </tr>
                                            <tr> 
                                              <td align=middle background="images/line25.gif" height="1"></td>
                                            </tr>
                                            <tr> 
                                              <td align=middle height="1"> 
                                                <table cellspacing=0 cellpadding=0 width=50% align=center border=0>
                                                  <tbody> 
                                                  <tr> 
                                                    <td height=8></td>
                                                  </tr>
                                                  </tbody> 
                                                </table>
                                                <table width=151 border=0 cellpadding=0 cellspacing=0>
                                                  <tr> 
                                                    <td> <img src="images/film_sort_1.gif" width=151 height=7 alt=""></td>
                                                  </tr>
                                                  <tr> 
                                                    <td background="images/film_sort_3.gif" bgcolor="#CCCCCC"> 
                                                      <div align="center"> 
                                                        <table width="95%" border="0" cellspacing="0" cellpadding="0" align="right" height="87" class="td_m1">
                                                          <tr> 
                                                            <td>·主演:<%=rs("主演")%></td>
                                                          </tr>
                                                          <tr> 
                                                            <td>·产地:<%=rs("出产地")%></td>
                                                          </tr>
                                                          <tr> 
                                                            <td>·人气:<%=rs("人气")%></td>
                                                          </tr>
                                                          <tr> 
                                                            <td>·时间:<%=datevalue(rs("加入时间"))%></td>
                                                          </tr>
                                                        </table>
                                                      </div>
                                                    </td>
                                                  </tr>
                                                  <tr> 
                                                    <td> <img src="images/film_sort_4.gif" width=151 height=9 alt=""></td>
                                                  </tr>
                                                </table>
                                              </td>
                                            </tr>
                                            </tbody> 
                                          </table>
                                        </td>
                                      </tr>
                                      </tbody> 
                                    </table>
                                  </td>
                                  <%
if i mod 2 = 0 then Rw "</tr><tr><td height=25></td></tr><tr>"
i=i+1
rs.movenext
loop
else
shownext="false"
%>
                                <tr> 
                                  <td> 
                                    <div align="center">暂无</div>
                                  </td>
                                  <%end if
rs.close%>
                                </tr>
                                </tbody> 
                              </table>
                            </td>
                          </tr>
                          </tbody> 
                        </table>
                      </td>
                    </tr>
                    </tbody> 
                  </table>
                  <table cellspacing=0 cellpadding=0 width=588 border=0>
                    <tbody> 
                    <tr> 
                      <td height=10><img height=9 src="images/film_sort_end.gif" 
        width=588></td>
                    </tr>
                    </tbody> 
                  </table>
                </td>
                <td width=4></td>
              </tr>
              </tbody> 
            </table>
            <%
if shownext<>"false" then
if Rq("admin_act")<>"gethtml" then%>
            <table cellspacing=0 cellpadding=0 width=588 align=center border=0 class="td_m1">
              <form name="form1" method="post" action="">
                <tbody> 
                <tr> 
                  <td height=26>&nbsp;</td>
                  <td height=35> 
                    <div align="right">共<b><%=cardnumber%></b>条纪录&nbsp;&nbsp;共<b><%=pgnum%></b>页&nbsp;&nbsp;当前第<b><%=page%></b>页&nbsp; 
                      <%if cint(page)<>1 then%>
                      <a href="?page=1<%=urlstr%>">首页</a>&nbsp;&nbsp;<a href="?page=<%=page-1%><%=urlstr%>">上一页</a>&nbsp; 
                      <%end if
if cint(page)<>cint(pgnum) then%>
                      <a href="?page=<%=page+1%><%=urlstr%>">下一页</a>&nbsp;&nbsp;<a href="?page=<%=pgnum%><%=urlstr%>">尾页</a> 
                      <%end if%>
                      &nbsp;跳转到 
                      <select name="page" onChange="javascript:submit()">
                        <%for i = 1 to pgnum%>
                        <option value="<%=i%>" <%if cint(page)=cint(i) then%> selected <%end if%>>第<%=i%>页</option>
                        <%next%>
                      </select>
                    </div>
                  </td>
                </tr>
                </tbody> 
              </form>
            </table>
            <%else%>
            <table width="588" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="35"> 
                  <div align="right">共<b><%=cardnumber%></b>条纪录&nbsp;&nbsp;共<b><%=pgnum%></b>页&nbsp;&nbsp;当前第<b><%=page%></b>页&nbsp; 
                    <%if cint(page)<>1 then%>
                    <a href="film_sort_<%=md5(id,32)%>_1.html">首页</a>&nbsp;&nbsp;<a href="film_sort_<%=md5(id,32)%>_<%=page-1%>.html">上一页</a>&nbsp; 
                    <%end if
if cint(page)<>cint(pgnum) then%>
                    <a href="film_sort_<%=md5(id,32)%>_<%=page+1%>.html">下一页</a>&nbsp;&nbsp;<a href="film_sort_<%=md5(id,32)%>_<%=pgnum%>.html">尾页</a> 
                    <%end if%>
                    &nbsp;跳转到 
                    <select name="menu1" onChange="MM_jumpMenu('parent',this,0)">
                      <%for i=1 to pgnum%>
                      <option value="film_sort_<%=md5(id,32)%>_<%=i%>.html" <%if clng(page)=clng(i) then response.write "selected"%>>第<%=i%>页</option>
                      <%next%>
                    </select>
                  </div>
                </td>
              </tr>
            </table>
            <%end if
			end if%>
          </td>
        </tr>
      </table>
      <div align="center"> </div>
    </td>
  </tr>
  <tr bgcolor="#eeece0"> 
    <td valign="top" bgcolor="#FFFFFF"> 
      <%copyright%>
    </td>
  </tr>
  </tbody> 
</table>

⌨️ 快捷键说明

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