songspecialsave.asp

来自「烈火之家整站程序 本程序集商业娱乐一体,本来是给自己用的但是我的国外空间支持不够」· ASP 代码 · 共 86 行

<!--#include file="admin.asp"-->
<!--#include file="conn1.asp"-->
<!--#include file="char.inc"-->
<!-- #include file="../Inc/Head.asp" -->
<%
action=request("action")
if instr(Request("Class_Nclass"),",")>0 then
	Class_array=split(Request.Form("Class_Nclass"),",")
	Class_Id=Class_array(0)
	Nclass_Id=Class_array(1)
elseif action<>"del" then
	errmsg="<li>请选择所属类别"
	founderr=true
end if
Special_Id=Request.Form("Special_Id")
Special_Name=htmlencode(trim(Request.Form("Special_Name")))
Special_Order=Request.Form("Special_Order")
Special_image=Request.Form("Special_image")
Special_Company=trim(Request.Form("Special_Company"))
Special_time=trim(Request.Form("Special_time"))

if founderr=true then
	call error()
	Response.End
else
	set rs=Server.createobject("adodb.recordset")
	select case (action)
		case "add"  call add()
		case "edit" call edit()
		case "del"  call del()
	end select
end if

sub add()
sql="select * from songSpecial where Special_Name='"&Special_Name&"'" 
rs.open sql,conn,1,3
if not rs.eof then
	errmsg="<li>[<b>"&Special_Name&"</b>]专辑已经存在于数据库中"
	call error()
	response.end
else
rs.addnew
rs("Class_Id")=Class_Id
rs("Nclass_Id")=Nclass_Id
rs("Special_Name")=Special_Name
rs("Special_Order")=Special_Order
rs("image")=Special_image
rs("Company")=Special_Company
rs("time")=Special_time
rs.update
rs.close
response.Redirect"songspeciallist.asp"
end if
end sub

sub edit()
sql="select * from songSpecial where Special_Id="&Request("Special_Id")
rs.open sql,conn,1,3
if not rs.EOF then
rs("Class_Id")=Class_Id
rs("Nclass_Id")=Nclass_Id
rs("Special_Name")=Special_Name
rs("Special_Order")=Special_Order
rs("image")=Special_image
rs("Company")=Special_Company
rs("time")=Special_time
rs.update
conn.execute("update song set class_ID="&class_ID&", Nclass_ID="&Nclass_id&" where special_Id="&request("special_ID"))
rs.close
response.redirect "songspecialedit.asp?special_ID="&request("special_id")
end if
end sub

sub del()
sql="delete * from songSpecial where Special_Id="&Request("Special_Id")
conn.execute sql
sql2="delete * from song where Special_Id="&Request("Special_Id")
conn.execute sql2
%>
<script>window.opener.parent.location.reload();window.close()</script>
<%
end sub
set rs=nothing
conn.close
set conn=nothing
%>