
关于ASP网站首页调用所有图片向左滚动
请各位朋友帮我一下,因为刚学,不太懂。下面是我首页代码,如何调用所有图片并向左滚动起来<%@LANGUAGE=VBScriptCodePage=936%><!--#inc...
请各位朋友帮我一下,因为刚学,不太懂。下面是我首页代码,如何调用所有图片并向左滚动起来
<%@ LANGUAGE=VBScript CodePage=936%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->
<!--#include file="Head.asp"-->
<%
Table_List="Tx_Prclass"
FileName="Prclass"
Page_Name=Web_Const(0)
Call Page_Head()
Call Page_iHead()
%>
<TABLE WIDTH="770 BORDER="0" ALIGN="center" CEllPADDING="0" CELLSPACING="0">
<TR>
<TD WIDTH="195" VALIGN="top" CLASS="TABLE-Side">
<DIV CLASS='TABLE-side1'><SPAN CLASS="type-color1">相关资讯</SPAN></DIV><DIV CLASS='TABLE-side3'><%call Page_Inform(120,2)%></DIV>
<DIV CLASS='TABLE-side1'><SPAN CLASS="type-color1">产品分类</SPAN></DIV><DIV CLASS='TABLE-side3'><%call Parent_xClass()%></DIV>
<DIV CLASS='TABLE-side1'><SPAN CLASS="type-color1">本站调查</SPAN></DIV><DIV CLASS='TABLE-side3'><%Call Page_Vote()%></DIV>
</TD>
<TD WIDTH="5"></TD>
<TD VALIGN="top" CLASS="index-Main">
<DIV CLASS="index-name"><SPAN CLASS="index-name1">所有产品</SPAN><SPAN CLASS="index-more"><A HREF="Prclass.asp" TITLE="更多产品..."><IMG SRC="Skins/Blue/more.jpg" BORDER="0"></A></SPAN></DIV>
<DIV CLASS="index-content"><%Call Index_Products()%></DIV>
<DIV CLASS="index-name"><SPAN CLASS="index-name1">工程案例</SPAN><SPAN CLASS="index-more"><A HREF="Work.asp" TITLE="更多工程案例..."><IMG SRC="Skins/Blue/more.jpg" BORDER="0"></A></SPAN></DIV>
<DIV CLASS="index-content"><%Call Index_Work()%></DIV>
</TD>
</TR>
</TABLE>
<%
Call Index_Link()
Call Page_iBottom()
Call Page_Bottom()
Call CloseConn()
%>
我是想让所有产品里的调用图片向左滚动,你做的这个现在所有的栏目都在向左滚动,也就是整个网站除头部和尾部,中间所有部分全都左移。。。。 展开
<%@ LANGUAGE=VBScript CodePage=936%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->
<!--#include file="Head.asp"-->
<%
Table_List="Tx_Prclass"
FileName="Prclass"
Page_Name=Web_Const(0)
Call Page_Head()
Call Page_iHead()
%>
<TABLE WIDTH="770 BORDER="0" ALIGN="center" CEllPADDING="0" CELLSPACING="0">
<TR>
<TD WIDTH="195" VALIGN="top" CLASS="TABLE-Side">
<DIV CLASS='TABLE-side1'><SPAN CLASS="type-color1">相关资讯</SPAN></DIV><DIV CLASS='TABLE-side3'><%call Page_Inform(120,2)%></DIV>
<DIV CLASS='TABLE-side1'><SPAN CLASS="type-color1">产品分类</SPAN></DIV><DIV CLASS='TABLE-side3'><%call Parent_xClass()%></DIV>
<DIV CLASS='TABLE-side1'><SPAN CLASS="type-color1">本站调查</SPAN></DIV><DIV CLASS='TABLE-side3'><%Call Page_Vote()%></DIV>
</TD>
<TD WIDTH="5"></TD>
<TD VALIGN="top" CLASS="index-Main">
<DIV CLASS="index-name"><SPAN CLASS="index-name1">所有产品</SPAN><SPAN CLASS="index-more"><A HREF="Prclass.asp" TITLE="更多产品..."><IMG SRC="Skins/Blue/more.jpg" BORDER="0"></A></SPAN></DIV>
<DIV CLASS="index-content"><%Call Index_Products()%></DIV>
<DIV CLASS="index-name"><SPAN CLASS="index-name1">工程案例</SPAN><SPAN CLASS="index-more"><A HREF="Work.asp" TITLE="更多工程案例..."><IMG SRC="Skins/Blue/more.jpg" BORDER="0"></A></SPAN></DIV>
<DIV CLASS="index-content"><%Call Index_Work()%></DIV>
</TD>
</TR>
</TABLE>
<%
Call Index_Link()
Call Page_iBottom()
Call Page_Bottom()
Call CloseConn()
%>
我是想让所有产品里的调用图片向左滚动,你做的这个现在所有的栏目都在向左滚动,也就是整个网站除头部和尾部,中间所有部分全都左移。。。。 展开
展开全部
我不知道 你想要哪个图片向左动起来 我给你做一个 吧所有都像左动起来 剩下的你自己调整吧
<%@ LANGUAGE=VBScript CodePage=936%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->
<!--#include file="Head.asp"-->
<%
Table_List="Tx_Prclass"
FileName="Prclass"
Page_Name=Web_Const(0)
Call Page_Head()
Call Page_iHead()
%>
<div id="demo" style="OVERFLOW: hidden; WIDTH:985; COLOR: #000000">
<table width="985" border="0" align="center" cellpadding="0" cellspacing="0" cellspace="0">
<tbody>
<tr>
<td width="985" valign="top" id="demo1"><table width="985" height="60" border="0" cellpadding="0" cellspacing="3" >
<tr><td width="100%" height="60"><div >
<table width="100" border="0" cellspacing="0">
<tr>
<td><table width="300" border="0" cellspacing="0">
<tr>
<td> <TABLE WIDTH="770" BORDER="0" ALIGN="center" CEllPADDING="0" CELLSPACING="0">
<TR>
<TD WIDTH="195" VALIGN="top" CLASS="TABLE-Side">
<DIV CLASS='TABLE-side1'><SPAN CLASS="type-color1">相关资讯</SPAN></DIV><DIV CLASS='TABLE-side3'><%call Page_Inform(120,2)%></DIV>
<DIV CLASS='TABLE-side1'><SPAN CLASS="type-color1">产品分类</SPAN></DIV><DIV CLASS='TABLE-side3'><%call Parent_xClass()%></DIV>
<DIV CLASS='TABLE-side1'><SPAN CLASS="type-color1">本站调查</SPAN></DIV><DIV CLASS='TABLE-side3'><%Call Page_Vote()%></DIV>
</TD>
<TD WIDTH="5"></TD>
<TD VALIGN="top" CLASS="index-Main">
<DIV CLASS="index-name"><SPAN CLASS="index-name1">所有产品</SPAN><SPAN CLASS="index-more"><A HREF="Prclass.asp" TITLE="更多产品..."><IMG SRC="Skins/Blue/more.jpg" BORDER="0"></A></SPAN></DIV>
<DIV CLASS="index-content"><%Call Index_Products()%></DIV>
<DIV CLASS="index-name"><SPAN CLASS="index-name1">工程案例</SPAN><SPAN CLASS="index-more"><A HREF="Work.asp" TITLE="更多工程案例..."><IMG SRC="Skins/Blue/more.jpg" BORDER="0"></A></SPAN></DIV>
<DIV CLASS="index-content"><%Call Index_Work()%></DIV>
</TD>
</TR>
</TABLE></td>
</tr>
</table></td>
</tr>
<tr>
<td height="1" align="center"></td>
</tr>
</table>
</div></td>
</tr>
</table></td>
<td width="10" valign="top" id="demo2"> </td>
</tr>
</tbody>
</table>
</div>
<script>
var speed3=25//速度数值越大速度越慢
demo2.innerHTML=demo1.innerHTML
function Marquee(){
if(demo2.offsetWidth-demo.scrollLeft<=0)
demo.scrollLeft-=demo1.offsetWidth
else{
demo.scrollLeft++
}
}
var MyMar=setInterval(Marquee,speed3)
demo.onmouseover=function() {clearInterval(MyMar)}
demo.onmouseout=function() {MyMar=setInterval(Marquee,speed3)}
</script>
<%
Call Index_Link()
Call Page_iBottom()
Call Page_Bottom()
Call CloseConn()
%>
<%@ LANGUAGE=VBScript CodePage=936%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->
<!--#include file="Head.asp"-->
<%
Table_List="Tx_Prclass"
FileName="Prclass"
Page_Name=Web_Const(0)
Call Page_Head()
Call Page_iHead()
%>
<div id="demo" style="OVERFLOW: hidden; WIDTH:985; COLOR: #000000">
<table width="985" border="0" align="center" cellpadding="0" cellspacing="0" cellspace="0">
<tbody>
<tr>
<td width="985" valign="top" id="demo1"><table width="985" height="60" border="0" cellpadding="0" cellspacing="3" >
<tr><td width="100%" height="60"><div >
<table width="100" border="0" cellspacing="0">
<tr>
<td><table width="300" border="0" cellspacing="0">
<tr>
<td> <TABLE WIDTH="770" BORDER="0" ALIGN="center" CEllPADDING="0" CELLSPACING="0">
<TR>
<TD WIDTH="195" VALIGN="top" CLASS="TABLE-Side">
<DIV CLASS='TABLE-side1'><SPAN CLASS="type-color1">相关资讯</SPAN></DIV><DIV CLASS='TABLE-side3'><%call Page_Inform(120,2)%></DIV>
<DIV CLASS='TABLE-side1'><SPAN CLASS="type-color1">产品分类</SPAN></DIV><DIV CLASS='TABLE-side3'><%call Parent_xClass()%></DIV>
<DIV CLASS='TABLE-side1'><SPAN CLASS="type-color1">本站调查</SPAN></DIV><DIV CLASS='TABLE-side3'><%Call Page_Vote()%></DIV>
</TD>
<TD WIDTH="5"></TD>
<TD VALIGN="top" CLASS="index-Main">
<DIV CLASS="index-name"><SPAN CLASS="index-name1">所有产品</SPAN><SPAN CLASS="index-more"><A HREF="Prclass.asp" TITLE="更多产品..."><IMG SRC="Skins/Blue/more.jpg" BORDER="0"></A></SPAN></DIV>
<DIV CLASS="index-content"><%Call Index_Products()%></DIV>
<DIV CLASS="index-name"><SPAN CLASS="index-name1">工程案例</SPAN><SPAN CLASS="index-more"><A HREF="Work.asp" TITLE="更多工程案例..."><IMG SRC="Skins/Blue/more.jpg" BORDER="0"></A></SPAN></DIV>
<DIV CLASS="index-content"><%Call Index_Work()%></DIV>
</TD>
</TR>
</TABLE></td>
</tr>
</table></td>
</tr>
<tr>
<td height="1" align="center"></td>
</tr>
</table>
</div></td>
</tr>
</table></td>
<td width="10" valign="top" id="demo2"> </td>
</tr>
</tbody>
</table>
</div>
<script>
var speed3=25//速度数值越大速度越慢
demo2.innerHTML=demo1.innerHTML
function Marquee(){
if(demo2.offsetWidth-demo.scrollLeft<=0)
demo.scrollLeft-=demo1.offsetWidth
else{
demo.scrollLeft++
}
}
var MyMar=setInterval(Marquee,speed3)
demo.onmouseover=function() {clearInterval(MyMar)}
demo.onmouseout=function() {MyMar=setInterval(Marquee,speed3)}
</script>
<%
Call Index_Link()
Call Page_iBottom()
Call Page_Bottom()
Call CloseConn()
%>
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询