dm_news.asp

一个企业管理ASP源码.增加了一些新的功能.

<table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td class="title_right" width="23%" height="32">&nbsp;&nbsp;&nbsp;<img src="Images/smallbook.jpg" width="10" height="10">&nbsp;&nbsp;News 
                  </td> 
               
                <td class="title_right" width="77%">
 <MARQUEE scrollAmount=1 scrollDelay=4 width=420
            align="left" onmouseover="this.stop()" onmouseout="this.start()">
        <% 
		if PopAnnounce="Yes" then
		call ShowAnnounce(5)
		end if
		 %>
        </MARQUEE>
                </td>
              </tr>
            </table>
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="49%">　Company news&gt;&gt;</td>
                <td width="51%">　Industry news&gt;&gt;</td>
              </tr>
              <tr> 
                <td colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td height="100" colspan="2"> 
                        <%
set rs_news=server.createobject("adodb.recordset")
sqltext4="select top " & New_count & " * from news where BigClassName='Company news' order by id desc"
rs_news.open sqltext4,conn,1,1				 	
%>
                        <table width="100%" border="0" cellspacing="1" cellpadding="0">
                          <tr> 
                            <td width="7%" height="8"></td>
                            <td width="93%"></td>
                          </tr>
                          <%i=0
do while not rs_news.eof%>
                          <tr align="center"> 
                            <td><img src="Img/arrow_6.gif" width="11" height="11"> 
                            </td>
                            <td style='BORDER-bottom: #999999 1px dotted'> <div align="left"> 
                                <p style='line-height:150%'><a href="shownews.asp?id=<%=rs_news("id")%>" target="_blank"> 
                                  <%=cutstr(rs_news("title"),22)%></a><br>
                              </div></td>
                          </tr>
                          <%rs_news.movenext
i=i+1
loop
rs_news.close %>
                          <tr> 
                            <td height="8"></td>
                            <td></td>
                          </tr>
                        </table></td>
                      <td width="51%" colspan="2"> 
                        <%
set rs_news=server.createobject("adodb.recordset")
sqltext4="select top " & New_count & " * from news where BigClassName='Industry news' order by id desc"
rs_news.open sqltext4,conn,1,1				 	
%>
                        <table width="100%" border="0" cellspacing="1" cellpadding="0">
                          <tr> 
                            <td width="6%" height="8"></td>
                            <td width="94%"></td>
                          </tr>
                          <%i=0
do while not rs_news.eof%>
                          <tr align="center"> 
                            <td><img src="Img/arrow_6.gif" width="11" height="11"> 
                            </td>
                            <td style='BORDER-bottom: #999999 1px dotted'> <div align="left"> 
                                <p style='line-height:150%'><a href="shownews.asp?id=<%=rs_news("id")%>" target="_blank"> 
                                  <%=cutstr(rs_news("title"),20)%></a> <br>
                              </div></td>
                          </tr>
                          <%rs_news.movenext
i=i+1
loop
rs_news.close %>
                          <tr> 
                            <td height="8"></td>
                            <td></td>
                          </tr>
                        </table></td>
                    </tr>
                    <tr> 
                      <td colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                          <tr> 
                            <td height="15"> <div align="right"><img src="Images/more_1.gif" width="85" height="27" border="0" usemap="#Map2Map"> 
                                <map name="Map2Map">
                                  <area shape="rect" coords="21,15,71,25" href="otype.asp?owen1=Company news">
                                </map>
                              </div></td>
                          </tr>
                        </table></td>
                      <td colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                          <tr> 
                            <td><div align="right"><img src="Images/more_1.gif" width="85" height="27" border="0" usemap="#Map2"></div></td>
                          </tr>
                        </table></td>
                    </tr>
                  </table>
                  <map name="Map2">
                    <area shape="rect" coords="22,15,72,25" href="otype.asp?owen1=Industry news">
                  </map></td>
              </tr>
            </table>