film_server_manage.asp

电影ASP文件

<!--#include file="../film_conn.asp"-->
<!--#include file="session.asp"-->
<!--#include file="../set_url.asp"-->
<%
my=request("my")
change=request("change")
delet=request("delet")
addname=request("addname")
cmdok=request("cmdok")
set rs=server.createobject("adodb.recordset")
if my<>"" then
name=request("name")
pwd=request("pwdd")
sql="select * from admin_pwd where id=1"
rs.open sql,conn,1,3

rs("admin_name")=name
rs("admin_pwd")=pwd
rs.update
rs.close
end if

if change<>"" then
typena=request("typenameg")
sql="select * from type where typeid="&request("typeid")
rs.open sql,conn,1,3

rs("type")=typena
rs.update
rs.close
end if

if request("changemovie")<>"" then
sql="select * from movie where id="&request("id")
rs.open sql,conn,1,3
rs("movie")=trim(request("moviev"))
rs("ipsip")=trim(request("ipsipb"))
rs.update
rs.close
end if

if request("addmovieip")<>"" then
sql="select * from movie"
rs.open sql,conn,1,3
rs.addnew
rs("movie")=request("moviet")
rs("ipsip")=request("ipsipt")
rs.update
rs.close
end if

if delet<>"" then
conn.execute"delete from type where typeid="&request("typeid")
end if

if request("deletserver")<>"" then
conn.execute"delete from movie where id="&request("id")
end if

if addname<>"" then
typer=request("type")
rs.open "select * from type",conn,1,3

rs.addnew
rs("type")=typer
rs.update
rs.close
end if

if cmdok<>"" then
homes=request("homes")
url=request("url")
urls=request("urls")
rs.open "select * from home",conn,1,3
   
rs("homes")=homes
rs("url")=url
rs("urls")=urls
rs.update
rs.close
end if

set rs=nothing
conn.close
set conn=nothing
response.redirect Request.ServerVariables("HTTP_REFERER")
%>