manage_oper.asp

1。超强文件读写锁定

<!--#include file="mConn.asp"-->
<!--#include file="mConst.asp"-->
<%
 If Session("SK2Admin")="" Then
  Response.Redirect "Admin_Login.Asp"
  Response.End
End If

Select Case Request.Form("mama")
  Case "添加"
    Add_Manager
  Case "修改"
    Edit_Manager
  Case "删除"
    Del_Manager
  Case Else
    Response.Redirect "index_manager.asp"
	Response.End
End Select


Sub Add_Manager
  If CheckStr(Request.Form("adminuser"))="" Then
   Response.Write ("<script language=javascript>alert('用户名不能为空！');history.go(-1)</script>")
   Response.End
  End If

  If CheckStr(Request.Form("adminpwd"))="" Then
   Response.Write ("<script language=javascript>alert('密码不能为空！');history.go(-1)</script>")
   Response.End
  End If

  If CheckStr(Request.Form("adminpwd2"))="" Then
   Response.Write ("<script language=javascript>alert('确认密码不能为空！');history.go(-1)</script>")
   Response.End
  End If

  If CheckStr(Request.Form("adminpwd"))<>CheckStr(Request.Form("adminpwd2")) Then
   Response.Write ("<script language=javascript>alert('密码和确认密码不一致！');history.go(-1)</script>")
   Response.End
  End If

  Dim adminuser,adminpwd
   adminuser=CheckStr(Request.Form("adminuser"))
   adminpwd=CheckStr(Request.Form("adminpwd"))

  Dim Rs6
   Set Rs6=Server.CreateObject("Adodb.RecordSet")
   Set Rs6=Conn.Execute("Select Top 1 adminuser from m_admin where adminuser='"&adminuser&"' Order By ID Desc")
   If Not Rs6.Eof Then
     Set Rs6=Nothing
	 Response.Write ("<script language=javascript>alert('"&adminuser&"已存在，不能重复添加！');history.go(-1)</script>")
     Response.End
   End If
   Set Rs6=Conn.Execute("Insert into m_admin (adminuser,adminpwd) values ('"&adminuser&"','"&adminpwd&"')")
   Set Rs6=Nothing
   Response.Write ("<script language=javascript>alert('"&adminuser&"添加成功！');location.href='index_manager.asp'</script>")
   Response.End


End Sub

Sub Edit_Manager
  If CheckStr(Request.Form("adminuser"))="" Then
   Response.Write ("<script language=javascript>alert('用户名不能为空！');history.go(-1)</script>")
   Response.End
  End If

  If CheckStr(Request.Form("adminpwd"))="" Then
   Response.Write ("<script language=javascript>alert('密码不能为空！');history.go(-1)</script>")
   Response.End
  End If

  If CheckStr(Request.Form("adminpwd2"))="" Then
   Response.Write ("<script language=javascript>alert('确认密码不能为空！');history.go(-1)</script>")
   Response.End
  End If

  If CheckStr(Request.Form("adminpwd"))<>CheckStr(Request.Form("adminpwd2")) Then
   Response.Write ("<script language=javascript>alert('密码和确认密码不一致！');history.go(-1)</script>")
   Response.End
  End If

  Dim adminuser,adminpwd
   adminuser=CheckStr(Request.Form("adminuser"))
   adminpwd=CheckStr(Request.Form("adminpwd"))

  Dim Rs6
   Set Rs6=Server.CreateObject("Adodb.RecordSet")
   Set Rs6=Conn.Execute("Select Top 1 adminuser from m_admin where adminuser='"&adminuser&"' Order By ID Desc")
   If Rs6.Eof Then
     Set Rs6=Nothing
	 Response.Write ("<script language=javascript>alert('"&adminuser&"不存在或密码错误！');history.go(-1)</script>")
     Response.End
   End If
   Set Rs6=Conn.Execute("Update m_admin Set adminpwd='"&adminpwd&"' Where adminuser='"&adminuser&"'")
   Set Rs6=Nothing
   Response.Write ("<script language=javascript>alert('"&adminuser&"密码修改成功！');location.href='index_manager.asp'</script>")
   Response.End
End Sub

Sub Del_Manager
  If CheckStr(Request.Form("adminuser"))="" Then
   Response.Write ("<script language=javascript>alert('用户名不能为空！');history.go(-1)</script>")
   Response.End
  End If

  If CheckStr(Request.Form("adminpwd"))="" Then
   Response.Write ("<script language=javascript>alert('密码不能为空！');history.go(-1)</script>")
   Response.End
  End If

  If CheckStr(Request.Form("adminpwd2"))="" Then
   Response.Write ("<script language=javascript>alert('确认密码不能为空！');history.go(-1)</script>")
   Response.End
  End If

  If CheckStr(Request.Form("adminpwd"))<>CheckStr(Request.Form("adminpwd2")) Then
   Response.Write ("<script language=javascript>alert('密码和确认密码不一致！');history.go(-1)</script>")
   Response.End
  End If

  Dim adminuser,adminpwd
   adminuser=CheckStr(Request.Form("adminuser"))
   adminpwd=CheckStr(Request.Form("adminpwd"))

  Dim Rs6
   Set Rs6=Server.CreateObject("Adodb.RecordSet")
   Set Rs6=Conn.Execute("Select Top 1 adminuser from m_admin where adminuser='"&adminuser&"' Order By ID Desc")
   If Rs6.Eof Then
     Set Rs6=Nothing
	 Response.Write ("<script language=javascript>alert('"&adminuser&"不存在或密码错误！');history.go(-1)</script>")
     Response.End
   End If
   Set Rs6=Conn.Execute("Delete From m_admin Where adminuser='"&adminuser&"' And adminpwd='"&adminpwd&"'")
   Set Rs6=Nothing
   Response.Write ("<script language=javascript>alert('"&adminuser&"已被删除！');location.href='index_manager.asp'</script>")
   Response.End
End Sub

%>