gg.asp

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

<DIV id=demo0 onmouseout=ii=0 onmouseover=ii=1 style="HEIGHT: 120px; OVERFLOW: hidden; width:172px">
<DIV id=demo10 style="width: 172px; height: 120px"><table width="170" border="0" style="border-collapse: collapse"  cellpadding="0" cellspacing="0" height="18">
<%
dim znrs
set znrs=server.createobject("adodb.recordset")
sql = "select top 15 * from gonggao order by id desc"
znrs.open sql,conn,1,1
do while not znrs.eof
%>
<tr>
<td width="160" height="18"><p style="margin-bottom: 0; margin-top:0"><font style="font-size: 9pt">·</font><A href="javascript:win=open('gonggao.asp?id=<%=znrs("id")%>','offer','width=560,height=450,status=no,menubar=yes,scrollbars=yes,top=0,left=0'); win.focus()" style="text-decoration: none"><font style="font-size: 9pt"><%=znrs("biaoti")%></font></a></td>
</tr>
<%
znrs.movenext
loop
%></table></DIV>
<DIV id=demo20></DIV>
<SCRIPT>
var ii=0;t=demo0.scrollTop
demo20.innerHTML=demo10.innerHTML
function qswhMarquee(){
if (ii==1)return
if(demo20.offsetTop-demo0.scrollTop<=0)
demo0.scrollTop-=demo10.offsetHeight
else
demo0.scrollTop++
}
setInterval(qswhMarquee,60)
</SCRIPT>
</DIV>