index_news.asp

来自「asp的网上卖东西的..看看还可以的吧」· ASP 代码 · 共 86 行

<TABLE cellSpacing=0 cellPadding=0 width=243 border=0>
      <TBODY>
        <TR>
          <TD width="243">
            <TABLE cellSpacing=0 cellPadding=0 width=230 
                              border=0>
              <TBODY>
                <TR>
                  <TD>
                    <TABLE class=basic_normal cellSpacing=0 
                                cellPadding=0 width=230 border=0>
                      <TBODY>
                        <TR>
                          <TD  
                                style="font-size: 10pt;	font-weight: bold;PADDING-RIGHT: 0px; PADDING-LEFT: 0px; PADDING-BOTTOM: 0px; PADDING-TOP: 5px" 
                                height=24><img src="images/sub_noti_icon.gif" width="16" height="15">商城动态</TD>
                          <TD  
                                style="PADDING-RIGHT: 0px; PADDING-LEFT: 0px; PADDING-BOTTOM: 0px; PADDING-TOP: 10px" 
                                width=61><A 
                                href="">更多</A></TD>
                        </TR>
                      </TBODY>
                  </TABLE></TD>
                </TR>
                <TR>
                  <TD background=images/content_sunbg.gif 
                                height=2></TD>
                </TR>
                <TR>
                  <TD height=5></TD>
                </TR>
                <TR>
                  <TD>
                    <TABLE class=noti_text cellSpacing=0 
                                cellPadding=0 width=230 border=0>
                      <TBODY>
<%'dim i
		  i=0
		  set rs=server.CreateObject("adodb.recordset")
		  rs.open "select top 6 newsname,adddate,newsid from BJX_news order by adddate desc",conn,1,1
		  if rs.eof and rs.bof then
		  response.write "目前还没有新闻！"
		  else
		  do while not rs.eof
		  i=i+1%>
                        <TR>
                          <TD  height=18><IMG height=2 
                                src="images/jum_bullet.gif" width=12 
                                align=absMiddle><%if len(trim(rs("newsname")))>19 then
		  response.write "<a href=""news.asp?id="&rs("newsid")&""" title="&year(rs("adddate"))&"年"&month(rs("adddate"))&"月"&day(rs("adddate"))&"日发布>"&left(trim(rs("newsname")),17)&"...."&"</a><br>"
		  else
		  response.write "<a href=""news.asp?id="&rs("newsid")&""" title="&year(rs("adddate"))&"年"&month(rs("adddate"))&"月"&day(rs("adddate"))&"日发布>"&trim(rs("newsname"))&"</a>"
		  end if%></TD>
                        </TR>
<%if i>=6 then exit do
rs.movenext
		  loop
		  end if
		  rs.close
		  set rs=nothing%>
                      </TBODY>
                  </TABLE></TD>
                </TR>
              </TBODY>
            </TABLE>
            <TABLE cellSpacing=0 cellPadding=0 width=230 
                              border=0>
              <TBODY>
                <TR>
                  <TD height=5></TD>
                </TR>
                <TR>
                  <TD><A 
                                href="<%=you1url%>"><IMG 
                                height=36  
                                src="<%=you1%>" width=230 
                                border=0></A></TD>
                </TR>
              </TBODY>
          </TABLE></TD>
        </TR>
        <TR>
          <TD height=10></TD>
        </TR>
      </TBODY>
    </TABLE>