index_soft_index.asp

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

<%
Dim RsSoftClass
Dim RsSoftClass_numRows

Set RsSoftClass = Server.CreateObject("ADODB.Recordset")
RsSoftClass.ActiveConnection = MM_connDB_STRING
RsSoftClass.Source = "SELECT * FROM tSoftClass ORDER BY fOrderID ASC"
RsSoftClass.CursorType = 0
RsSoftClass.CursorLocation = 2
RsSoftClass.LockType = 1
RsSoftClass.Open()

RsSoftClass_numRows = 0
%>

<%
'Dim Repeat1__numRows
'Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
RsSoftClass_numRows = RsSoftClass_numRows + Repeat1__numRows
%>
<% If Not RsSoftClass.EOF Or Not RsSoftClass.BOF Then %>
<% 
While ((Repeat1__numRows <> 0) AND (NOT RsSoftClass.EOF)) 
%>
<TABLE cellSpacing=0 cellPadding=0 width=99% border=0>
        <TR>
          <TD width="16"><IMG height=41 src="images/index1_1.gif" width=16></TD>
          <TD width=270 background=images/index1_2.gif 
                      height=41><div align="left"><IMG src="images/d5.gif">&nbsp;<%=(RsSoftClass.Fields.Item("fClassName").Value)%></div></TD>
          <TD width="411" background=images/index1_5.gif><div align="left"><IMG 
                        height=41  src="images/index1_4.gif" 
                        width=30></div></TD>
          <TD width=15><IMG height=41  
                        src="images/index1_7.gif" width=14></TD>
        </TR>
        <TR>
          <TD background=images/index1_8.gif></TD>
          <TD vAlign=top background=images/index1_9.gif 
                      colSpan=2>
            <TABLE height=47 cellSpacing=5 cellPadding=0 
                        width="100%" border=0>
              <TR>
                <TD vAlign=top height=1>
            <%
Dim RsSoft__MMColParam
RsSoft__MMColParam = RsSoftClass("fClassName")
If (Request("MM_EmptyValue") <> "") Then 
  RsSoft__MMColParam = Request("MM_EmptyValue")
End If
%>
            <%
Dim RsSoft
Dim RsSoft_numRows

Set RsSoft = Server.CreateObject("ADODB.Recordset")
RsSoft.ActiveConnection = MM_connDB_STRING
RsSoft.Source = "SELECT * FROM tSoft WHERE fClassName = '" + Replace(RsSoft__MMColParam, "'", "''") + "' ORDER BY fUpdateTime DESC"
RsSoft.CursorType = 0
RsSoft.CursorLocation = 2
RsSoft.LockType = 1
RsSoft.Open()

RsSoft_numRows = 0
%>				
            <%
Dim Repeat2__numRows
Dim Repeat2__index

Repeat2__numRows = 10
Repeat2__index = 0
RsSoft_numRows = RsSoft_numRows + Repeat2__numRows
%>
				            
				
                  <TABLE  height=46    cellSpacing=0 cellPadding=0 width="100%"  border=0>
                    <TR>
                      <TD height=4 vAlign=bottom bgcolor="#F2F4FD">
	                    <% 
While ((Repeat2__numRows <> 0) AND (NOT RsSoft.EOF)) 
%>					  
                           <div align="left"> &nbsp; &nbsp;<IMG height=8 src="images/dd.gif" width=8 border=0>&nbsp; <a href="index_soft_show.asp?fSoftID=<%=(RsSoft.Fields.Item("fSoftID").Value)%>"><%=(RsSoft.Fields.Item("fSoftName").Value)%> <%=(RsSoft.Fields.Item("fSoftVersion").Value)%></a> &nbsp;(<%=(RsSoft.Fields.Item("fHits").Value)%>)<BR>
                        </div>
                        <% 
  Repeat2__index=Repeat2__index+1
  Repeat2__numRows=Repeat2__numRows-1
  RsSoft.MoveNext()
Wend
%>                      </TD>
                    </TR>
                    <TR>
                      <TD vAlign=bottom width=488 height=22>
	                    <div align="right"> <A HREF="index_Soft_Class.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "fClassName=" & RsSoftClass.Fields.Item("fClassName").Value %>"> <IMG height=17 src="images/more.gif"  alt="更多内容" width=35  border=0> </A>
              </p>
                    </div>                      </TR>
                  </TABLE>
                  <%
RsSoft.Close()
Set RsSoft = Nothing
%>				</TD>
              </TR>
            </TABLE></TD>
          <TD width=15 background=images/index1_10.gif  height=100></TD>
        </TR>
        <TR>
          <TD><IMG height=18  src="images/index1_11.gif" width=16></TD>
          <TD background=images/index1_12.gif  colSpan=2></TD>
          <TD width=15><IMG height=18   src="images/index1_13.gif"  width=14></TD>
        </TR>
</TABLE>
<% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  RsSoftClass.MoveNext()
Wend
%>
<% End If ' end Not RsSoftClass.EOF Or NOT RsSoftClass.BOF %>
  <% If RsSoftClass.EOF And RsSoftClass.BOF Then %>
没有内容！！！
<% End If ' end RsSoftClass.EOF And RsSoftClass.BOF %>
<%
RsSoftClass.Close()
Set RsSoftClass = Nothing
%>