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

📄 view_history.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 leftMargin=0 topMargin=0">
<table cellspacing=0 cellpadding=2 width="90%" align=center 
border=0>
                    <tbody> 
                    <tr> 
                      <td> 
<%
show=0
forci=0
show=5
set rs=server.createobject("adodb.recordset")
if Request.Cookies(site_Cookies)("view_history")<>"" then
sql="SELECT TOP 5 ID,大图,小图,分类,人气,出产地,影片名,主演,显示,加入时间,详细介绍 FROM 影片 where id in("&Request.Cookies(site_Cookies)("view_history")&") order by 显示 desc"
else
sql="SELECT TOP 5 ID,大图,小图,分类,人气,出产地,影片名,主演,显示,加入时间,详细介绍 FROM 影片 where 显示='是' order by 人气 desc"
end if
rs.Open sql,conn,1,1
if not rs.eof then

if rs.recordcount>show then
forci=show
else
forci=rs.recordcount
end if

for i=1 to forci step 1
%>
                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
                          <tr> 
                            <td width="16%" valign="top"><img height=23 
                        src="images/his<%=i%>.gif" width=23></td>
                            <td width="84%"> 
                              <table cellspacing=0 cellpadding=0 width="100%" 
border=0>
                                <tbody> 
                                <tr> 
                                  <td width="35%" rowspan=2> 
                                    <table cellspacing=0 cellpadding=0 align=center 
                              border=0>
                                      <tbody> 
                                      <tr> 
                                        <td width=118 bgcolor=#cccccc> 
                                          <table cellspacing=1 cellpadding=3 width="100%" 
                                border=0>
                                            <tbody> 
                                            <tr> 
                                              <td 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=50 height=50 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=50 height=50 border=0></a>"
end if%></td></tr>
                                            </tbody> 
                                          </table>
                                        </td>
                                      </tr>
                                      </tbody> 
                                    </table>
                                  </td>
                                  <td width="65%"> 
                                    <div align=center><strong>
                                      <%if site_runscript="asp" then
Rw "<a href=film_view.asp?id="&rs("id")&" title="&rs("影片名")&" target='_top'><strong><font color=#ff6600>"&left(rs("影片名"),6)&"</font></strong></a>"
else
Rw "<a href=film_view_"&md5(rs("id"),32)&".html title="&rs("影片名")&" target='_top'><font color=#ff6600>"&left(rs("影片名"),6)&"</font></strong></a>"
end if%>
                                      </strong></div>
                                  </td>
                                </tr>
                                <tr> 
                                  <td> 
                                    <div align="left">
                                      <table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
                                        <tr>
                                          <td>主演:<%=left(rs("主演"),15)%></td>
                                        </tr>
                                      </table>
                                    </div>
                                  </td>
                                </tr>
                                </tbody> 
                              </table>
                            </td>
                          </tr>
                          <tr> 
                            <td colspan="2" height="18"> 
                              <div align="center"><img height=9 
                        src="images/line_top.gif" width=165></div>
                            </td>
                          </tr>
                        </table>
<%
if not rs.eof then rs.movenext
next
end if
connclose
%>
                        <table cellspacing=0 cellpadding=0 width="98%">
                          <tbody> 
 </tbody> 
                        </table>
                      </td>
                    </tr>
                    </tbody> 
                  </table>
                

⌨️ 快捷键说明

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