show1.asp

影视点播系统代码

<%
if rs.eof then                          
response.write("<p align=center><font color=#FF0000>暂时没有任何电影！</font></p>")                          
else
%>
<table border="1" width="700" cellspacing="0" cellpadding="0" bordercolorlight="#FF6699" align="center">
    <tr>                    
      <td width="208" height="30"><img src="images/3.gif"> 影片名字</td>                     
      <td width="126" height="30"><img src="images/3.gif">在线播放</td>                    
      <td width="117" height="30"><img src="images/3.gif">影片类型</td>                    
      <td width="68" height="30"><img src="images/3.gif">点击量</td>                    
      <td width="84" height="30"><img src="images/3.gif">加入日期</td>                    
      <td width="83" height="30"><img src="images/3.gif">推荐星级</td>                    
    </tr>                   
<%    
dim i
i=0                                         
do while not rs.eof and i<5
i=i+1                                  
%>                       
    <tr>                    
      <td>&nbsp;&nbsp;<%=rs("name")%>&nbsp;&nbsp;
	  <% if session("admin")<>"" then %><a href="level.asp?id=<%=rs("id")%>"><font color="#008000">鉴定等级</font></a>&nbsp;
	  <a href="delfilm.asp?id=<%=rs("id")%>"><font color="#FF0000">删除</font></a><%end if%></td>                 
      <td><img src="images/1.gif" width="34" height="29">
          <%if rs("address")<>"" then %>
        <a href="video.asp?id=<%=rs("id")%>" target=_blank style="text-decoration: underline" onClick="return newpage(this.href);">[点击]</a>
        <%end if%></td>                
      <td align="center"><a href="type.asp?item=<%=rs("item")%>"><%=rs("item")%></td>                
      <td align="center"><%=rs("hits")%></td>                
      <td align="center"><%=rs("date")%></td>                
      <td width="83" height="30" align="center"><font color="#008000"><%=rs("level")%></td>                
    </tr>                
    <%                                                                                                      
    rs.movenext                                                                                       
    loop                                                                                                              
    end if                
    set rs=nothing                                                                  
    %>                 
    </tr>                    
  </table>