📄 bzmtv-35.asp

📁 一个不错的音乐网站
💻 ASP
字号:
<!--#include file="bzmtvconst.asp"-->
<%CheckAdmin3%>
<%
act=request("act")
ClassID=request.form("Classid")
founderr=false
if act="rename" then
	FunRename
elseif act="del" then
	FunDel
elseif act="edit" then
	FunEdit
elseif act="add" then
	FunAdd
else
	errmsg=errmsg+"操作错误！请联系管理员"
	founderr=true
end if

if founderr=true then
	call error()
else

end if

function FunRename
	if trim(request.form("NClass"))="" then
		errmsg=errmsg+"<br>"+"<li>歌手名称不能为空！"
		call error()
		Response.End 
	end if
'修改栏目中的栏目名
	set rs=server.createobject("adodb.recordset")
	sql = "SELECT * FROM Nclass where Nclassid=" & request.QueryString("NClassid")
	rs.Open sql,conn, 1, 3
	if err.Number<>0 then
		err.clear
		errmsg=errmsg+"操作错误！请联系管理员"
		founderr=true
	else
		rs("Nclass") = trim(request.form("Nclass"))
		rs("Abcd") = trim(request.form("Abcd"))
		rs("pic") = trim(request.form("pic"))
		rs("da") = trim(request.form("da"))
		rs.Update
	end if
	rs.Close
'修改歌曲中的栏目名
	sql= "SELECT * FROM MusicList where Nclassid=" & request.QueryString("NClassid")
	rs.Open sql, conn, 1, 3
	if err.Number<>0 then
		err.clear
		errmsg=errmsg+"操作错误！请联系管理员"
		founderr=true
	else
		do while not rs.eof
			rs("singer") = trim(request.form("NClass"))
			rs.Update
		rs.movenext
		loop
	end if
	rs.Close
'修改专辑中的栏目名
	sql = "SELECT * FROM special where Nclassid=" & request.QueryString("NClassid")
	rs.Open sql,conn, 1, 3
	if err.Number<>0 then
		err.clear
		errmsg=errmsg+"操作错误！请联系管理员"
		founderr=true
	else
		do while not rs.eof
			rs("Nclass") = trim(request.form("NClass"))
			rs.Update
		rs.movenext
		loop
	end if
	rs.Close
'修改收藏中的栏目名
	sql = "SELECT * FROM Box where Musicid=" & request.QueryString("NClassid")
	rs.Open sql,conn, 1, 3
	if err.Number<>0 then
		err.clear
		errmsg=errmsg+"操作错误！请联系管理员"
		founderr=true
	else
		do while not rs.eof
			rs("MusicName") = trim(request.form("NClass"))
			rs.Update
		rs.movenext
		loop
	end if
	rs.Close
'结束修改
	set rs=nothing
	conn.close
	set conn=nothing
end function

function FunDel
	Rem 删除子栏目
	sql="delete from Nclass where Nclassid=" & request.QueryString("NClassid")
	conn.execute sql
	Rem 删除相关专辑
	sql="delete from Special where Nclassid=" & request.QueryString("NClassid")
	conn.execute sql
	if err.Number<>0 then
		err.clear
		errmsg=errmsg+"操作错误！请联系管理员"
		founderr=true
	end if
end function
	
function FunAdd
	NClass=trim(request.form("NClass"))
	if NClass="" then
		errmsg=errmsg+"类别名称不能为空！"
		call error()
		Response.End 
	end if
	set rs=server.createobject("adodb.recordset")
	sql = "SELECT * FROM Nclass where (Nclassid IS NULL)"
	rs.Open sql,conn, 1, 3
	if err.Number<>0 then
		err.clear
		errmsg=errmsg+"操作错误！请联系管理员"
		founderr=true
	else
		rs.AddNew
		rs("Nclass") = NClass
		rs("Classid") = request.QueryString("Classid")
		rs("SClassid") = request.QueryString("SClassid")
        if trim(request("Abcd"))<>"" then rs("Abcd") = request.form("Abcd")
		rs.Update
	end if
	rs.Close
	set rs=nothing
	conn.close
	set conn=nothing
end function

function FunEdit
	if trim(request("NClass"))="" then
		errmsg=errmsg+"类分名称不能为空！"
		call error()
		Response.End 
	end if
	set rs=server.createobject("adodb.recordset")
	sql = "SELECT * FROM Nclass where NClassid="&request.QueryString("NClassid")
	rs.Open sql,conn, 1, 3
	if err.Number<>0 then
		err.clear
		errmsg=errmsg+"操作错误！请联系管理员"
		founderr=true
	else

'修改栏目中的资料
		rs("Nclass") = trim(request.form("NClass"))
		rs("Classid") = request.form("Classid")
		rs("SClassid") = request.form("SClassid")
		rs.Update
	end if
	rs.Close
	set rs=nothing
	conn.close
	set conn=nothing
end function
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="RSHOP" content="<%=webname%>---<%=weburl%>">
<meta Author="Recall Star" content="<%=webname%>---<%=weburl%>">
<title><%=webname%>---<%=weburl%></title>
</head>
<body topmargin="20" leftmargin="0">
<div align="center">
  <center>
  <table border="0" cellspacing="0" width="60%">
    <tr>
      <td width="100%" bgcolor="GREEN">
        <div align="center">
          <table border="0" cellpadding="0" cellspacing="0" width="100%">
            <tr>
              <td width="100%" bgcolor="#FFFFFF" height="80" align="center">
                <b><span style="font-size: 9pt">操 作 完 成 </span></b>
                <p><b><span style="font-size: 9pt">[<a href="javascript:history.go(-1)">点 
                此 返 回</a>]</span></b><p><b><span style="font-size: 9pt">[返回歌手管理]</span></b><p>　<table border="1" cellpadding="4" cellspacing="0" style="border-collapse: collapse" bordercolor="#EEEEEE" width="100%" height="171">
                  <tr>
                    <td width="15%" align="center" height="16">
                    <span style="font-size: 9pt">
                    <a title="管理 华人男歌手 所属的歌手" href="bzmtv-33.asp?Classid=1&SClassid=1" style="color: #000000; text-decoration: NONE">
                    华人男歌手</a></span></td>
                    <td width="16%" align="center" height="16">
                    <a title="管理 华人女歌手 所属的歌手" href="bzmtv-33.asp?Classid=1&SClassid=2" style="color: #000000; text-decoration: NONE">
                    <span style="font-size: 9pt">华人女歌手</span></a></td>
                  </tr>
                  <tr>
                    <td width="15%" align="center" height="16">
                    <a title="管理 华人乐队组合 所属的歌手" href="bzmtv-33.asp?Classid=1&SClassid=3" style="color: #000000; text-decoration: NONE">
                    <span style="font-size: 9pt">华人乐队组合</span></a></td>
                    <td width="16%" align="center" height="16">
                    <a title="管理 影视合辑其它 所属的歌手" href="bzmtv-33.asp?Classid=1&SClassid=4" style="color: #000000; text-decoration: NONE">
                    <span style="font-size: 9pt">影视合辑其它</span></a></td>
                  </tr>
                  <tr>
                    <td width="15%" align="center" height="16">
                    <a title="管理 日韩男歌手 所属的歌手" href="bzmtv-33.asp?Classid=1&SClassid=5" style="color: #000000; text-decoration: NONE">
                    <span style="font-size: 9pt">日韩男歌手</span></a></td>
                    <td width="16%" align="center" height="16">
                    <a title="管理 日韩女歌手 所属的歌手" href="bzmtv-33.asp?Classid=1&SClassid=6" style="color: #000000; text-decoration: NONE">
                    <span style="font-size: 9pt">日韩女歌手</span></a></td>
                  </tr>
                  <tr>
                    <td width="15%" align="center" height="16">
                    <a title="管理 日韩乐队组合 所属的歌手" href="bzmtv-33.asp?Classid=1&SClassid=7" style="color: #000000; text-decoration: NONE">
                    <span style="font-size: 9pt">日韩乐队组合</span></a></td>
                    <td width="16%" align="center" height="16">
                    <a title="管理 欧美全部歌手 所属的歌手" href="bzmtv-33.asp?Classid=1&SClassid=9" style="color: #000000; text-decoration: NONE">
                    <span style="font-size: 9pt">欧美全部歌手</span></a></td>
                  </tr>
                  <tr>
                    <td width="15%" align="center" height="13">
                    <a title="管理 闽南语台语 所属的歌手" href="bzmtv-33.asp?Classid=1&SClassid=10" style="color: #000000; text-decoration: NONE">
                    <span style="font-size: 9pt">闽南语台语</span></a></td>
                    <td width="16%" align="center" height="13">
                    <a title="管理 儿童歌曲 所属的歌手" href="bzmtv-33.asp?Classid=1&SClassid=11" style="color: #000000; text-decoration: NONE">
                    <span style="font-size: 9pt">儿童歌曲</span></a></td>
                  </tr>
                  <tr>
                    <td width="15%" align="center" height="16">
                    <a title="管理 音乐欣赏 所属的歌手" href="bzmtv-33.asp?Classid=1&SClassid=12" style="color: #000000; text-decoration: NONE">
                    <span style="font-size: 9pt">音乐欣赏</span></a></td>
                    <td width="16%" align="center" height="16">
                    <a title="管理 DJ摇滚 所属的歌手" href="bzmtv-33.asp?Classid=1&SClassid=13" style="color: #000000; text-decoration: NONE">
                    <span style="font-size: 9pt">DJ摇滚</span></a></td>
                  </tr>
                  <tr>
                    <td width="15%" align="center" height="16">
                    <a title="管理 歌曲排行榜 所属的歌手" href="bzmtv-33.asp?Classid=1&SClassid=17" style="color: #000000; text-decoration: NONE">
                    <span style="font-size: 9pt">歌曲排行榜</span></a></td>
                    <td width="16%" align="center" height="16"></td>
                  </tr>
                </table>
              </td>
            </tr>
          </table>
        </div>
      </td>
    </tr>
  </table>
  </center>
</div>
</body>                    
</html>           
<html></html>
💿 文件大小 517 K
👤 上传用户 sky8997991
📂 所属分类书籍源码
🏷️ 相关标签

#网站
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -