求教如何将一款左右滚动的图片js特效修改成由左右按钮控制的滚动图片特js特效

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>自动轮播代码</title>
</head>
<style type="text/css">
.rollBox{width:704px;overflow:hidden;padding:12px 0 5px 6px;}
.rollBox .LeftBotton{height:30px;width:19px;background:url(/images/btn_arrow_left.gif) no-repeat 4px 0;overflow:hidden;float:left;display:inline;margin:25px 0 0 0;cursor:pointer;}
.rollBox .RightBotton{height:52px;width:26px;background:url(/images/btn_arrow_right.gif) no-repeat 4px 0;overflow:hidden;float:left;display:inline;margin:25px 0 0 0;cursor:pointer;}
.rollBox .Cont{width:330px;overflow:hidden;float:left;}
.rollBox .ScrCont{width:10000000px;}
.rollBox .Cont .pic{width:80px;float:left;text-align:center;}
.rollBox .Cont .pic img{padding:4px;background:#fff;border:1px solid #ccc;display:block;margin:0 auto;}
.rollBox .Cont .pic p{line-height:26px;color:#505050;}
.rollBox .Cont a:link,.rollBox .Cont a:visited{color:#626466;text-decoration:none;}
.rollBox .Cont a:hover{color:#f00;text-decoration:underline;}
.rollBox #List1,.rollBox #List2{float:left;}
</style>
<body><form id="form1" name="form1" method="post" action=""><%
Dim connDB_ServerName ="(local)\SQLEXPRESS"                  '数据库名称(IP+实例名)
DB_UserName = "sa"                                                 'SQL用户名
DB_PassWord = "jacky.com"                                        'SQL用户密码
DB_DateBase = "WEBSITE"                                          '数据库名
DB_Provider = "SQLNCLI"                                          '驱动程序
sql = "Provider="&DB_Provider&"; UID="&DB_UserName&"; Pwd="&DB_PassWord&"; database="&DB_DateBase&"; Server="&DB_ServerName&";"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open sql
%>
<div class="rollBox">
     <div class="LeftBotton" onMouseDown="ISL_GoUp()" onMouseUp="ISL_StopUp()" onMouseOut="ISL_StopUp()"></div>
     <div class="Cont" id="ISL_Cont">
      <div class="ScrCont">
       <div id="List1">
        
<%
sql_luobo = "select * from [website].[dbo].[pro] where showindex<>0 order by ber desc"
Set rs_luobo = conn.Execute( sql_luobo )

while not rs_luobo.eof
%>
         <div class="pic">

          <a href="product/default.asp?prober=<%=rs_luobo("ber")%>" target="_blank"><img src='<%=rs_luobo("photos22")%>' height="70"   onload="return imgzoom(this,600); style="cursor:pointer;"/></a>   </div>
   <%  rs_luobo.MoveNext
   wend
rs_luobo.Close
set rs_luobo=nothing

%>
</div>

       <div id="List2"></div>

      </div>

     </div>

     <div class="RightBotton" onMouseDown="ISL_GoDown()" onMouseUp="ISL_StopDown()" onMouseOut="ISL_StopDown()"></div>   </div>
   </div>
   <script language="javascript" type="text/javascript">
var Speed = 0; //速度(毫秒)
var Space = 1; //每次移动(px)
var PageWidth = 528; //翻页宽度
var fill = 0; //整体移位
var MoveLock = false;
var MoveTimeObj;
var Comp = 0;
var AutoPlayObj = null;
GetObj("List2").innerHTML = GetObj("List1").innerHTML;
GetObj('ISL_Cont').scrollLeft = fill;
GetObj("ISL_Cont").onmouseover = function(){clearInterval(AutoPlayObj);}
GetObj("ISL_Cont").onmouseout = function(){AutoPlay();}
AutoPlay();
function GetObj(objName){if(document.getElementById){return eval('document.getElementById("'+objName+'")')}else{return eval('document.all.'+objName)}}
function AutoPlay(){ //自动滚动
clearInterval(AutoPlayObj);
AutoPlayObj = setInterval('ISL_GoDown();ISL_StopDown();',3000); //间隔时间
}
function ISL_GoUp(){ //上翻开始
if(MoveLock) return;
clearInterval(AutoPlayObj);
MoveLock = true;
MoveTimeObj = setInterval('ISL_ScrUp();',Speed);
}
function ISL_StopUp(){ //上翻停止
clearInterval(MoveTimeObj);
if(GetObj('ISL_Cont').scrollLeft % PageWidth - fill != 0){
  Comp = fill - (GetObj('ISL_Cont').scrollLeft % PageWidth);
  CompScr();
}else{
  MoveLock = false;
}
AutoPlay();
}
function ISL_ScrUp(){ //上翻动作 if(GetObj('ISL_Cont').scrollLeft <= 0){GetObj('ISL_Cont').scrollLeft = GetObj('ISL_Cont').scrollLeft + GetObj('List1').offsetWidth}
GetObj('ISL_Cont').scrollLeft -= Space ;
}
function ISL_GoDown(){ //下翻
clearInterval(MoveTimeObj);
if(MoveLock) return;
clearInterval(AutoPlayObj);
MoveLock = true;
ISL_ScrDown();
MoveTimeObj = setInterval('ISL_ScrDown()',Speed);
}
function ISL_StopDown(){ //下翻停止
clearInterval(MoveTimeObj);
if(GetObj('ISL_Cont').scrollLeft % PageWidth - fill != 0 ){
  Comp = PageWidth - GetObj('ISL_Cont').scrollLeft % PageWidth + fill;
  CompScr();
}else{
  MoveLock = false;
}
AutoPlay();
}
function ISL_ScrDown(){ //下翻动作
if(GetObj('ISL_Cont').scrollLeft >= GetObj('List1').scrollWidth){GetObj('ISL_Cont').scrollLeft = GetObj('ISL_Cont').scrollLeft - GetObj('List1').scrollWidth;}
GetObj('ISL_Cont').scrollLeft += Space ;
}
function CompScr(){
var num;
if(Comp == 0){MoveLock = false;return;}
if(Comp < 0){ //上翻
  if(Comp < -Space){
   Comp += Space;
   num = Space;
  }else{
   num = -Comp;
   Comp = 0;
  }
  GetObj('ISL_Cont').scrollLeft -= num;
  setTimeout('CompScr()',Speed);
}else{ //下翻
  if(Comp > Space){
   Comp -= Space;
   num = Space;
  }else{
   num = Comp;
   Comp = 0;
  }
  GetObj('ISL_Cont').scrollLeft += num;
  setTimeout('CompScr()',Speed);
}
}

</script>


</form>
</body>
</html>

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

最佳答案
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>自动轮播代码</title>
<style type="text/css">

</style>

</head>
<body>
<div class="rollBox">
<div class="LeftBotton" onMouseDown="ISL_GoUp()" onMouseUp="ISL_StopUp()" onMouseOut="ISL_StopUp()"></div>
<div class="Cont" id="ISL_Cont">
<div class="ScrCont">
<div id="List1">

<%
Dim conn
DB_ServerName ="(local)\SQLEXPRESS" '数据库名称(IP+实例名)
DB_UserName = "sa" 'SQL用户名
DB_PassWord = "jacky.com" 'SQL用户密码
DB_DateBase = "WEBSITE" '数据库名
DB_Provider = "SQLNCLI" '驱动程序
sql = "Provider="&DB_Provider&"; UID="&DB_UserName&"; Pwd="&DB_PassWord&"; database="&DB_DateBase&"; Server="&DB_ServerName&";"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open sql
sql_luobo = "select * from [website].[dbo].[pro] where showindex<>0 order by ber desc"
Set rs_luobo = conn.Execute( sql_luobo )
while not rs_luobo.eof
%>
  <div class="pic">
<a href="product/default.asp?prober=<%=rs_luobo("ber")%>" target="_blank"><img src="<%=rs_luobo("photos22")%>" height="70" onloadstyle="cursor:pointer;"/></a><span class="style2"><%=rs_luobo("name")%></span>
</div>
<% rs_luobo.MoveNext
  wend
rs_luobo.Close
set rs_luobo=nothing
%>
</div>
<div id="List2"></div>
</div>
</div>
<div class="RightBotton" onMouseDown="ISL_GoDown()" onMouseUp="ISL_StopDown()" onMouseOut="ISL_StopDown()"></div>
</div>
  </div>
<script language="javascript" type="text/javascript">
<![CDATA[//><!]]>
</script>
</body>
</html>
//欢迎各位同仁来转载交流