lie.asp

来自「教育管理系统」· ASP 代码 · 共 46 行

<%sql1="select * from zhu"        
Set zhulie = Server.CreateObject("ADODB.Recordset")                          
zhulie.open sql1,conn,1.1


do while not zhulie.eof
zl=zhulie("zhuid")
%>
        <center>
  <table width="100%" border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td>
        <table width="100%" border="0" cellspacing="0" cellpadding="1">
          <tr> 
            <td> <a href=SORT.ASP?zhuid=<%=zhulie("zhuid")%>><b><%=zhulie("zhu")%></b></a> 
            </td>
          </tr>
        </table>
      </td>
    </tr>
    <tr>
      <td> 
        <%sql2="select * from type where zhuid='"&zl&"' Order By zhuid DESC"        
Set urs = Server.CreateObject("ADODB.Recordset")                          
urs.open sql2,conn,1.1
do while not urs.eof%>
        <table width="100%" border="0" cellspacing="0" cellpadding="1">
          <tr> 
            <td> 
              <div align="center"><a href=SORT.ASP?zhuid=<%=urs("zhuid")%>&typeid=<%=urs("typeid")%>><%=urs("type")%></a> 
              </div>
            </td>
          </tr>
        </table>
        <%urs.movenext
loop
urs.close%>
      </td>
    </tr>
  </table>
  </center>
<%zhulie.movenext             
loop             
zhulie.Close             
set zhulie=nothing%>