bzmtv-1.asp

一个不错的音乐网站

<!--#include file="bzmtvconst.asp"-->
<%CheckAdmin1%>
<%PageName="bzmtv-1"%>
<!--#include file="top.asp"-->
<%
dim i
i=0 
MaxList=80
set rs=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")
%>
     <div align="center">
      <center>
   <table border="0" cellpadding="0" cellspacing="0" width="96%" bordercolor="GREEN" bordercolordark="#FFFFFF">
               <tr>
          <td width="100%" height="20" bgcolor="#44A938" align=center><font color="white"><b>总 类 管 理</b></font></td>
        </tr><tr>
          <td width="100%" height="25" align=left>
                <div align="center">
               <table border="1" cellpadding="0" cellspacing="0" width="100%" bordercolor="GREEN" bordercolordark="#FFFFFF">
     
<%
do while not rs.eof
	i=i+1
%>  
		  <form method="POST" action="bzmtv-1-1.asp?act=rename&Classid=<%=rs("Classid")%>" id=form1 name=form1>
                    <tr>
                      <td width="30%" height=20 align=left>&nbsp;&nbsp;<%=rs("Classid")%>.<%=rs("Class")%></td>
                      <td width="40%" height=20 align=center><input size=20 type="text" class=input name="Class" value="<%=rs("Class")%>">&nbsp;&nbsp;<input class=input type="submit" value="改 名" name="Submit"></td>
                      <td width="30%" height=20 align=center><a title='生成 <%=rs("class")%> 的所有二级分类' href='make_typeall.asp?type=all&zzyy=<%=rs("classid")%>'><font color=BLUE>生成分类HTM文件</font></a>   <a title="不到万一请不要用此功能" href='bzmtv-1-1.asp?act=del&Classid=<%=rs("ClassID")%>'><font color=red>删除</font></a></td>
                    </tr>
                   </form>
                 
               
<%
	if (i mod (MaxList/2)=0) and i>=(MaxList/2) then
%>

<%
	end if
	if i>=MaxList then exit do
    rs.movenext
	loop
	rs.close
	%>
             
               
         <tr>
                      <td width="30%" height=20 align=left>&nbsp;&nbsp;&nbsp;添加总类  </td>     
        <form method="POST" action="bzmtv-1-1.asp?act=add">
        
          <td width="40%" height=20 align=center><input type="text" class=input name="Class" size="20">  &nbsp;<input type="submit" value="添 加" name="B3" class=input></td>
         <td width="30%" height=20 align=center>&nbsp;</td>
                 
        </tr>
        </form>
         </table>
                </div>
		  </td>
        </tr>
      </table>
     </center>
    </div>
<% 
set rs=nothing
conn.close
set conn=nothing
%></body></html>