lb.asp

电子书下载系统 后台管理：admin/index.asp 超级用户：admin 密码：admin 请在db/usre.asp,admin/usres更新数据库地址,防止他人下载。 建议把.

<%Set typelie = Server.CreateObject("ADODB.Recordset") 
sql="select * from class"        
Set zhulie = Server.CreateObject("ADODB.Recordset")                          
zhulie.open sql,conn,1.1
if not zhulie.eof then%>
        <center>
  <table width="95%" border="0" cellspacing="0" cellpadding="0">
    <tr> 
      <%do while not zhulie.eof%>
      <td width="50%" valign="top"> 
        <table width="98%" border="0" cellspacing="1" cellpadding="0" bgcolor="#CCCCCC" class=tt align="center">
          <tr> 
            <td bgcolor="#F7F7F7"><b><a href=class.asp?classid=<%=zhulie("classid")%> target="_blank"><%=zhulie("class")%></a></b> 
            </td>
          </tr>
        </table>
        <%sql="select * from Nclass where classid="&zhulie("classid")                  
typelie.open sql,conn,1.1%>
        <table width="95%" cellpadding="0" cellspacing="0" border="0" align="center">
          <tr> 
            <%do while not typelie.eof%>
            <td width="33%"><a href=class.asp?classid=<%=zhulie("classid")%>&Nclassid=<%=typelie("Nclassid")%> target="_blank"><%=typelie("Nclass")%></a></td>
            <%typelie.movenext%>
            <td width="33%"> 
              <%if not typelie.eof then %>
              <a href=class.asp?classid=<%=zhulie("classid")%>&Nclassid=<%=typelie("Nclassid")%> target="_blank"><%=typelie("Nclass")%></a> 
              <%typelie.movenext             
end if%>
            </td>
            <td width="33%"> 
              <%if not typelie.eof then %>
              <a href=class.asp?classid=<%=zhulie("classid")%>&Nclassid=<%=typelie("Nclassid")%> target="_blank"><%=typelie("Nclass")%></a> 
              <%typelie.movenext             
end if%>
            </td>
          </tr>
          <%loop             
typelie.Close             
%>
        </table>
      </td>
      <%zhulie.movenext%>
      <td width="50%" valign="top">
        <%if not zhulie.eof then %>
        <table width="98%" border="0" cellspacing="1" cellpadding="0" bordercolor="#FF9900" bgcolor="#CCCCCC" class=tt align="center">
          <tr> 
            <td bgcolor="#EFEFEF"><b><a href=class.asp?classid=<%=zhulie("classid")%> target="_blank"><%=zhulie("class")%></a></b> 
            </td>
          </tr>
        </table>
        <%sql="select * from Nclass where classid="&zhulie("classid")                  
typelie.open sql,conn,1.1%>
        <table width="95%" cellpadding="0" cellspacing="0" border="0" align="center">
          <tr> 
            <%do while not typelie.eof%>
            <td width="33%"><a href=class.asp?classid=<%=zhulie("classid")%>&Nclassid=<%=typelie("Nclassid")%> target="_blank"><%=typelie("Nclass")%></a></td>
            <%typelie.movenext%>
            <td width="33%"> 
              <%if not typelie.eof then %>
              <a href=class.asp?classid=<%=zhulie("classid")%>&Nclassid=<%=typelie("Nclassid")%> target="_blank"><%=typelie("Nclass")%></a> 
              <%typelie.movenext             
end if%>
            </td>
            <td width="33%"> 
              <%if not typelie.eof then %>
              <a href=class.asp?classid=<%=zhulie("classid")%>&Nclassid=<%=typelie("Nclassid")%> target="_blank"><%=typelie("Nclass")%></a> 
              <%typelie.movenext             
end if%>
            </td>
          </tr>
          <%loop             
typelie.Close             
%>
        </table>
        <%zhulie.movenext             
end if%>
      </td>
    </tr><%loop
zhulie.Close%>
  </table>
  </center>
<%
end if
set zhulie=nothing
set typelie=nothing%>