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=Replace(request("name"), "'", "''")
pwd=Replace(request("pwd"), "'", "''")
sql="select * from password where id=1"
rs.open sql,conn,1,3
rs("name")=name
rs("pwd")=md5(pwd)
rs.update
rs.close
end if
if change"" then
typena=request("typename")
sql="select * from type where typeid="&Replace(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="&clng(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")=Replace(request("moviet"), "'", "''")
rs("ipsip")=Replace(request("ipsipt"), "'", "''")
rs.update
rs.close
end if
if delet"" then
conn.execute"delete from type where typeid="&Replace(request("typeid"), "'", "''")
end if
if request("deletserver")"" then
conn.execute"delete from movie where id="&clng(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
pic1=request("pic1")
pic2=request("pic2")
pic3=request("pic3")
pic4=request("pic4")
pic5=request("pic5")
pic6=request("pic6")
pic7=request("pic7")
movie1=request("movie1")
movie2=request("movie2")
movie3=request("movie3")
movie4=request("movie4")
movie5=request("movie5")
movie6=request("movie6")
movie7=request("movie7")
movie11=request("movie11")
movie22=request("movie22")
movie33=request("movie33")
movie44=request("movie44")
movie55=request("movie55")
movie66=request("movie66")
movie77=request("movie77")
rs.open "select * from newpic",conn,1,3
rs("pic1")=pic1
rs("pic2")=pic2
rs("pic3")=pic3
rs("pic4")=pic4
rs("pic5")=pic5
rs("pic6")=pic6
rs("pic7")=pic7
rs("movie1")=movie1
rs("movie2")=movie2
rs("movie3")=movie3
rs("movie4")=movie4
rs("movie5")=movie5
rs("movie6")=movie6
rs("movie7")=movie7
rs("movie11")=movie11
rs("movie22")=movie22
rs("movie33")=movie33
rs("movie44")=movie44
rs("movie55")=movie55
rs("movie66")=movie66
rs("movie77")=movie77
rs.update
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
response.redirect Request.ServerVariables("HTTP_REFERER")
%>
