<%
Function ChkLogon()
dim sFullUser
dim iPos
dim sLogonDomain
dim sLogonUser
Dim Path
Dim AdminGroup
dim sDomain
dim DefaultUser
dim TempStr
dim LogonOK
sFullUser = Request.ServerVariables("LOGON_USER")
Path = server.mappath("/")
iPos = InStr(Path, "\")
TempStr = Mid(Path, iPos + 1)
iPos = InStr(TempStr, "\")
TempStr = Mid(TempStr, iPos + 1)
iPos = InStr(TempStr, "\")
sDomain = Left(TempStr, iPos - 1)
iPos = InStr(TempStr, "\")
TempStr = Mid(TempStr, iPos + 1)
iPos = InStr(TempStr, "\")
TempStr = Mid(TempStr, iPos + 1)
iPos = InStr(TempStr, "\")
TempStr = Mid(TempStr, iPos + 1)
iPos = InStr(TempStr, "\")
DefaultUser = Left(TempStr, iPos - 1)
iPos = InStr(sFullUser, "\")
if iPos > 0 then
sLogonDomain = Left(sFullUser, iPos - 1)
sLogonUser = Mid(sFullUser, iPos + 1)
else
iPos = InStr(sFullUser, "/")
if iPos > 0 then
sLogonDomain = Left(sFullUser, iPos - 1)
sLogonUser = Mid(sFullUser, iPos + 1)
else
sLogonDomain = ""
sLogonUser = sFullUser
end if
end if
if StrComp (sLogonDomain,"hosting",1)<>0 then
AdminGroup = "admins@" + DefaultUser
Set oGroup = GetObject("WinNT://" & sDomain & "/" & AdminGroup)
For each oUser in oGroup.Members
if StrComp (sLogonUser,oUser.Name,1)=0 then
LogonOK = "1"
end if
Next
if StrComp (LogonOK,"1",1)<>0 then
Response.Redirect ("/admin/loginfailed.htm")
end if
end if
End Function
%>
<%
ChkLogon()
%>
Administrative Interface
<![CDATA[
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" background="../_themes/valueadd/valtxtr.gif" bgcolor="#CCCC99" text="#000000" link="#660033" vlink="#996600" alink="#009933"><!--mstheme--><font face="Times New Roman, Times">
<!--mstheme--></font></body>
]]>