index_sitenews.asp

基于ＡＳＰ的教育网站

<%
Dim RsSiteNews
Dim RsSiteNews_numRows

Set RsSiteNews = Server.CreateObject("ADODB.Recordset")
RsSiteNews.ActiveConnection = MM_connDB_STRING
RsSiteNews.Source = "SELECT * FROM tSiteNews ORDER BY fUpdateTime DESC"
RsSiteNews.CursorType = 0
RsSiteNews.CursorLocation = 2
RsSiteNews.LockType = 1
RsSiteNews.Open()

RsSiteNews_numRows = 0
%>
<%
'Dim Repeat2__numRows
'Dim Repeat2__index

Repeat2__numRows = 7
Repeat2__index = 0
RsSiteNews_numRows = RsSiteNews_numRows + Repeat2__numRows
%>
<table width="765" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr valign="top">
    <td width="190"><!--#include file="index_NewNotice.asp"--></td>
    <td width=6 background=images/index_5.gif></td>
    <td width="350">
	<TABLE cellSpacing=0 cellPadding=0 width=100% border=0 align="center">
				<TR>
                <TD width=16><IMG height=41  
                  src="images/index1_1.gif" width=16></TD>
                <TD height="41" background=images/index1_2.gif><IMG src="images/d5.gif">&nbsp;本站最新信息</TD>
                <TD background=images/index1_5.gif><div align="left"><IMG 
                  height=41  src="images/index1_4.gif" width=30></div></TD>
                <TD width=14><IMG height=41  
                  src="images/index1_7.gif" width=14></TD></TR>
              <TR>
                <TD height="135" background="images/index1_8.gif"> </TD>
                <TD colSpan=2 valign="top" background=images/index1_9.gif><table border="0">
                  <% 
While ((Repeat2__numRows <> 0) AND (NOT RsSiteNews.EOF)) 
%>
                  <tr>
                      <td width="15"><IMG height=8 src="images/dd.gif" width=8 border=0></td>
                      <td><a href="index_SiteNews_Content.asp?fID_SiteNewsContent=<%=(RsSiteNews.Fields.Item("fID_SiteNewsContent").Value)%>" target="_blank" title="<%=(RsSiteNews.Fields.Item("fTitle").Value)%>
时间：<%=(RsSiteNews.Fields.Item("fUpdateTime").Value)%>" >
					  <%if len(RsSiteNews.Fields.Item("fTitle").Value)<24 then %>
					  <%=(RsSiteNews.Fields.Item("fTitle").Value)%>
					  <%else%>
					  <%=mid((RsSiteNews.Fields.Item("fTitle").Value),1,23)%>…<% End If %>
					  </a></td>
                  </tr>
                    <% 
  Repeat2__index=Repeat2__index+1
  Repeat2__numRows=Repeat2__numRows-1
  RsSiteNews.MoveNext()
Wend
%>				  
                  <tr>
                    <td>&nbsp;</td>
                    <td><div align="right">
                      <% If Not RsSiteNews.EOF Or Not RsSiteNews.BOF Then %>
                          <a href="index_SiteNews_list.asp"><IMG height=17 src="images/more.gif"  alt="更多内容" width=35  border=0></a>
                        <% End If ' end Not RsSiteNews.EOF Or NOT RsSiteNews.BOF %>
</div></td>
                  </tr>

                </table></TD>
                <TD background="images/index1_10.gif"> </TD>
              </TR>
              <TR>
                <TD valign="top"><IMG height=18 src="images/index1_11.gif" width=16></TD>
                <TD background=images/index1_12.gif colSpan=2></TD>
				<TD><IMG height=18  src="images/index1_13.gif" width=14></TD>
		</TR></TABLE>
	</td>
	<td><!--#include file="index_NewSoftDown.asp"--></td>
  </tr>
</table>

<%
RsSiteNews.Close()
Set RsSiteNews = Nothing
%>