www.gusucode.com > 绿色环保工作企业网站源码程序 > admin/editnewpic.asp

    <!--#include file="conn.asp"-->
<!--#include file="admin.asp"-->
<!-- #include file="Inc/Head.asp" -->
<!--#include file="../inc/config.asp"-->
<!--#include file="inc/function.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=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")
%>



</body>
</html>