index_softdown_hot.asp

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

<%
Dim RsSoftDownHot
Dim RsSoftDownHot_numRows

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

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

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





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