index_article_hot.asp

基于ＡＳＰ的教育网站

<%
Dim RsArticleHot
Dim RsArticleHot_numRows

Set RsArticleHot = Server.CreateObject("ADODB.Recordset")
RsArticleHot.ActiveConnection = MM_connDB_STRING
RsArticleHot.Source = "SELECT fID_ArticleContent, fTitle FROM tArticleContent ORDER BY fHits DESC"
RsArticleHot.CursorType = 0
RsArticleHot.CursorLocation = 2
RsArticleHot.LockType = 1
RsArticleHot.Open()

RsArticleHot_numRows = 0
%>
<%
'Dim Repeat1__numRows
'Dim Repeat1__index

Repeat1__numRows = 8
Repeat1__index = 0
RsArticleHot_numRows = RsArticleHot_numRows + Repeat1__numRows
%>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
             
              <TR>
                <TD background=images/index1_2.gif><IMG height=41  
                  src="images/index1_1.gif" width=16></TD>
                <TD><IMG height=41  src="images/index1_2.gif" 
                  width=10></TD>
                <TD width=89 background=images/index1_2.gif height=41>热门文章</TD>
                <TD background=images/index1_5.gif><IMG height=41  src="images/index1_4.gif" width=30></TD>
                <TD width=140 background=images/index1_5.gif></TD>
                <TD><IMG height=41  src="images/index1_7.gif" width=14></TD></TR>
              <TR>
                <TD background=images/index1_8.gif>&nbsp;</TD>
                <TD vAlign=top background=images/index1_9.gif colSpan=4>
            <TABLE width="98%" 
                  border=0 align="center" cellPadding=1 cellSpacing=0 >
              <% 
While ((Repeat1__numRows <> 0) AND (NOT RsArticleHot.EOF)) 
%>
              <TR>
                <TD width="4%"><div align="center"><strong>&#8226;</strong></div></TD>
                        <TD width="96%">
                          <% If len(RsArticleHot.Fields.Item("fTitle").Value)<11 Then %>
						  <a href="index_Article_Content.asp?fID_ArticleContent=<%=(RsArticleHot.Fields.Item("fID_ArticleContent").Value)%>" target="_blank" title="<%=(RsArticleHot.Fields.Item("fTitle").Value)%>"><%=(RsArticleHot.Fields.Item("fTitle").Value)%></a> 
                          <% Else %>
							<a href="index_Article_Content.asp?fID_ArticleContent=<%=(RsArticleHot.Fields.Item("fID_ArticleContent").Value)%>" target="_blank" title="<%=(RsArticleHot.Fields.Item("fTitle").Value)%>"><%=mid((RsArticleHot.Fields.Item("fTitle").Value),1,11)%>…</a>
                <% End If %>				        </TD>
              </TR>
              <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  RsArticleHot.MoveNext()
Wend
%>
                  </TABLE>
                  <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                   
                    <TR align=middle>
                      <TD width="33%">
                      </TD>
                  </TABLE></TD>
                <TD background=images/index1_10.gif>&nbsp;</TD>
              </TR>
              <TR>
                <TD><IMG height=18  src="images/index1_11.gif" 
                  width=16></TD>
                <TD width=250 background=images/index1_12.gif 
                colSpan=4></TD>
<TD><IMG height=18  src="images/index1_13.gif" 
                  width=14></TD></TR></TABLE>





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