绿茶坊

纵向：   
   <%   
   sql="select    top    5    *    from    release    where    pid="&shengid&"    and    showflag=1    order    by    id    desc    "   
   set    getnews=server.createobject("adodb.recordset")   
   getnews.open    sql,strconn,3   
   %>   
   <table    width=98%    cellspacing=0      cellpadding=4    height=160      class=<%=getcss("p1c3table")%>1      bordercolor=<%=getcss("p1c3tablecolor")%>>   
   <tr>   
   <td>   
   <marquee    name='mymarquee'      height=160    behavior=scroll    direction=up        scrollamount=2    scrolldelay=120    onmouseover='this.stop()'    onmouseout='this.start()'>   
   <%   
   do    while    not    getnews.eof    %>   
   <p>   
   <img    src=images/1.gif>   
   <a    href=page3.asp?id=<%=getnews("id")%>&menustyle=release&ctype=1&sname=<%=request("sname")%>      target=_blank    >   
   <font    color=black><%=getnews("title")%></font><font    color=gray>(<%=ymd(getnews("pubtime"))%>)</font>   
   </a>   
   </p>   
   <%getnews.movenext     
       loop   
       set    getnews=nothing   
   %>   
   </marquee>   
   </td>   
   </tr>   
   </table>     
    
   横向（如新浪的新闻,动态的。）：   
   <table>   
   <tr    ><td>   
   <marquee    name='mymarquee'    behavior=scroll    direction=left    height=10      scrollamount=2      scrolldelay=120    onmouseover='this.stop()'    onmouseout='this.start()'>   
   <font    color=<%=getcss("marqueeword")%>><%=date%>&nbsp;&nbsp;<%    =    Session("UserName")    %>&nbsp;&nbsp;您好！</font>   
   <%    do    while    not    getm.eof    %>   
    
   <a    href=page3.asp?menustyle=release&id=<%=getm("id")%>&sname=<%=request("sname")%>      target=_blank>   
   <font    color=<%=getcss("marqueeword")%>><%=getm("title")%></font>   
   </a>   
   &nbsp;&nbsp;&nbsp;&nbsp;   
   <%   
   getm.movenext   
   loop   
   set    getm=nothing   
   %>   
   </marquee>   
   </td>   
   </tr>   
   </table>