specialshow.asp

来自「烈火之家整站程序 本程序集商业娱乐一体,本来是给自己用的但是我的国外空间支持不够」· ASP 代码 · 共 100 行

<!--#include file="../conn2.asp"-->
<!--#include file="top.asp"-->
<%
SpecialId=request("SpecialId")
conn.execute("update videospecial set hits=hits+1 where SpecialId="&SpecialId)
%>
   
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td  width=160 valign="top" > 
  <TBODY>
    <TR> 
      <TD colspan="2" rowspan="2" vAlign=top > <table width="160" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td height="25" bgcolor="#CCCCCC"> <div align="center"><font color="#FFFFFF"><b>影视排行 
                TOP 10</b></font></div></td>
          </tr>
        </table>
        <table width="160" border="0" cellspacing="1" cellpadding="4" bgcolor="#999999">
          <%                   
set rs=server.CreateObject("adodb.recordset")      
		n=0      
		sql="select top 10 * from videoSpecial order by hits desc"      
		rs.open sql,conn,1,1      
		do while not rs.eof      
			n=n+1      
			response.write "<tr bgcolor=#f0f0f0><td><font color=#3399ff>■</font> <a href=SpecialShow.asp?SpecialId="&rs("SpecialId")&" > "&rs("specialname")&"</a></td></tr> "      
			   
		rs.movenext      
		loop      
		rs.close      
		%>
        </table></td>
      <td width=599 height="117" valign="top"   align="center">
	  <!--#include file="top2.asp"-->
	  <%
sql="select video.*,videospecial.*   from video,videospecial where video.SpecialId=videospecial.SpecialId  and video.SpecialId="&SpecialId

rs.open sql,conn,1,1
if len(rs("picsrc"))>0 then
   picsrc=rs("picsrc")
else 
   picsrc="../images/blank.gif"
end if
if rs.eof then
response.write"暂无相关视频"
else
i=0
%> <table width="99%" border="0" cellspacing="1" cellpadding="1">
          <tr> 
            <td colspan=2><table width="100%" border=0>
                <tr> 
                  <td rowspan=3> <img src=<%=picsrc%> width=100 height=100> </td>
                  <td><b>影视名称：</b><%=rs("specialname")%></td>
                </tr>
                <tr> 
                  <td><b>点击次数：</b><%=rs("hits")%></td>
                </tr>
                <tr> 
                  <td><b>加入时间：</b><%=rs("adddate")%></td>
                </tr>
              </table></td>
          </tr>
          <tr> 
            <%do while not rs.eof
 response.write"<td><table border=0><tr><td><img src=../images/arrow.gif border=0><a href="&rs("src")&">"&rs("videoname")&"</a><br>[主演："&rs("author")&"]</td></tr></table></td> "
  i=i+1
  
 if i mod 2=0 then 
 response.write"</tr>"
 end if

 rs.movenext
  loop

 end if 
 rs.close
 %>
        </table> 
</table>
<!-- #include file="foot.asp" -->