link.asp

一套现成的分类信息网站发布系统

<DIV id=demo onmouseout=ii=0 onmouseover=ii=1 style="HEIGHT: 190px; OVERFLOW: hidden; width:172px">
<DIV id=demo1 style="width: 172px; height: 190px"><table width="96%"  border="0" cellspacing="0" cellpadding="3">
<%
dim linkrs,linksql
set linkrs=server.createobject("adodb.recordset")
linksql = "select top 50 * from link where yanz=1 order by jrsj desc"
linkrs.open linksql,conn,1,1
do while not linkrs.eof
%>
<tr><td width="172" height="0" align="center"><%if linkrs("logo")<>"" and linkrs("logo")<>"http://" then %><a target="_blank" title="<%=linkrs("web")%>-<%=linkrs("webabout")%>" href="<% =linkrs("url") %>">
<img src="<%=linkrs("logo")%>" width='88' height='31' style="border: 0px solid #C0C0C0; padding: 0" ></a><%else%><a href="<% =linkrs("url") %>" target="_blank" title="<%=linkrs("webabout")%>"><%=linkrs("web")%></a>
<%end if%></td></tr>
<%
linkrs.movenext
loop
%>
</table>
</DIV>
<DIV id=demo2></DIV>
<SCRIPT>
var ii=0;t=demo.scrollTop
demo2.innerHTML=demo1.innerHTML
function qswhMarquee(){
if (ii==1)return
if(demo2.offsetTop-demo.scrollTop<=0)
demo.scrollTop-=demo1.offsetHeight
else
demo.scrollTop++
}
setInterval(qswhMarquee,60)
</SCRIPT>
</DIV>