index_sclass.asp

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

<%
Dim RsSClass
Dim RsSClass_numRows

Set RsSClass = Server.CreateObject("ADODB.Recordset")
RsSClass.ActiveConnection = MM_connDB_STRING
RsSClass.Source = "SELECT * FROM tSClass"
RsSClass.CursorType = 0
RsSClass.CursorLocation = 2
RsSClass.LockType = 1
RsSClass.Open()

RsSClass_numRows = 0
%>
<TABLE cellSpacing=0 cellPadding=0 width=765 border=0 align="center">
             
              <TR>
                <TD width=16><IMG height=41  
                  src="images/index1_1.gif" width=16></TD>
                <TD width=10 background=images/index1_2.gif></TD>
                <TD width=89 background=images/index1_2.gif 
                  height=41><IMG src="images/d5.gif">&nbsp;<%=(RsSClass.Fields.Item("fSClassName").Value)%></TD>
                <TD width=330 background=images/index1_5.gif><IMG 
                  height=41  src="images/index1_4.gif" width=30></TD>
                <TD width=210 background=images/index1_5.gif><IMG 
                  height=41  src="images/index1_5.gif" width=10></TD>
                <TD align=right width=78 
                  background=images/index1_5.gif>&nbsp;</TD>
                <TD width=14><IMG height=41  
                  src="images/index1_7.gif" width=14></TD></TR>
              <TR>
                <TD background="images/index1_8.gif">&nbsp;</TD>
                <TD background=images/index1_9.gif colSpan=5>
				
				<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
             
              <TR>
                <TD width="30%"><div align="center"><%=(RsSClass.Fields.Item("fSClassPicture").Value)%>
                </div>
                <TD>
                <TD width="40%">
                <%=(RsSClass.Fields.Item("fSClassContent").Value)%>
                <TD>
                <TD vAlign=top width="30%"><BR>
                  <TABLE borderColor=#ffffff cellSpacing=0 cellPadding=3 width="95%" align=center bgColor=#f5f5f5 border=1>
                    <TR>
                      <TD><%=(RsSClass.Fields.Item("fSClassInfo").Value)%></TD>
                    </TR></TABLE>
                <TD></TD></TR></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 background=images/index1_12.gif colSpan=5></TD>
                <TD><IMG height=18  src="images/index1_13.gif"  width=14>
</TD>
		    </TR></TABLE>
<%
RsSClass.Close()
Set RsSClass = Nothing
%>