index_soft_index.asp

基于ＡＳＰ的教育网站

<%
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=100% 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=14><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><%
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 cellSpacing=0 cellPadding=0 width="100%"  border=0>
            <% 
While ((Repeat2__numRows <> 0) AND (NOT RsSoft.EOF)) 
%>
              <TR>
                <TD height="16" vAlign=bottom bgcolor="#F2F4FD"><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></TD>
              </TR>
              <% 
  Repeat2__index=Repeat2__index+1
  Repeat2__numRows=Repeat2__numRows-1
  RsSoft.MoveNext()
Wend
%>
            <TR>
              <TD vAlign=bottom><div align="right"> <A HREF="index_Soft_Class.asp?fClassName=<%= RsSoftClass.Fields.Item("fClassName").Value %>"> <IMG height=17 src="images/more.gif"  alt="更多内容" width=35  border=0> </A> </div>
            </TR>
          </TABLE>
          <%
RsSoft.Close()
Set RsSoft = Nothing
%>
        </TD>
        <TD background=images/index1_10.gif></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><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
%>