first0.asp

来自「校园二手交易系统,具有完备的后台操作以及应用功能!」· ASP 代码 · 共 125 行

<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0 class=page>
  <TBODY>
    <TR><td><!--#include file="top.asp"-->
    <%dim action
action=request.QueryString("action")%> 
           <TABLE cellpadding="0" cellspacing="1" align="center" class="tableborder1"　width=98%>
  <TBODY>
    <TR> 
     <TD vAlign=top  width=176 class="tablebody1"><!--#include file="Firstmenu.asp"-->
         </TD>
      <TD vAlign=top class="tablebody1">
         <div align="center">

           <TABLE cellpadding="0" cellspacing="0" align="center" width=100% >
          <TBODY>
          
            
            <TR>               <TD > 
			<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
                                                            <tr> 
                                                              <td height="165" valign="top" bgcolor="#FFFFFF">
                                                                
<%select case action
case "First1"
%> <div align="center"></div>
            <table width="560" border="0" align="center" cellpadding="1" cellspacing="1">
              <tr> 
                <td> <%set rs=server.CreateObject("adodb.recordset")
				rs.open "select First1 from config",conn,1,1
				response.write trim(rs("First1"))
				rs.close
				set rs=nothing%></td>
              </tr>
            </table>
<%case "First2"
		  %> <div align="center">　</div>
            <table width="560" border="0" align="center" cellpadding="1" cellspacing="1">
              <tr> 
                <td> <%set rs=server.CreateObject("adodb.recordset")
				rs.open "select First2 from config",conn,1,1
				response.write trim(rs("First2"))
				rs.close
				set rs=nothing%> &nbsp;</td>
              </tr>
            </table>
<%case "First3"
		  %> <div align="center">　</div>
            <table width="560" border="0" align="center" cellpadding="1" cellspacing="1">
              <tr> 
                <td> <%set rs=server.CreateObject("adodb.recordset")
				rs.open "select First3 from config",conn,1,1
				response.write trim(rs("First3"))
				rs.close
				set rs=nothing%> &nbsp;</td>
              </tr>
            </table>
<%case "First4"%> <div align="center">　</div>
            <table width="560" border="0" align="center" cellpadding="1" cellspacing="1" id="Table1">
              <tr> 
                <td> <%set rs=server.CreateObject("adodb.recordset")
				rs.open "select First4 from config",conn,1,1
				response.write trim(rs("First4"))
				rs.close
				set rs=nothing%> &nbsp;</td>
              </tr>
            </table>
<%case "First5"%> <div align="center">　</div>
            <table width="560" border="0" align="center" cellpadding="1" cellspacing="1" id="Table3">
              <tr> 
                <td> <%set rs=server.CreateObject("adodb.recordset")
				rs.open "select First5 from config",conn,1,1
				response.write trim(rs("First5"))
				rs.close
				set rs=nothing%> &nbsp;</td>
              </tr>
            </table>
<%case "First6"%> <div align="center">　</div>
            <table width="560" border="0" align="center" cellpadding="1" cellspacing="1" id="Table4">
              <tr> 
                <td> <%set rs=server.CreateObject("adodb.recordset")
				rs.open "select First6 from config",conn,1,1
				response.write trim(rs("First6"))
				rs.close
				set rs=nothing%> &nbsp;</td>
              </tr>
            </table>
<%case "First7"%> <div align="center">　</div>
            <table width="560" border="0" align="center" cellpadding="1" cellspacing="1" id="Table8">
              <tr> 
                <td> <%set rs=server.CreateObject("adodb.recordset")
				rs.open "select First7 from config",conn,1,1
				response.write trim(rs("First7"))
				rs.close
				set rs=nothing%> &nbsp;</td>
              </tr>
            </table>
<%case "First8"%> <div align="center">　</div>
            <table width="560" border="0" align="center" cellpadding="1" cellspacing="1" id="Table7">
              <tr> 
                <td> <%set rs=server.CreateObject("adodb.recordset")
				rs.open "select First8 from config",conn,1,1
				response.write trim(rs("First8"))
				rs.close
				set rs=nothing%> &nbsp;</td>
              </tr>
            </table>
<%end select%>
                                                                
                                                              </td>
                                                            </tr>
                                                          </table>
     
</TD>
            </TR>
          </TBODY>
        </TABLE>
      </div>
      </TD>
    </TR>
  </TBODY>
</TABLE>
<!--#include file="bottom.asp"--> </TD>
    </TR>
  </TBODY>
</TABLE>