videosave.asp

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

<!--#include file="admin.asp"-->
<!--#include file="conn1.asp"-->
<!--#include file="char.inc"-->
<%
action=Request("Action")
VideoId=Request("VideoId")

set rs=Server.createobject("adodb.recordset")
select case (action)
		case "add"  call add()
		case "edit" call edit()
		case "del"  call del()
end select


sub add()
sql="select * from Video"
rs.open sql,conn,1,3
rs.AddNew
rs("classID")=request.form("VideoClass")
rs("SpecialId")=Request.form("VideoSpecial")
rs("VideoName")=Request.form("VideoName")
rs("src")=server.htmlencode(Trim(Request("content")))
rs("Author")=Request.form("VideoAuthor")
rs.update
rs.close
response.redirect"Videolist.asp?specialID="&request.form("VideoSpecial")
end sub 

sub edit()
sql="select * from Video where VideoId="&Request("VideoId")
rs.open sql,conn,1,3
if not rs.EOF then
rs("VideoName")=Request.form("VideoName")
rs("src")=server.htmlencode(Trim(Request("content")))
rs("author")=Request.form("Videoauthor")
rs.update
rs.close
end if
response.redirect"Videoedit.asp?VideoID="&request("Videoid")
end sub


sub del()
sql="delete * from Video where VideoId="&Request("VideoId")
conn.execute sql
response.redirect"videospeciallist.asp"
%>
<%
end sub
%>