right.asp

医药进销存管理系统 全代码 很详细 可惜没有数据库 可供参考

<style type="text/css">
<!--
.style3 {
	color: #5500AA;
	font-weight: bold;
}
.style4 {color: #FFFFFF}
.style5 {color: #FFFFFF; font-weight: bold; }
-->
</style>
<div align="center">
  <table width="98%"  border="0" cellpadding="1" cellspacing="0">
    <tr>
      <td width="47%" height="28" valign="bottom" background="images/title_blue.gif"><div class="style5">&nbsp;公 告</div></td>
      <td width="11%" background="images/title_blue_1.gif">&nbsp;</td>
      <td width="42%" valign="bottom" background="images/title_blue_2.gif"><div align="right"><img src="images/sound.gif"></div></td>
    </tr>
    <tr valign="top">
      <td  height="100" colspan="3">
         <table width="96%" border="0" height="100" align="center" cellpadding="2" cellspacing="2">
		     <tr>
			     <td><marquee direction="up" onMouseOver="this.stop();" onMouseOut="this.start();" height="100" scrollamount="3">
			 	   <%
	  set rs=conn.execute("select top 10 * from tb_NoticeBBS order by idx desc")
	  i=1
	  do while not rs.eof
	  %>
	  <%=i&"."&rs("title")&"<br><br>"%>
	  <%
	  rs.movenext
	  i=i+1
	  loop
	  rs.close
	  %>
	  </marquee>
			     </td>
			 </tr>
	    </table>
	  </td>
    </tr>
    <tr>
      <td width="47%" height="28" valign="bottom" background="images/title_blue.gif" class="td"><div class="style5">连锁店列表</div></td>
      <td width="11%" background="images/title_blue_1.gif">&nbsp;</td>
      <td width="42%" valign="bottom" background="images/title_blue_2.gif"><div align="right"><img src="images/favorite.gif"></div></td>
    </tr>
    <tr>
      <td colspan="3"><table width="96%" border="0" align="center" cellpadding="2" cellspacing="2">
        <tr><td>
		  <%
		  set rs=conn.execute("select * from tb_User  where Flag='0' order by UserId")
		  if rs.eof then
		  %>
		  正在组建。。。
		  <%
		  else
		  %>
		  <marquee direction="left" height="2" onMouseOver="this.stop();" onMouseOut="this.start();" scrollamount="3">
		  <%
		    do while not rs.eof
	      %>
		    <%=rs("UserId")%>.<%=rs("UserName")%>hj
			<%
			rs.movenext
			loop
			%>
		  </marquee>
		  <%
		  end if
		  rs.close
		  %></td><tr>
        </tr>
      </table></td>
    </tr>
	    <tr>
      <td width="47%" height="28" valign="bottom" background="images/title_blue.gif"><div class="style5">&nbsp;最新留言</div></td>
      <td width="11%" background="images/title_blue_1.gif">&nbsp;</td>
      <td width="42%" valign="bottom" background="images/title_blue_2.gif"><div align="right"><img src="images/icon03.gif"></div></td>
    </tr>
    <tr>
      <td colspan="3"><table width="96%" border="0" align="center" cellpadding="2" cellspacing="2">
        <%
		rs.open "select top 10 * from tb_BBS where upid=0 order by Id desc"
		do while not rs.eof
		%>
		<tr>
            <td>
			<%if len(rs("title"))<10 then%>
			<a href="readask.asp?id=<%=rs("Id")%>"><%=rs("title")%></a>
			<%
			else
			response.write "<a href=readask.asp?id="&rs("Id")&">"&left(rs("title"),8)&"...</a>"
			end if
			%>
			</td>
        </tr>
		<%
		rs.movenext
		loop
		rs.close
		set rs=nothing
		%>
      </table></td>
    </tr>
  </table>
</div>