index_newsoftdown.asp

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

<%
Dim RsNewSoftDown
Dim RsNewSoftDown_numRows

Set RsNewSoftDown = Server.CreateObject("ADODB.Recordset")
RsNewSoftDown.ActiveConnection = MM_connDB_STRING
RsNewSoftDown.Source = "SELECT fSoftID, fSoftName, fSoftVersion, fAuthor FROM tSoft ORDER BY fUpdateTime DESC"
RsNewSoftDown.CursorType = 0
RsNewSoftDown.CursorLocation = 2
RsNewSoftDown.LockType = 1
RsNewSoftDown.Open()

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

Repeat1__numRows = 8
Repeat1__index = 0
RsNewSoftDown_numRows = RsNewSoftDown_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 RsNewSoftDown.EOF)) 
%>
              <TR>
                <TD width="4%"><div align="center"><strong>&#8226;</strong></div></TD>
                        <TD width="96%">
                          <% If len(RsNewSoftDown.Fields.Item("fSoftName").Value)<11 Then %>
                          <a href="index_soft_show.asp?fSoftID=<%=(RsNewSoftDown.Fields.Item("fSoftID").Value)%>" target="_blank" title="<%=(RsNewSoftDown.Fields.Item("fSoftName").Value)%><%=(RsNewSoftDown.Fields.Item("fSoftVersion").Value)%>"><%=(RsNewSoftDown.Fields.Item("fSoftName").Value)%></a>
                          <% Else %>
							<a href="index_soft_show.asp?fSoftID=<%=(RsNewSoftDown.Fields.Item("fSoftID").Value)%>" target="_blank" title="<%=(RsNewSoftDown.Fields.Item("fSoftName").Value)%><%=(RsNewSoftDown.Fields.Item("fSoftVersion").Value)%>"><%=mid((RsNewSoftDown.Fields.Item("fSoftName").Value),1,11)%>…</a>
                <% End If %>				        </TD>
              </TR>
              <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  RsNewSoftDown.MoveNext()
Wend
%>

<TR>
                      <TD>&nbsp;</TD>
                      <TD>&nbsp;</TD>
              </TR>
                  </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>





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