用scrollby(px,px)移动多少或scrollto(px,px)移动到。

解决方案 »

  1.   

    非常感谢WYlslrt(WY.lslrt),问题已解决~~
      

  2.   

    再问一下,如果屏幕不满一屏,如何去掉这个这两个图片按钮呢?
    <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
    <!--#include file="conn.asp"-->
    <%
    Dim objRs,strSql
    strSql="SELECT * FROM cntinfo WHERE cnt_id="&Request.QueryString("cnt_id")
    Set objRs=objConn.Execute(strSql)
    If objRs.Eof Then
    Response.Write("数据库中无信息")
    End If
    %>
    <html>
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    <title><%=objRs("cnt_name")%></title>
    <style type="text/css">
    #item {position:absolute; visibility:hidden; left:0px}
    </style><SCRIPT LANGUAGE="JavaScript">
    <!-- 源代码作者: Brian Gosselin ([email protected]) -->
    <!-- 开始
    var isNS=(document.layers);
    var _all=(isNS)? '' : 'all.' ;
    var _style=(isNS)? '' : '.style' ;
    var _visible=(isNS)? 'show' : 'visible';
    var w_x, w_y, item, okscroll=false, godown;
    function init(){
    item=eval('document.'+_all+'item'+_style);
    getwindowsize();
    item.visibility=_visible;
    scrollpage();
    }
    function getwindowsize() {
    w_x=(isNS)? window.innerWidth-5 : document.body.clientWidth;
    w_y=(isNS)? window.innerHeight : document.body.clientHeight;
    (isNS)? item.clip.width=42: item.width=42;
    (isNS)? item.clip.height=20 : item.height=20;
    moveitem();
    }
    function resizeNS() {
    setTimeout('document.location.reload()',400);
    }
    function moveitem() {
    if (isNS) {
    item.moveTo((pageXOffset+w_x-48),(w_y+pageYOffset-108))
    }else{
    item.pixelLeft=document.body.scrollLeft+w_x-48;
    item.pixelTop=w_y+document.body.scrollTop-108;
    }
    }
    window.onload=init;
    (isNS) ? window.onresize=resizeNS : window.onresize=getwindowsize ;
    function scrollpage() {
    status = '';
    if (okscroll) {
    if (godown) {
    (isNS)? window.scrollBy(0,4) : window.scrollBy(0,4) ;
    } else {
    (isNS)? window.scrollBy(0,-4) : window.scrollBy(0,-4) ;
    }
    }
    moveitem();
    setTimeout('scrollpage()', 40);
    }
    // 结束 -->
    </script>
    </head><body bgcolor="#D9F0FF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
    <div id="item"> <a href="javascript:void(0)" onMouseover="okscroll=true; godown=false" onMouseout="okscroll=false"><img src="images/up.gif" width="45" height="50" border="0"></a> 
      <a href="javascript:void(0)" onMouseover="okscroll=true; godown=true" onMouseout="okscroll=false"><img src="images/down.gif" width="45" height="50" border="0"></a> 
    </div> <table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td><%=objRs("cnt_info")%>
        </td>
      </tr>
    </table>
    <%
    objRs.Close
    Set objRs=Nothing
    objConn.Close
    Set objConn=Nothing
    %>
    </body>
    </html>