move.asp

电影ASP文件

<!--#include file="film_conn.asp"-->
<script language="JavaScript">
<!--//
	var x = 0;
	var y = 0;
	var limdex = 900;
	var dest = 0;
	var distance = 0;
	var step = 0;
	var destination = 0;
	var on = true;

function scrollit(destination) {
	step = 1;
	dest = destination;
	if (x<dest & x < limdex){
		while (x<dest) {
			step += (step / 7);
			x += step;
			parent.frames[1].scroll(x,0);
		}  
                        // top.main.scroll(dest,0);
		if(dest <=limdex) { parent.frames[0].scroll(dest,0); }
		x = dest;
	}
	if (x > dest)  {
		while (x>dest) {
			step += (step / 7);
			if(x >= (0+step)) { x -= step; parent.frames[1].scroll(x,0); }
			else break;
		}
		if(dest >= 0) { parent.frames[1].scroll(dest,0); }
		x = dest;
	}
	if (x<1) { parent.frames[1].scroll(1,0); x=1 }
	if (x>limdex) { parent.frames[1].scroll(limdex,0); x=limdex }
	x = dest;
}

function scrollnow() {
                if (on){
                if (x < limdex & x >= 0 ) {              
                                parent.frames[1].scroll(x,0);
                            
                        x = x + 1;
                        setTimeout('scrollnow()', 8);
                }
                else if (x < 0) {
                        x = limdex;
                        scrollnow();
                }
            else {
                x=0;
                scrollnow();
                }
                }
}

// *********************************
// 去掉原来的stopscroll()
function stopscroll() {
        if (on){
        on = false;
        }
        else {
        on = true;
        scrollnow();
        }
        
}
function startscroll() { on = true; scrollnow(); }
function stop_start() { 
	if (on){ on = false;}else { on = true;scrollnow();}
}

scrollnow();

//-->
</script>
</head>
<TABLE height=96 cellSpacing=0 cellPadding=0 width=634 border=0>
  <TBODY>
  <%
dim sql
dim rs
set rs=server.createobject("adodb.recordset")
rs.open "select * from learning where canlook=3 and typeid<>'性教育' and typeid<>'黄金区' and typeid<>'经典区' and typeid<>'写真集' and typeid<>'精彩片段' order by articleid desc",conn,1,1
b=0
dim row_count
row_count=1
%>
  <TR>
  <%
do while not rs.eof
b=b+1
%>
    <TD width=114 height=100><A 
      href="view.asp?id=<%=rs("articleid")%>" target="_blank"><IMG 
      onmouseover=javascript:parent.frames[1].stopscroll(); 
      onmouseout=javascript:parent.frames[1].startscroll(); height=134 
      src="<%if rs("domurl")="" then%>IMAGES/nopic.gif<%else%><%=rs("domurl")%><%end if%>" width=110 border=0 title=<%=rs("title")%>></A></TD>
      <% if row_count mod 16 =0 then%>
    </TR>
    <%end if%>
<%
row_count=row_count+1
if b>=16 then exit do
rs.movenext
loop
rs.close
set rs=nothing
%>
</TBODY></TABLE>