videoclasssave.asp

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

<!--#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
%>