index_newarticle.asp

深度学习整站系统 v1.10 1、将整个目录上传到虚拟空间

<%
Dim RsNewArticle
Dim RsNewArticle_numRows

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

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

Repeat1__numRows = 8
Repeat1__index = 0
RsNewArticle_numRows = RsNewArticle_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 RsNewArticle.EOF)) 
%>
              <TR>
                <TD width="4%"><div align="center"><strong>&#8226;</strong></div></TD>
                        <TD width="96%">
                          <% If len(RsNewArticle.Fields.Item("fTitle").Value)<11 Then %>
						  <a href="index_Article_Content.asp?fID_ArticleContent=<%=(RsNewArticle.Fields.Item("fID_ArticleContent").Value)%>" target="_blank" title="<%=(RsNewArticle.Fields.Item("fTitle").Value)%>"><%=(RsNewArticle.Fields.Item("fTitle").Value)%></a> 
                          <% Else %>
							<a href="index_Article_Content.asp?fID_ArticleContent=<%=(RsNewArticle.Fields.Item("fID_ArticleContent").Value)%>" target="_blank" title="<%=(RsNewArticle.Fields.Item("fTitle").Value)%>"><%=mid((RsNewArticle.Fields.Item("fTitle").Value),1,11)%>…</a>
                <% End If %>				        </TD>
              </TR>
              <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  RsNewArticle.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>





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