admin_user_edit.asp

来自「电影ASP文件」· ASP 代码 · 共 70 行

<!--#include file="session.asp"-->
<!--#include file="../set_url.asp"-->
<!--#include file="../film_conn.asp"-->
<!--#include file="md5.asp"-->
<%
if session("myflager")>1 then
response.write "<br><p align=center>您的操作权限不够！</p>"
response.end
end if
%>
<%
newpin=LCase(Request("newpin"))
flag=Request("flag")

manager=LCase(Request("manager"))
manager=replace(manager,"'","")
manager=replace(manager,"%","")

oldmanager=LCase(Request("oldmanager"))
oldmanager=replace(oldmanager,"'","")
oldmanager=replace(oldmanager,"%","")
   
submit=Trim(Request("submit"))

   
'//进行修改操作
   set rs = server.createobject("adodb.recordset")
   if submit="修改" then

if newpin="" or flag="" or manager="" then
response.write "<br><p align=center>所有参数均不能为空！</p>"
response.end
end if

'//修改用户密码      
	sql="select * from admin_pwd where id="&request("id")
	 rs.open sql,conn,1,3
	 rs("admin_name")=manager
	 rs("admin_pwd")=md5(newpin)
	 rs("flag")=flag
	 rs.update
	 rs.close
	 set rs=nothing
   
         conn.Close
         set conn=Nothing        

         response.redirect "admin_user.asp"
   
    end if
    
'//进行删除操作
   if submit="删除" then
   
if oldmanager="" then
response.write "<br><p align=center>所有参数均不能为空！</p>"
response.end
end if

      sql="delete from admin_pwd where admin_name='"&oldmanager&"'"

      conn.Execute sql
      
      conn.Close
      set conn=Nothing      
     
   response.redirect "admin_user.asp"
   
   end if
%>