mb_tj.asp

来自「全站生成htm静态页面」· ASP 代码 · 共 126 行

ASP
126 行
字号 
<!--#include file="conn2.asp"-->
<HTML><HEAD><TITLE>音乐酒吧 - 经典推荐 - Http://Mtv.Y98.Cn</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<STYLE type=text/css>BODY {
	PADDING-RIGHT: 0px; PADDING-LEFT: 0px; FONT-SIZE: 12px; PADDING-BOTTOM: 0px; MARGIN: 0px; COLOR: #636363; PADDING-TOP: 0px; FONT-FAMILY: sans-serif; HEIGHT: auto; BACKGROUND-COLOR: #fff
}
A:link {
	COLOR: #636363; TEXT-DECORATION: none
}
A:visited {
	COLOR: #636363; TEXT-DECORATION: none
}
A:active {
	COLOR: #333; TEXT-DECORATION: none
}
A:hover {
	COLOR: #06f; TEXT-DECORATION: blink
}
.imgs {
	PADDING-RIGHT: 2px; PADDING-LEFT: 2px; PADDING-BOTTOM: 0px; WIDTH: 66px; PADDING-TOP: 0px; HEIGHT: 80px
}
.imgs IMG {
	BORDER-RIGHT: 0px; BORDER-TOP: 0px; FLOAT: left; MARGIN: 0px 0px 0px 9px; BORDER-LEFT: 0px; WIDTH: 48px; BORDER-BOTTOM: 0px; HEIGHT: 48px
}
H1 {
	PADDING-RIGHT: 0px; PADDING-LEFT: 0px; FONT-WEIGHT: normal; FONT-SIZE: 12px; FLOAT: left; PADDING-BOTTOM: 0px; MARGIN: 0px; OVERFLOW: hidden; WIDTH: 66px; LINE-HEIGHT: 15px; PADDING-TOP: 0px; WHITE-SPACE: nowrap; HEIGHT: 30px
}
</STYLE>
<META content="MSHTML 6.00.3790.218" name=GENERATOR></HEAD>
<BODY>
<TABLE height=83 cellSpacing=0 cellPadding=0 width=547 border=0>
  <TBODY>
  <TR>
    <TD align=middle><SPAN id=icefable1>
      <TABLE cellSpacing=0 cellPadding=0 border=0>
        <TBODY>
        <TR align=middle><%
set rs=server.createobject("adodb.recordset")
i=0 
sql="SELECT * FROM mtvlist where isgood=0 order by hits desc"
rs.Open sql,conn,1,1
do while not rs.eof
i=i+1
%>
          <TD class=imgs><A 
            href="#"><IMG src="../picid/<%=rs("pic")%>.jpg" 
            alt="Good Time" border="0"></A>
            <H1><a href="../html/<%=rs("mtvlistID")%>.htm" target=_blank><%=rs("name")%></A><BR>
            <a href="../mtv/<%=rs("NClassID")%>_1.htm" target=_blank><%=rs("Nclass")%></A></H1></TD>
<%  
if i>=8 then exit do  
rs.movenext  
loop
rs.close
%></TR></TBODY></TABLE>
      <TABLE cellSpacing=0 cellPadding=0 border=0>
        <TBODY>
<%
set rs=server.createobject("adodb.recordset")
i=0 
sql="SELECT * FROM mtvlist where isgood=1 order by hits desc"
rs.Open sql,conn,1,1
do while not rs.eof
i=i+1
%>
          <TD class=imgs><A 
            href="#"><IMG src="../picid/<%=rs("pic")%>.jpg" 
            alt="Good Time" border="0"></A>
            <H1><a href="../html/<%=rs("mtvlistID")%>.htm" target=_blank><%=rs("name")%></A><BR>
            <a href="../mtv/<%=rs("NClassID")%>_1.htm" target=_blank><%=rs("Nclass")%></A></H1></TD>
<%  
if i>=8 then exit do  
rs.movenext  
loop
rs.close
%></TR>
        </TABLE></SPAN></TD></TR></TBODY></TABLE>
<SCRIPT>
marqueesHeight=80;
stopscroll=false;
with(icefable1){
	  style.width=0;
	  style.height=marqueesHeight;
	  style.overflowX="visible";
	  style.overflowY="hidden";
	  noWrap=true;
	  onmouseover=new Function("stopscroll=true");
	  onmouseout=new Function("stopscroll=false");
  }
  preTop=0; currentTop=80; stoptime=0;
  icefable1.innerHTML+=icefable1.innerHTML;
  

function init_srolltext(){
  icefable1.scrollTop=0;
  setInterval("scrollUp()",35);
}
init_srolltext();

function scrollUp(){
  if(stopscroll==true) return;
  currentTop+=1;
  if(currentTop==81)
  {
  	stoptime+=1;
  	currentTop-=1;
  	if(stoptime==100) 
  	{
  		currentTop=0;
  		stoptime=0;  		
  	}
  }
  else {  	
	  preTop=icefable1.scrollTop;
	  icefable1.scrollTop+=1;
	  if(preTop==icefable1.scrollTop){
	    icefable1.scrollTop=80;
	    icefable1.scrollTop+=1;
	    
	  }
  }

}
</SCRIPT>
</BODY></HTML>

mb_tj.asp - 源码说明

本页面展示了「全站生成htm静态页面」中的 mb_tj.asp 源码文件，采用 ASP 编程语言编写，共 126 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与htm相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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