📄 classsave.asp

📁 音乐类型的好网站
💻 ASP
字号:
<!--#include file="function.asp"-->
<%CheckAdmin1%>
<!--#include file="conn.asp"-->
<%
founderr=false
act=request("act")
ClassID=request.QueryString("ClassID")
if act="rename" then
	FunRename
elseif act="del" then
	FunDel
elseif act="add" then
	FunAdd
else
	errmsg=errmsg+"<br>"+"<li>操作出错！请联系管理员"
	founderr=true
end if
if founderr=true then
	call error()
else

end if

function FunRename
if trim(request.form("Class"))="" then
	errmsg=errmsg+"<br>"+"<li>分类名不能为空！"
	founderr=true
else
	set rs=server.createobject("adodb.recordset")
	sql = "SELECT * FROM class where classid=" & ClassID
	rs.Open sql,conn,1,3
	if err.Number<>0 then
		err.clear
		errmsg=errmsg+"<br>"+"<li>操作出错！请联系管理员"
		founderr=true
	else
		rs("class") = request.form("Class")
		rs.Update

	end if
	rs.Close
	set rs=nothing
	conn.close
	set conn=nothing
end if
end function

function FunDel
	sql="delete from class where classid=" & ClassID
	conn.execute sql
'删除相关栏目下二级栏目
	sql="delete from Sclass where classid=" & ClassID
	conn.execute sql
'删除相关栏目下三级栏目
	sql="delete from Nclass where classid=" & ClassID
	conn.execute sql
'删除相关栏目对应商品
	sql="delete from Shangpin where classid=" & ClassID
	conn.execute sql
	if err.Number<>0 then
		err.clear
		errmsg=errmsg+"<br>"+"<li>操作出错！请联系管理员"
		founderr=true
	end if
end function

function FunAdd
if trim(request("Class"))="" then
	errmsg=errmsg+"<br>"+"<li>分类名不能为空！"
	founderr=true
else
	set rs=server.createobject("adodb.recordset")
	sql = "SELECT * FROM class where (classid IS NULL)"
	rs.Open sql,conn,1,3
	if err.Number<>0 then
		err.clear
		errmsg=errmsg+"<br>"+"<li>操作出错！请联系管理员"
		founderr=true
	else
		rs.AddNew
		rs("class") = request.form("Class")
		rs.Update
	end if
	rs.Close
	set rs=nothing
	conn.close
	set conn=nothing
end if
end function
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="RSHOP" content="k666影音世界http://www.vv66.com">
<meta Author="Recall Star" content="k666影音世界http://www.vv66.com">
<title>k666音乐屋</title>
<!--#include file="style.asp"-->
</head>
<body topmargin="111" leftmargin="0">
<div align="center">
  <center>
  <table border="0" cellspacing="0" width="60%">
    <tr>
      <td width="100%" bgcolor="#CC0066">
        <div align="center">
          <table border="0" cellpadding="0" cellspacing="0" width="100%">
            <tr>
              <td width="100%" bgcolor="#FFFFFF" height="80" align="center">
                <b>O K !&nbsp; 操 作 完 成 !&nbsp; ^_^</b>
                <p><b><a href="javascript:history.go(-1)">...::: 点 此 返 回 
                :::...</a></b>
              </td>
            </tr>
          </table>
        </div>
      </td>
    </tr>
  </table>
  </center>
</div>
</body>                    
</html>
⌨️ 快捷键说明

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