videoclasssave.asp

烈火之家整站程序 本程序集商业娱乐一体,本来是给自己用的但是我的国外空间支持不够好,就送给大家了. 1. 栏目包括 最新信息,下载,影音娱乐,作品展示,定制业务,支持服务,留言,关于本站. 2.管理员

<!--#include file="admin.asp"-->
<!--#include file="conn1.asp"-->
<%
NewClassName=Trim(request.form("NewClassName"))
ClassId=request.form("ClassId")
action=request("action")
set rs=server.createobject("adodb.recordset")
if action="add" and NewClassName<>"" then
call add()
elseif action="edit" and NewClassName<>"" then
call edit()
elseif action="del" then
call del()
end if

sub add()
sql="select ClassName from VideoClass where (ClassId IS NULL)"
rs.open sql,conn,1,3
rs.addnew
rs("ClassName")=NewClassName
rs.update
rs.close
end sub

sub edit()
sql="select ClassName from VideoClass where ClassId="&ClassId
rs.open sql,conn,1,3
if not rs.eof then
rs("ClassName")=NewClassName
rs.update
end if
rs.close
end sub

sub del()
sql="delete * from VideoClass where ClassId="&ClassId
conn.execute sql
sql="delete * from VideoSpecial where ClassId="&ClassId
conn.execute sql
sql="delete * from Video where ClassId="&ClassId
conn.execute sql
end sub
set rs=nothing
conn.close
set conn=nothing
response.redirect"VideoClass.asp?ClassId="&ClassId
%>