userinfosql.asp

蓝芒3.0A最新所有功能完整破解版

<% ModuleCode="M0110" %>
<!--#include file="../../Include/Reference.asp"-->
<!--#include file="../../Include/connect.asp"-->
<!--#include file="../../Include/Security.asp"-->
<%
UserID = Request("UserID")
act = Request("act")
LevelCode = Request.Form("LevelCode")
OPIP=Request.ServerVariables("REMOTE_ADDR")
OPPK=UserID
OPType="修改"
OPTable="T_DNS_UserInfo"

if InStr(Opt_Root,CStr(Session("UserID")))<1 then
	IsProtect=False
	strSQL="Select a.IsAdmin from T_DNS_RoleInfo a,T_DNS_UserRole b where b.RoleCode=a.RoleCode and b.UserID='" & UserID & "'"
	Set ADRs=Cn.Execute(strSQL)
	Do While Not ADRs.Eof
		if Mid(ADRs("IsAdmin"),5,1)="Y" then
			IsProtect=True
			Exit Do
		end if
		ADRs.Movenext
	Loop
	ADRs.Close
	Set ADRs=Nothing
	
	if IsProtect and UserID<>CStr(Session("UserID")) then
		Response.Write "<br><br><br><p align='center' class='titletext'>对不起，您没有权限！</p>"
		Response.End
	end if
else
	IsRoot=True
end if

if InStr(Opt_Root,UserID)>0 then
	IsRoot=True
else
	IsRoot=False
end if

Select Case act
	Case "1"
		OPModule="用户信息维护"
		strSQL="Update T_DNS_UserInfo Set UserStat='1' Where UserID=" & UserID
		Cn.Execute(strSQL)
	Case "2"
		if Not IsRoot then
			OPModule="用户信息维护"
			strSQL="Update T_DNS_UserInfo Set UserStat='3' Where UserID=" & UserID
			Cn.Execute(strSQL)
		end if
	Case "修改"
		OPModule="用户级别维护"
		strSQL="Update T_DNS_UserInfo Set LevelCode='" & LevelCode & "' Where UserID=" & UserID
		Cn.Execute(strSQL)
End Select
Cn.Execute("SP_UserOP "&session("UserID")&",'"&OPTable&"','"&OPModule&"','"&OPPK&"','"&OPType&"','"&OPIP&"'" )
Response.Redirect "UserInfo.asp"
%>