specialshow.asp

烈火之家整站程序 本程序集商业娱乐一体,本来是给自己用的但是我的国外空间支持不够好,就送给大家了. 1. 栏目包括 最新信息,下载,影音娱乐,作品展示,定制业务,支持服务,留言,关于本站. 2.管理员

<!--#include file="../conn2.asp"-->
<!--#include file="top.asp"-->
<%
SpecialId=request("SpecialId")
conn.execute("update flashSpecial set hits=hits+1 where SpecialId="&SpecialId)
%>
   
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td valign="top" ><TBODY>
    <TR> 
      <TD width=160 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>Flash 排行 
                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 specialid,specialname from flashSpecial order by hits desc"      
		rs.open sql,conn,1,1      
		do while not rs.eof      
			n=n+1      
			response.write "<tr bgcolor=#ffffff><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=600 height="117" valign="top"   align="center"><!--#include file="top2.asp"-->
 <%
sql="select flash.*,flashspecial.* from flash,flashspecial where  flash.specialID=flashspecial.specialID and flashspecial.SpecialID="&SpecialId 

rs.open sql,conn,1,1
if rs.eof then
response.write"暂无相关flash"
else
i=0
if len(rs("picsrc"))>0 then
   picsrc=rs("picsrc")
else 
   picsrc="../images/blank.gif"
end if
%> <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>FLASH名称：</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")&" target=_blank>"&rs("flashname")&"</a><br><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" -->