index.asp

一个完整的flash 教程 很不错 适合初学者~

        </table><%
rs.movenext
count=count+1
loop
%>
          </td>
        </tr>
      </table>
      </td>
      <td width="185" bgcolor="#FFFFFF" height="1" valign="top" rowspan="3">
      <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" height="73">
        <tr>
          <td width="100%" bgcolor="#C0C0C0" height="25">
          <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="185" height="30">
            <tr>
              <td width="181" height="28">
              <img border="0" src="images/new20.gif"></td>
            </tr>
          </table>
          </td>
        </tr>
        <tr>
          <td width="100%" height="16" bgcolor="#f7f7f7">
          <table border="0" cellpadding="4" cellspacing="0" style="border-collapse: collapse" width="100%">
            <tr>
              <td width="100%">            
              <table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" width="100%">

<%
set rs=server.createobject("adodb.recordset")
i=0 
Shangpin=20
sql="SELECT * FROM 歌曲 order by id desc"
rs.Open sql,conn,1,1
%>
<%
do while not rs.eof
i=i+1
id1=right(rs("歌曲地址"),2)
if id1="vb" then id2="play.asp"
if id1="rm" then id2="play.asp"
if id1="vi" then id2="playWMV.asp"
if id1="mv" then id2="playWMV.asp"
if id1="sf" then id2="playWMV.asp"
%>
<tr>
                  <td width="13%"><b><%=i%>.</b></td>
                  <td width="87%"><a href="#" onClick="window.open('<%=id2%>?id=<%=rs("id")%>','tt90','scrollbars=no,resizable=no,width=352,height=370,menubar=no,top=168,left=168')" ><%=rs("歌名")%></a>(<%=rs("dd")%>)</td>
                </tr>
<%
if (i mod (Shangpin/20)=0) and i>=(Shangpin/20) then
%>

<%
end if
if i>=Shangpin then exit do
rs.movenext
loop
%>
              </table>
              </td>
            </tr>
          </table>
          </td>
        </tr>
        <tr>
          <td width="100%" height="11"><img border="0" src="images/play.gif"></td>
        </tr>
        <tr>
          <td width="100%" height="10" bgcolor="#C6C3C6">
          <table border="0" cellpadding="6" cellspacing="0" style="border-collapse: collapse" width="100%" height="81">
            <tr>
              <td width="100%" height="69">
              <table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" width="100%" height="1">
                <tr>
                  <td width="100%" height="31">
                  <p align="center">
                  <a href="http://www.tt90.com/data/RealOnePlayerV2GOLD.exe">
                  <img border="0" src="images/realone.gif" alt="下载RealOnePlayer"></a></td>
                </tr>
                <tr>
                  <td width="100%" align="center" height="1"><font face="Arial">
                  RealOnePlayerV2GOLD</font></td>
                </tr>
                <tr>
                  <td width="100%" align="center" height="16">
                  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
                    <tr>
                      <td width="48%" align="center">
                      [<a href="http://www.tt90.com/data/RealOnePlayerV2GOLD.exe">英文版</a>]</td>
                      <td width="52%" align="center">
                      [<a href="http://www.tt90.com/data/HB-RealOnePlayer6011853_byhqw.exe">中文汉化</a>]</td>
                    </tr>
                  </table>
                  </td>
                </tr>
              </table>
              </td>
            </tr>
          </table>
          </td>
        </tr>
        <tr>
          <td width="100%" height="9"><img border="0" src="images/Tnew20.gif"></td>
        </tr>
        <tr>
          <td width="100%" height="16" bgcolor="#f7f7f7">
          <table border="0" cellpadding="4" cellspacing="0" style="border-collapse: collapse" width="100%" height="1">
            <tr>
              <td width="100%" height="23">
              <table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" width="100%">
              <%
set rs=server.createobject("adodb.recordset")
i=0 
Shangpin=20
sql="SELECT * FROM 歌曲 where 推介=true order by id desc"
rs.Open sql,conn,1,1
%>
<%
do while not rs.eof
i=i+1
id1=right(rs("歌曲地址"),2)
if id1="vb" then id2="play.asp"
if id1="rm" then id2="play.asp"
if id1="vi" then id2="playWMV.asp"
if id1="mv" then id2="playWMV.asp"
if id1="sf" then id2="playWMV.asp"
%>

                <tr>
                  <td width="13%"><b><%=i%>.</b></td>
                  <td width="87%"><a href="#" onClick="window.open('<%=id2%>?id=<%=rs("id")%>','tt90','scrollbars=no,resizable=no,width=352,height=370,menubar=no,top=168,left=168')" ><%=rs("歌名")%></a>(<%=rs("dd")%>)</td>

                </tr>
                <%
if (i mod (Shangpin/20)=0) and i>=(Shangpin/20) then
%>

<%
end if
if i>=Shangpin then exit do
rs.movenext
loop
%>
    
              </table>
              </td>
            </tr>
          </table>
          </td>
        </tr>
      </table>
      </td>
    </tr>
    <tr>
      <td width="398" bgcolor="#FFFFFF" height="31" valign="top">
      <table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" width="398">
        <tr>
          <td width="4">          <td align=left width="197" >
          <font color="#FF6600"><b>[共收录<%=musers()%>首MTV歌曲]</b></font></td>
          <td align=right width="197">
          <p align="center"><b><font color="#FF6600">[</font><a href="index.asp?page=<%=page-1%>&nr=<%=nr%>&xz=<%=xz%>&lb=<%=lb%>"><font color="#FF6600">上一页</font></a><font color="#FF6600">][第<%=page%>页][</font><a href="index.asp?page=<%=page+1%>&nr=<%=nr%>&xz=<%=xz%>&lb=<%=lb%>"><font color="#FF6600">下一页</font></a><font color="#FF6600">]</font></b></td>
</td>
        </tr>
      </table>
        <%
function musers()
dim tmprs
if lb="" and nr="" then 
tmprs=conn.execute("Select count(*) As 歌名 from 歌曲 ")
end if
if lb<>"" then 
tmprs=conn.execute("Select count(*) As 歌名 from 歌曲 where 所属分类='"&lb&"'")
end if 
if nr<>"" then
tmprs=conn.execute("Select count(*) As 歌名 from 歌曲 where "&xz&"='"&nr&"'")
end if 
musers=tmprs("歌名")
set tmprs=nothing
if isnull(musers) then musers=0
end function
%>
      </td>
      </tr>
    <tr>
      <td width="398" bgcolor="#FFFFFF" height="1" valign="top">
      <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="392" height="45">
        <tr>
          <td width="392" height="45" align="center" bgcolor="#F7F7F7">　 </td>
        </tr>
      </table>
      </td>
      </tr>
    </table>
  </center>
</div>

<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="770" height="1">
    <tr>
      <td width="100%" bgcolor="#000000" height="1">
      <table border="0" cellpadding="4" cellspacing="0" style="border-collapse: collapse" width="101%">
        <tr>
          <td width="12%" rowspan="2">
          <table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" width="100%">
            <tr>
              <td width="100%"><img border="0" src="images/LOGO88X31.gif"></td>
            </tr>
          </table>
          </td>
          <td width="88%">
          <p align="right"><font color="#C6C3C6">
        <SCRIPT src="http://zrit.com/count/online.asp"></SCRIPT>   版权所有：太阳人网络.修改：ZRIT&nbsp;&nbsp;业务QQ:9578966</font></td>
          <td width="2%">　</td>
        </tr>
        <tr>
          <td width="88%">
          <p align="right">
      <font class="txt" color="#C6C3C6" face="Verdana,">
      <span style="font-size: 9pt">Copyright (c) 2004 </span> </font>
      <span style="font-size: 9pt"><u>
      <font class="txt" color="#535f76" face="Verdana," sans-serif Helvetica, Arial,>
      <font color="#C6C3C6">WWW.ZRIT.COM</font></font></u><font class="txt" color="#C6C3C6">&nbsp;
      </font></span><font color="#C6C3C6" face="Arial">
          <span style="font-size: 9pt">Powered by GXPX.NETor&nbsp; 太阳人网络
      </span></font></td>
          <td width="2%">　</td>
        </tr>
      </table>
      </td>
    </tr>
  </table>
  </center>
</div>
<div id=Layer1 
style="Z-INDEX: 1; LEFT: 311; WIDTH: 400; POSITION: absolute; TOP: 63; HEIGHT: 149"> 
      &nbsp; 
      <object 
codebase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0 
height=135 width=346 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000>
        <param name="movie" value="images/top[1].swf">
        <param name="quality" value="High">
        <param name="wmode" value="Transparent">
        <param name="_cx" value="8149">
        <param name="_cy" value="3969">
        <param name="FlashVars" value="0">
        <param name="Src" value="images/top[1].swf">
        <param name="Play" value="0">
        <param name="Loop" value="-1">
        <param name="SAlign" value>
        <param name="Menu" value="-1">
        <param name="Base" value>
        <param name="AllowScriptAccess" value="always">
        <param name="Scale" value="ShowAll">
        <param name="DeviceFont" value="0">
        <param name="EmbedMovie" value="0">
        <param name="BGColor" value>
        <param name="SWRemote" value>
        <embed src="images/top[1].swf" quality=high 
wmode=transparent              width=400 height=200 
type="application/x-shockwave-flash"             
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash";>
</embed></object></div>
</div>
</body>
</html>