index_sclass.asp

基于ＡＳＰ的教育网站

<%
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=20 background=images/index1_2.gif></TD>
                <TD width=200 height=41 background=images/index1_2.gif>
			    <IMG src="images/d5.gif">&nbsp;<%=(RsSClass.Fields.Item("fSClassName").Value)%></TD>
                <TD width="515" background=images/index1_5.gif><IMG 
                  height=41  src="images/index1_4.gif" width=30></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=3>
				
				<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 />
                    <%=(RsSClass.Fields.Item("fSClassInfo").Value)%><BR>
                
                <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=3></TD>
                <TD><IMG height=18  src="images/index1_13.gif"  width=14></TD>
		    </TR></TABLE>
<%
RsSClass.Close()
Set RsSClass = Nothing
%>