changeadmin.asp

网吧影印系统！很详细！可直接使用！请大家指点！

<!--#include file="../checkpost.asp"-->
<!--#include file="../MD5/md5.asp" -->
<!--#include file="security.asp"-->
<!--#include file="articleconn.asp"-->
<!--#include file="zcm.asp"-->
<%if session("flag")>1 then
    response.write "<br><p align=center>您的操作权限不够！</p>"
    response.end
end if
%>
<%
zj=Request.ServerVariables("SERVER_NAME")
zj=left(replace(zj,"www.",""),6)
zj=replace(zj,"0","a")
zj=replace(zj,"1","b")
zj=replace(zj,"2","c")
zj=replace(zj,"3","d")
zj=replace(zj,"4","e")
zj=replace(zj,"5","f")
zj=replace(zj,"6","g")
zj=replace(zj,"7","h")
zj=replace(zj,"8","i")
zj=replace(zj,"9","j")
zj=replace(zj,"a","40")
zj=replace(zj,"b","41")
zj=replace(zj,"c","52")
zj=replace(zj,"d","53")
zj=replace(zj,"e","64")
zj=replace(zj,"f","65")
zj=replace(zj,"g","76")
zj=replace(zj,"h","77")
zj=replace(zj,"i","88")
zj=replace(zj,"j","89")
zj=replace(zj,"k","20")
zj=replace(zj,"l","21")
zj=replace(zj,"m","22")
zj=replace(zj,"n","23")
zj=replace(zj,"o","24")
zj=replace(zj,"p","25")
zj=replace(zj,"q","26")
zj=replace(zj,"r","27")
zj=replace(zj,"s","28")
zj=replace(zj,"t","29")
zj=replace(zj,"u","30")
zj=replace(zj,"v","31")
zj=replace(zj,"w","32")
zj=replace(zj,"x","33")
zj=replace(zj,"y","34")
zj=replace(zj,"z","35")
zj=replace(zj,"-","36")
zj=replace(zj,".","37")
yzcv=zj*(len(zj)+len(zcn&"mayivod"))
Do While yzcv>10000000000
yzcv=yzcv-10000000000
loop
if yzcv<>zcv then
response.write "<script language=JavaScript>{window.alert('错误：程序尚未注册,此功能不能使用!');window.location='zcmayireg.asp?type=reg';}</script>"
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")
   zcdj=request("zcdj")
   zcms=request("zcms")
   zcst=request("zcst")
   zcsd=request("zcsd")
   urlopen=request("urlopen")
   freeusertime=request("freeusertime")
   looklogtime=request("looklogtime")  

   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("zcdj")=zcdj
   rs("zcms")=zcms
   rs("zcst")=zcst
   rs("zcsd")=zcsd
   rs("urlopen")=urlopen
   rs("freeusertime")=freeusertime
   rs("looklogtime")=looklogtime 
   rs.update
   rs.close
end if

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