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

📄 复件 (3) index_mb.asp

📁 这是一个最常用的flash程序
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
i=i+1
%>
                                <table width="87" border="0" align="center" cellpadding="0" cellspacing="0" class="table3">
                                  <tr> 
                                    <td valign="middle"> <div align="center"> 
                                        <a href="flash/<%=rs("id")%>.htm" target=_blank><img border=0 src="<%=replace(rs("pic"),"../flashpic","flashpic")%>" width="75" height="53"></a> 
                                        <table width="72%" border="0" cellspacing="0" cellpadding="0">
                                          <tr> 
                                            <td width="119" height="18"> <div align="center"><a href="flash/<%=rs("id")%>.htm" target=_blank><%=left(rs("flashname"),3)%></a></div></td>
                                          </tr>
                                        </table>
                                      </div></td>
                                  </tr>
                                </table>
                                <%

if i>=1 then exit do
Rs.Movenext
Loop
Rs.Close
Set Rs=nothing
%>
                              </TD>
                            </TR>
                          </TBODY>
                        </TABLE></TD>
                    </TR>
                  </TBODY>
                </TABLE>
                <TABLE cellSpacing=0 cellPadding=0 width="95%" align=center 
border=0>
                  <TBODY>
                    <TR align=middle> 
                      <TD width="33%"> <TABLE cellSpacing=0 cellPadding=0 width="95%" border=0>
                          <TBODY>
                            <TR> 
                              <TD align=middle> 
                                <%
i=0
Set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * From flash where classid='13' order by hits desc"
Rs.open Sql,Conn,1,1
Do While not Rs.Eof
i=i+1
%>
                                <table width="87" border="0" align="center" cellpadding="0" cellspacing="0" class="table3">
                                  <tr> 
                                    <td valign="middle"> <div align="center"> 
                                        <a href="flash/<%=rs("id")%>.htm" target=_blank><img border=0 src="<%=replace(rs("pic"),"../flashpic","flashpic")%>" width="75" height="53"></a> 
                                   
                                        <table width="72%" border="0" cellspacing="0" cellpadding="0">
                                          <tr> 
                                            <td width="119" height="18"> <div align="center"><a href="flash/<%=rs("id")%>.htm" target=_blank><%=left(rs("flashname"),3)%></a></div></td>
                                          </tr>
                                        </table>
                                      </div></td>
                                  </tr>
                                </table>
                                <%

if i>=1 then exit do
Rs.Movenext
Loop
Rs.Close
Set Rs=nothing
%>
                              </TD>
                            </TR>
                          </TBODY>
                        </TABLE></TD>
                      <TD width="33%"> <TABLE cellSpacing=0 cellPadding=0 width="95%" border=0>
                          <TBODY>
                            <TR> 
                              <TD height="107" align=middle> 
                                <%
i=0
Set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * From flash where classid='14' order by hits desc"
Rs.open Sql,Conn,1,1
Do While not Rs.Eof
i=i+1
%>
                                <table width="87" border="0" align="center" cellpadding="0" cellspacing="0" class="table3">
                                  <tr> 
                                    <td valign="middle"> <div align="center"> 
                                        <a href="flash/<%=rs("id")%>.htm" target=_blank><img border=0 src="<%=replace(rs("pic"),"../flashpic","flashpic")%>" width="75" height="53"></a> 
                                        <table width="72%" border="0" cellspacing="0" cellpadding="0">
                                          <tr> 
                                            <td width="119" height="18"> <div align="center"><a href="flash/<%=rs("id")%>.htm" target=_blank><%=left(rs("flashname"),3)%></a></div></td>
                                          </tr>
                                        </table>
                                      </div></td>
                                  </tr>
                                </table>
                                <%

if i>=1 then exit do
Rs.Movenext
Loop

Rs.Close
Set Rs=nothing
%>
                              </TD>
                            </TR>
                          </TBODY>
                        </TABLE></TD>
                      <TD width="33%"> <TABLE cellSpacing=0 cellPadding=0 width="95%" border=0>
                          <TBODY>
                            <TR> 
                              <TD height="107" align=middle> 
                                <%
i=0
Set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * From flash where classid='15' order by hits desc"
Rs.open Sql,Conn,1,1
Do While not Rs.Eof
i=i+1
%>
                                <table width="87" border="0" align="center" cellpadding="0" cellspacing="0" class="table3">
                                  <tr> 
                                    <td valign="middle"> <div align="center"> 
                                        <a href="flash/<%=rs("id")%>.htm" target=_blank><img border=0 src="<%=replace(rs("pic"),"../flashpic","flashpic")%>" width="75" height="53"></a> 
                                        <table width="72%" border="0" cellspacing="0" cellpadding="0">
                                          <tr> 
                                            <td width="119" height="18"> <div align="center"><a href="flash/<%=rs("id")%>.htm" target=_blank><%=left(rs("flashname"),3)%></a></div></td>
                                          </tr>
                                        </table>
                                      </div></td>
                                  </tr>
                                </table>
                                <%

if i>=1 then exit do
Rs.Movenext
Loop
Rs.Close
Set Rs=nothing
%>
                              </TD>
                            </TR>
                          </TBODY>
                        </TABLE></TD>
                    </TR>
                  </TBODY>
                </TABLE>
                <table width="100%" border="0" cellspacing="0" cellpadding="3">
                  <%
Set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * From flash order by id desc"
Rs.open Sql,Conn,1,1
%>
                  <%
For i=1 To 84
 		If rs.eof Then Exit For
 		If i mod 2 <> 0 Then
%>
                  <tr> 
                    <td width="50%" height="25" class="table1">&nbsp;<a href="flash/<%=rs("id")%>.htm" target=_blank><%=left(rs("flashname"),9)%></a></td>
                    <%Else%>
                    <td width="50%" class="table1">&nbsp;<a href="flash/<%=rs("id")%>.htm" target=_blank><%=left(rs("flashname"),9)%></a></td>
                  </tr>
                  <%
	End If
rs.movenext
Next
rs.close
set rs=NOTHING
%>
                </table></TD>
            </TR>
          </TBODY>
      </TABLE>      <div align="center"><IFRAME id=UserLogin src="http://www.130xyx.com/gg/yeeyoo-280-90.htm" frameBorder=0 width=280 scrolling=no height=90></IFRAME>
      </div></TD>
    </TR>
  </TBODY>
</TABLE>
<div align="center"><IFRAME id=UserLogin src="http://www.130xyx.com/gg/760-315.htm" frameBorder=0 width=778 scrolling=no height=315></IFRAME>
<br>
</div>
<TABLE height=143 cellSpacing=0 cellPadding=0 width=778 align=center border=0>
  <TBODY>
    <TR>
      <TD bgColor=#F3F3F3 height=52>        <p>::友情连接::要求排名2W以内！<br>
            <br>
&lt; <a href="http://www.hao123.com" target="_blank">好123网址</a> <a href="http://www.jianjie8.com/" target="_blank">简洁资源网</a> <a href="http://www.shu700.com" target="_blank">度39小说网</a> <a href="http://www.03130.com" target="_blank">中国在线学网</a> <a href="http://www.ml666.com" target="_blank">穆棱视窗</a> <a href="http://dvd.03130.com" target="_blank">03130</a><a href="http://dvd.shu700.com" target="_blank">电影</a> <a href="http://www.xxyule.com" target="_blank">星星娱乐网</a>  <a href="http://www.130xyx.com" target="_blank">130小游戏</a> &gt;</p></TD>
    </TR>
    <TR>
      <TD class=lineha vAlign=top align=middle height=7> </TD>
    </TR>
    <TR>
      <TD bgColor=#dddddd height=1></TD>
    </TR>
    <TR>
      <TD class=lineha align=middle height=25><div align="center"> <a href="gywm.htm" target="_blank">关于我们</a>　 <a href="lxwm.htm" target="_blank">联系我们</a> 　<a href="fwsm.htm" target="_blank">服务声明</a>　 <a href="gxcp.htm" target="_blank">高薪诚聘</a>　<a href="ggsw.htm" target="_blank">广告事务</a>　<a href="http://130xyx.com" target="_blank">北方网通站点</a>  </div></TD>
    </TR>
    <TR>
      <TD class=lineha align=middle height=20><div align="center">
          <p align="center"> 作品版权归作者所有，如果无意之中侵犯了您的版权，请来信告知，星星娱乐网将在3个工作日内删除！ QQ：773090<a href="http://www.miibeian.gov.cn/"><br>
            粤ICP备05114971号 </a><BR>
          </p>
      </div></TD>
    </TR>
  </TBODY>
</TABLE>
<div align="center">
  <script language="javascript" src="http://count6.51yes.com/click.aspx?id=64339503&logo=12"></script>
  <script src="http://u.ads8.com/getcode.php?web_id=zjp123&ads_id=135" language="javascript"></script>
<script language=javascript src="http://a.keyrun.com/pcode_gd.php?username=du39&repl=1&adsuser=520sex&adsid=1273&iw=250&ih=150&mode=1"></script>
</div>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor=#ffffff>
  <tr> </tr>
</table>
<DIV id=ad_dl01 
style="Z-INDEX: 1; LEFT: 10px; VISIBILITY: visible; WIDTH: 90px; POSITION: absolute; TOP: 102px">
  <TABLE cellSpacing=0 cellPadding=0 width=90 border=0>
    <TBODY>
      <TR>
        <TD align=right><A onclick="ad_dl01.style.visibility='hidden'"><IMG 
      height=16 src="http://www.ml666.com/index/wg_01.gif" width=100 border=0></A></TD>
      </TR>
      <TR>
        <TD><!--Adsunion AD Code Begin Here. AD Place:pl-14-110_260count1-->
            <iframe width="100" height="354" src="http://u.7town.com/MMV/100_354/lp1/index.html?

uid=16559&a=&b=&c=&d=&e=&f=" frameborder="no" border="0" marginwidth="0" marginheight="0" 

scrolling="no"></iframe>
            <!--Adsunion AD Code End Here. AD Place:pl-14-110_260count1--></TD>
      </TR>
    </TBODY>
  </TABLE>
</DIV>
<DIV id=ad_dl02 
style="Z-INDEX: 1; RIGHT: 20px; VISIBILITY: visible; WIDTH: 90px; POSITION: absolute; TOP: 102px">
  <TABLE cellSpacing=0 cellPadding=0 width=90 border=0>
    <TBODY>
      <TR>
        <TD align=right><A onclick="ad_dl02.style.visibility='hidden'"><IMG 
      height=16 src="http://www.ml666.com/index/wg_01.gif" width=90 border=0></A></TD>
      </TR>
      <TR>
        <TD><A href="" target=_blank>
          <iframe width="90" height="300" src="http://u.7town.com/ivr/120_300/jgl1/index.html?uid=16559&a=&b=&c=&d=&e=&f=" frameborder="no" border="0" marginwidth="0" marginheight="0" scrolling="no"></iframe>
        </A> </TD>
      </TR>
    </TBODY>
  </TABLE>
</DIV>
<p>
  <SCRIPT type=text/javascript>
var step_ratio = 1;
objs = new Array();
objs_x = new Array();
objs_y = new Array();

function addfollowmark(name, x, y) {
  i = objs.length;
  objs[i] = document.getElementById(name);
  objs_x[i] = x;
  objs_y[i] = y;
}

function followmark() {
  for(var i=0; i<objs.length; i++) {
    var fm = objs[i];
    var fm_x = typeof(objs_x[i]) == 'string' ? eval(objs_x[i]) : objs_x[i];
    var fm_y = typeof(objs_y[i]) == 'string' ? eval(objs_y[i]) : objs_y[i];

    if (fm.offsetLeft != document.body.scrollLeft + fm_x) {
      var dx = (document.body.scrollLeft + fm_x - fm.offsetLeft) * step_ratio;
      dx = (dx > 0 ? 1 : -1) * Math.ceil(Math.abs(dx));
      fm.style.left = fm.offsetLeft + dx;
    }

    if (fm.offsetTop != document.body.scrollTop + fm_y) {
      var dy = (document.body.scrollTop + fm_y - fm.offsetTop) * step_ratio;
      dy = (dy > 0 ? 1 : -1) * Math.ceil(Math.abs(dy));
      fm.style.top = fm.offsetTop + dy;
    }
    fm.style.display = '';
  }
}

addfollowmark("ad_dl01", 10, 102);
addfollowmark("ad_dl02", "document.body.clientWidth-100", 102);
setInterval('followmark()',20);
  </SCRIPT>
</p>
</body>
</html>
123

⌨️ 快捷键说明

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