changeadmin.asp

廣告聯盟系統,發布廣告信息,很不錯的一款

<!--#include file="../checkpost.asp"-->
<!--#include file="../MD5/md5.asp" -->
<!--#include file="security.asp"-->
<!--#include file="articleconn.asp"-->
<%if session("flag")>1 then
    response.write "<script>alert('您的操作权限不够！');history.back();</script>"
    response.end
end if
%>
<%
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
   homes=request("homes")
   url=request("url")
   urls=request("urls")
   times=request("time")
   pthy=request("pthy")
   bjhy=request("bjhy")
   hjhy=request("hjhy")
   zcst=request("zcst")
   zcsd=request("zcsd")
   phone=request("phone")
   qq=request("qq")
   mail=request("mail")
   soft1=request("soft1")
   soft2=request("soft2")
   soft3=request("soft3")
   soft4=request("soft4")
   bank1=request("bank1")
   bank2=request("bank2")
   bank3=request("bank3")
   bank4=request("bank4")
   car1=request("car1")
   car2=request("car2")
   car3=request("car3")
   car4=request("car4")
   name1=request("name1")
   name2=request("name2")
   name3=request("name3")
   name4=request("name4")
   rs.open "select * from home",conn,1,3
   rs("homes")=homes
   rs("url")=url
   rs("urls")=urls
   rs("time")=times
   rs("pthy")=pthy
   rs("bjhy")=bjhy
   rs("hjhy")=hjhy
   rs("zcst")=zcst
   rs("zcsd")=zcsd
   rs("sitephone")=phone
   rs("qqone")=qq
   rs("mail")=mail
   rs("soft1")=soft1
   rs("soft2")=soft2
   rs("soft3")=soft3
   rs("soft4")=soft4
   rs("bank1")=bank1
   rs("bank2")=bank2
   rs("bank3")=bank3
   rs("bank4")=bank4
   rs("car1")=car1
   rs("car2")=car2
   rs("car3")=car3
   rs("car4")=car4
   rs("name1")=name1
   rs("name2")=name2
   rs("name3")=name3
   rs("name4")=name4
   rs.update
   rs.close
end if

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



</body>
</html>