[艺壶网]发布连续滚动图片的代码，包括htm版和asp版

asp版
------------------------------------
<HTML>
<HEAD>
<TITLE> www.zishapote.com </TITLE>
<script language="javascript">
//***********************************
// 艺壶网  http://www.zishapot.com/
// 作者    [email protected]
// 连续滚动图片
// 如转载请保留本注释，谢谢
//***********************************
</script>
</HEAD><BODY>
<SCRIPT language=Javascript>
<%
Dim MarqueeIndex,MarqueeSQL
MarqueeSQL = "SELECT * FROM YOUR_TABLE_NAME WHERE LAN_ID = '" & LCase(Lan) & "' "
MarqueeSQL = MarqueeSQL & "AND GOODS_MARQUEE = True "
MarqueeSQL = MarqueeSQL & "AND DELETE_DATE IS NULL "
MarqueeSQL = MarqueeSQL & "ORDER BY UPDATE_DATE DESC"
DebugWrite("MarqueeSQL=" & MarqueeSQL)
ObjRs.Open MarqueeSQL,ObjConn,1,1
Response.Write "document.write('<table align=center width=780 border=0 cellpadding=0 cellspacing=0 style=BORDER-LEFT: #cccccc 1px solid;BORDER-RIGHT: #cccccc 1px solid>');"
Response.Write "document.write('    <tr> ');"
Response.Write "document.write('     <td width=780 height=90 align=center class=border01 bgcolor=#FFFFFF>');"
Response.Write "document.write('      <div id=demo style=overflow:hidden;width:750;align=center>');"
Response.Write "document.write('        <table border=0 align=center cellpadding=1 cellspacing=1 cellspace=0 >');"
Response.Write "document.write('         <tr>');"
Response.Write "document.write('           <td valign=top bgcolor=ffffff id=marquePic1> ');"
Response.Write "document.write('             <table width=90% border=0 cellspacing=0 cellpadding=0>');"
Response.Write "document.write('               <tr align=center> ');"
If ObjRs.Bof Or ObjRs.Eof Then
Response.Write "document.write('                <td><img src=images/cn/noSmallImg.gif width=70 height=70 hspace=2 border=0></a></td>');"
Else
ObjRs.MoveFirst
For MarqueeIndex = 0 To GOODS_MARQUEE_NUM
Response.Write "document.write('            <td><a href=excute.asp?cmd=goods_detail&lan=" & LCase(Lan) & "&id=" & ObjRs("GOODS_ID") & "><img src=images/goods/" & ObjRs("GOODS_ID") & "/marquee.gif width=100 height=75 hspace=2 border=0></a></td>');"
ObjRs.MoveNext
If ObjRs.Eof Then ObjRs.MoveFirst
Next
End If
ObjRs.Close
Response.Write "document.write('      </tr>');"
Response.Write "document.write('           </table>');"
Response.Write "document.write('           </td>');"
Response.Write "document.write('       <td id=marquePic2 valign=top></td>');"
Response.Write "document.write('         </tr>');"
Response.Write "document.write('        </table>');"
Response.Write "document.write('       </div>');"
Response.Write "document.write('      </td>');"
Response.Write "document.write('    </tr>');"
Response.Write "document.write('  </table>');"
Response.Write "var speed=30" & Chr(10)
Response.Write "marquePic2.innerHTML=marquePic1.innerHTML" & Chr(10)
Response.Write "function Marquee(){" & Chr(10)
Response.Write "if(demo.scrollLeft>=marquePic1.scrollWidth){" & Chr(10)
Response.Write "demo.scrollLeft=0" & Chr(10)
Response.Write "}else{" & Chr(10)
Response.Write "demo.scrollLeft++" & Chr(10)
Response.Write "}" & Chr(10)
Response.Write "}" & Chr(10)
Response.Write "var MyMar=setInterval(Marquee,speed)" & Chr(10)
Response.Write "demo.onmouseover=function() {clearInterval(MyMar)}" & Chr(10)
Response.Write "demo.onmouseout=function() {MyMar=setInterval(Marquee,speed)}" & Chr(10)
%>
</SCRIPT>
</BODY>
</HTML>