admin_dj.asp

来自「安全性好,适用于制作论坛和进行资源下载的个人和大型网站使用!」· ASP 代码 · 共 1,283 行 · 第 1/4 页

end if
end if

if request.querystring("action")="djerror" then
%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<form name=form method=post action="admin_dj.asp?action=dj">
<script language="javascript">
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.name != 'chkall')
e.checked = form.chkall.checked;
}
}
</script>
<tr class=Hxcmsss> 
<td colspan="4">错误连接管理</td>
</tr>
<tr class=Hxcmsqs> 
<td width="5%">选中</td>
<td width="55%">歌曲名称</td>
<td width="20%" align="center">报错人次</td>
<td width="20%" align="center">操作</td>
</tr>
<%
sql="select * from dj where error > 0 order by dj_id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%><tr class=Hxcmsds><td><input type=checkbox Name=dj_id Value=<%=rs("dj_id")%>></td>
<td><a href="showdj.asp?dj_id=<%=rs("dj_id")%>" target="_blank"><%=rs("dj_name")%></td>
<td align="center"><%=rs("error")%></td>
            <td  align="center"><a href="admin_dj.asp?id=<%=rs("dj_id")%>&action=editerror">修改</a></td>
        </tr>
<%rs.movenext
loop
if rs.eof and rs.bof then
Response.Write("<tr class=Hxcmsds><td align=""center"" colspan=""4"">当前还没有错误歌曲</td></tr>")
end if%>
<tr class=Hxcmsqs> <td class=Hxcmsqs colspan="4">
            <input type=hidden value=error name=operation>
	 <input type="checkbox" name="chkall" onClick="CheckAll(this.form)" value="ON">选中本页所有 <input type=submit value=批量恢复 onClick="return confirm('确定恢复选中的歌曲吗?');"> *此功能可批量恢复误报错误(清空报错次数)</td></tr></form>

</table>
<%
rs.close
set rs=nothing
end if

if request.querystring("action")="djcat" then
%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<tr> 
<td colspan="4" class=Hxcmsss>歌曲移动、合并管理(请慎重操作，操作后不可还原!)</font></td>
</tr>
<form method="post" action="?action=moves">
<tr align="center"> 
<td height=22 align=center class=Hxcmsqs>将：
<select size="1" name="cat1">
<%
sql="select * from djcat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
response.write "<optgroup label='"&rs1("djcat_name")&"'>"
sql="select * from djcat where sid="&rs1("djcat_id") 
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
%>
              <option value="<%=rs2("djcat_id")%>">├ <%=rs2("djcat_name")%></option>
<%
rs2.movenext
loop
rs1.movenext
loop
rs2.close
set rs2=nothing
rs1.close
set rs1=nothing%>
</select> 分类歌曲，移动到： 
<select size="1" name="cat2">
<%
sql="select * from djcat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
response.write "<optgroup label='"&rs1("djcat_name")&"'>"
sql="select * from djcat where sid="&rs1("djcat_id") 
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
%>
              <option value="<%=rs2("djcat_id")%>">├ <%=rs2("djcat_name")%></option>
<%
rs2.movenext
loop
rs1.movenext
loop
rs2.close
set rs2=nothing
rs1.close
set rs1=nothing%>
</select>分类里。
<input type="submit" value="移动合并" name="B2">
</td></tr>
</form>
</table>
<%
sql="select * from djcat where sid=0 order by djcat_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%> 
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
        <tr class=Hxcmsss> 
          <td colspan="4">歌曲分类管理</td>
        </tr>
        <tr align="center" class=Hxcmsqs> 
          <td width="10%">编号</td>
          <td width="50%" class=Hxcmsqs>分类名称</td>
          <td width="20%" class=Hxcmsqs>子栏目</td>
          <td width="20%">操作</td>
        </tr>
        <%do while not rs.eof%>
        <tr class=Hxcmsds> 
          <td align="center"><%=rs("djcat_id")%>　</td>
          <td><font color=#008000><%=rs("djcat_name")%></font>　[<a href="admin_dj.asp?id=<%=rs("djcat_id")%>&action=newdjcat">添加子分类</a>]</td>
          <td class=Hxcmsds align="center"><%
           sql3 = "select * from djcat where sid="&rs("djcat_id")&""
           Set rs3 = Server.CreateObject("ADODB.RecordSet")
           rs3.Open sql3,conn,1,1
           response.write rs3.recordcount&"个"%></td>
          <td align="center"><a href="admin_dj.asp?id=<%=rs("djcat_id")%>&action=editdjcat">编辑</a> 
            <a href="admin_dj.asp?id=<%=rs("djcat_id")%>&sid=<%=rs("sid")%>&action=deldjcat">删除</a> </td>
        </tr>
       <%sql="select * from djcat where sid="&rs("djcat_id") 
        set rs2=server.createobject("adodb.recordset")
        rs2.open sql,conn,1,1
        do while not rs2.eof%>
        <tr class=Hxcmsds><td align="right"></td><td>├ <%=rs2("djcat_name")%></td>
        <td align="left">歌曲：<%
		    sql4 = "select * from dj where djcat_id="&rs2("djcat_id")&" order by djcat_id desc"
		    Set rs4 = Server.CreateObject("ADODB.RecordSet")
		    rs4.Open sql4,conn,1,1
		    response.write rs4.recordcount%>首</td>
       <td align="center"><a href="admin_dj.asp?id=<%=rs2("djcat_id")%>&action=editdjcat">编辑</a> 
            <a href="admin_dj.asp?id=<%=rs2("djcat_id")%>&sid=<%=rs2("sid")%>&action=deldjcat">删除</a></td></tr>
        <%
        rs2.movenext
        loop
        response.write "<tr class=Hxcmsqs><td colspan=4 align=center>"
        if rs2.bof and rs2.eof then
        response.write "此大类没有子分类！"
        end if
        rs2.close
        set rs2=nothing
        %>
        <%rs.movenext
        loop
        if rs.bof and rs.eof then%>
        <tr align="center" class=Hxcmsds> 
          <td colspan="4">当前没有歌曲分类！</td>
        </tr>
        <%rs.close
        set rs=nothing
	end if%>
      </table>
<%
end if
if request.querystring("action")="newdjcat" then
%> 
      <table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
       <form name="form1" method="post" action=""><tr class=Hxcmsss><td>新增歌曲分类</td></tr>
        <tr class=Hxcmsds> 
            <td>分类名称-<input type="text" name="djcat_name" size="40" class="textarea">
          </td>
        </tr>
        <tr class=Hxcmsqs> 
            <td align="center">
              <input type="submit" name="Submit" value="确定新增" class="button">
              <input type="reset" name="Reset" value="清空重填" class="button">
            </td>
        </tr>
                <input type="hidden" name="id" value="<%=clng(request.querystring("id"))%>">
		<input type="hidden" name="action" value="newdjcat">
		<input type="hidden" name="MM_insert" value="true">
		</form>
      </table>
<%end if
'================hx66.com.cn===============
if request.QueryString("action")="editdjcat" then
if request.querystring("id")="" then
  Response.Write("<script language=javascript>alert('请指定操作的对象！');history.back(1);</script>")
  response.end
else
  if not isinteger(request.querystring("id")) then
    Response.Write("<script language=javascript>alert('非法的歌曲分类ID参数！');history.back(1);</script>")
    response.end
  end if
end if
sql="select * from djcat where djcat_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
      <table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
        <form name="form1" method="post" action="">
          <tr class=Hxcmsss> 
            <td>修改歌曲分类</td>
          </tr>
          <tr class=Hxcmsds> 
            <td>分类名称-<input name="djcat_name" type="text" class="textarea" id="djcat_name" size="40" value="<%=rs("djcat_name")%>"> 
            </td>
          <tr> 
            <td class=Hxcmsds>所属分类- 
            <select size="1" name="lid">
            <option value="<%=rs("sid")%>">默认分类</option>
            <option value="0">设为大类</option>
<%
sql="select * from djcat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
'response.write "<optgroup label='"&rs1("djcat_name")&"'>"
%>
              <option value="<%=rs1("djcat_id")%>">├ <%=rs1("djcat_name")%></option>
<%
rs1.movenext
loop
rs1.close
set rs1=nothing%>
</select>   特别提示：当你要改变分类属性操作时，请确保类下无歌曲！是大类时，请确保其下无小类！
            </td>
          </tr>
          </tr>
          <tr class=Hxcmsqs> 
            <td align="center"> <input name="Submit" type="submit" class="button" id="Submit" value="确定修改"> 
              <input name="Reset" type="reset" class="button" id="Reset" value="清空重填"> </td>
          </tr>
          <input type="hidden" name="id" value="<%=rs("djcat_id")%>">
          <input type="hidden" name="action" value="editdjcat">
          <input type="hidden" name="MM_insert" value="true">
        </form>
      </table>
<%
rs.close
set rs=nothing
end if
if request.QueryString("action")="deldjcat" then
if request.querystring("id")="" then
  Response.Write("<script language=javascript>alert('请指定操作的对象！');history.back(1);</script>")
  response.end
else
  if not isinteger(request.querystring("id")) then
    Response.Write("<script language=javascript>alert('非法的歌曲分类ID参数！');history.back(1);</script>")
    response.end
  end if
end if
sql="select * from djcat where djcat_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
    <table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
        <form name="form1" method="post" action="">
          <tr class=Hxcmsss> 
            <td>删除歌曲分类</td>
          </tr>
          <tr class=Hxcmsds> 
            <td>分类名称- <%=rs("djcat_name")%>
            </td>
          </tr>
          <tr> 
            <td class=Hxcmsds><%if request.querystring("sid")="0" then%>友情提示：你要删除的是歌曲的大分类，此操作将同时删除其下的小类和所有的类下歌曲，请慎重！<%else%>友情提示：删除分类，将删除此分类下的所有歌曲，请慎重！<%end if%></td>
          </tr>
          <tr class=Hxcmsqs> 
            <td align="center"> 
              <input name="Submit" type="submit" class="button" id="Submit" value="确定删除">
            </td>
          </tr>
          <input type="hidden" name="id" value="<%=rs("djcat_id")%>">
          <input type="hidden" name="sid" value="<%=clng(request.querystring("sid"))%>">
          <input type="hidden" name="action" value="deldjcat">
          <input type="hidden" name="MM_insert" value="true">
        </form>
      </table>
<%
rs.close
set rs=nothing
end if
'================hx66.com.cn===============
if request.querystring("action")="moves" then
cat1=clng(trim(request("cat1")))
cat2=clng(trim(request("cat2")))
conn.Execute = "update dj set djcat_id="&cat2&" where djcat_id="&cat1&""
set conn=nothing
Response.Redirect "admin_dj.asp?action=djcat"
end if
if request.QueryString("action")="checkpass" then
sql="select * from dj where dj_id="&clng(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs("passed")=0
rs.update
tjuser=rs("tjuser")
rs.close
set rs=nothing
conn.execute ("UPDATE [user] SET points = points + "&fbpoints&" where username='"&tjuser&"'")
response.redirect Request.ServerVariables("http_referer")
end if
if request.form("operation")="DEL" then
num=request.form("dj_id").Count
for i=1 to num
  conn.execute("delete from dj where dj_id="&request.form("dj_id")(i))
  next
end if
if request.form("operation")="error" then
num=request.form("dj_id").Count
for i=1 to num
  conn.execute("UPDATE dj SET error=0 where dj_id="&request.form("dj_id")(i))
  next
end if
if request.querystring("action")="dj" then