addfile1.asp

971音乐站全站程序

<%PageName="1-1sort"%>
<!--#include file="function.asp"-->
<%CheckAdmin1%>
<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<%
dim i
set rs=server.createobject("adodb.recordset")
set rs2=server.createobject("adodb.recordset")

sql="select * from class order by classid"
rs.open sql,conn,1,1
i=request("id")
if i="" then i=rs("Classid")
%>
<%do while not rs.eof
 %>
<%rs.movenext
loop
rs.close
%>	
<%sql="select * from class where classid="&i
rs.open sql,conn,1,1
if rs.eof then%>
<%
else
%>
     <div align="center">
      <center>
      <table border="1" width="90%" cellspacing="0" cellpadding="0" class="TableLine" bordercolor="#A4CEE4" bordercolordark="#FFFFFF">
        <tr>
          <td width="100%" height="20" bgcolor="#96C5DE" align=center><font color="white">添 加 编 辑 专 辑 (第一步)&nbsp;&nbsp;</font>&nbsp;<a href="Addfile3.asp?classid=1"><font color="#FFFF00">点这里可直接添加</font></a></td>   
        </tr>
        <tr>
          <td width="100%" height="22" bgcolor="A4CEE4" align=center>
                <div align="center">
                  <table border="0" cellpadding="0" cellspacing="0" width="100%">
                   <form method="POST" action="SClassSave.asp?act=add&Classid=<%=rs("Classid")%>" align="center">
                    <tr>
                      <td width="20%" align="center"><font color="#FFFFFF">&nbsp;&nbsp;↓所属一级分类</font></td>
                      <td width="40%" align="center"><font color="#FFFFFF">↓进入该类选择歌手进行下一步</font></td>
                      <td width="40%" align="center"></td>
                    </tr>
                   </form>
                  </table>
                </div>
           </td>
        </tr>
<%
		sql2="select * from SClass where Classid="&rs("Classid")&" order by Sclassid"
		rs2.open sql2,conn,1,1
		if rs2.eof then
%>
<%
		else
			j=0
			do while not rs2.eof
			j=j+1
%>

		<tr>
          <td width="100%" height="25" align=left>
                <div align="center">
                  <table border="0" cellpadding="0" cellspacing="0" width="100%">
                  <form method="POST" action="NClassSave.asp?act=add&Classid=<%=rs("Classid")%>&SClassid=<%=rs2("SClassid")%>" align="center">
                    <tr>
                      <td width="20%">&nbsp;&nbsp;<a href=Addfile2.asp?Classid=<%=rs("Classid")%>&SClassid=<%=rs2("SClassid")%>><%=rs2("SClass")%></a></td>
                      <td width="40%"><a href=Addfile2.asp?Classid=<%=rs("Classid")%>&SClassid=<%=rs2("SClassid")%>><font color="#4D9CC8"><---选择进入进行下一步</font></a></td>
                      <td width="40%"></td>
                    </tr>
                   </form>
                  </table>
                </div>
		  </td>
        </tr>
<%
			rs2.movenext
			loop
		end if
		rs2.close
%>
<%
end if
rs.close
%>
      </table>
     </center>
    </div>
<% 
set rs=nothing
set rs2=nothing
conn.close
set conn=nothing
%>