managemailuserdo.asp

来自「蓝芒3.0A最新所有功能完整破解版」· ASP 代码 · 共 44 行

<% ModuleCode="M0510" %>
<!--#include file="../../Include/connect.asp"-->
<!--#include file="../../Include/Security.asp"-->
<!--#include file="../../Include/WEBCtrl.asp"-->
<%
PostID=Request.QueryString("ID")
OP=Request.QueryString("OP")
MailUser=Request.QueryString("UID")
strSQL="Select * from v_MailList Where PostID='" & PostID & "'"
if Session("ISADMIN")<>"YES" then
	strSQL = strSQL & " and UserID=" & Session("UserID")
end if

Set Rs= Server.CreateObject("ADODB.Recordset")
Rs.open strSQL,Cn,1,1
If not Rs.Eof Then
	ServerIP=Rs("ServerIP")
	Select Case OP
		Case "enable"
			if EnableMailUser(ServerIP,MailUser)=0 then
				Cn.Execute("SP_UserOP "& session("UserID")& ",'N/A','邮局用户管理','" & PostID & "(" & MailUser & ")" & "','启用','"& Request.ServerVariables("REMOTE_ADDR") &"'" )
			end if
		Case "disable"
			if DisableMailUser(ServerIP,MailUser)=0 then
				Cn.Execute("SP_UserOP "& session("UserID")& ",'N/A','邮局用户管理','" & PostID & "(" & MailUser & ")" & "','禁用','"& Request.ServerVariables("REMOTE_ADDR") &"'" )
			end if
		Case "clear"
			if CleanUserMailBox(ServerIP,MailUser)=0 then
				Cn.Execute("SP_UserOP "& session("UserID")& ",'N/A','邮局用户管理','" & PostID & "(" & MailUser & ")" & "','清空','"& Request.ServerVariables("REMOTE_ADDR") &"'" )
			end if
		Case "del"
			if DeleteMailUser(ServerIP,MailUser)=0 then
				Cn.Execute("SP_UserOP "& session("UserID")& ",'N/A','邮局用户管理','" & PostID & "(" & MailUser & ")" & "','删除','"& Request.ServerVariables("REMOTE_ADDR") &"'" )
			end if
	End Select
end if

Rs.Close
Set Rs=Nothing
Cn.Close
Set Cn=Nothing

Response.Redirect "ManageMailUser.asp?ID=" & PostID
%>