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>