home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1998 February
/
CHIP_2_98.iso
/
software
/
pelne
/
optionp
/
ims.cab
/
smsec.asp
< prev
next >
Wrap
Text File
|
1997-10-15
|
3KB
|
118 lines
<%@ LANGUAGE=VBScript %>
<%'----------------------------------------------------------------------------
'
'
' File: smsec.asp
'
' Description: Directory Security property sheet for SMTP
'
' Copyright (C) 1997 Microsoft Corporation
'
'------------------------------------------------------------------------------%>
<%
Const L_ACCESSCONTROL_TEXT = "Anonymous Access and Authentication Control"
Const L_ENABLEANON_TEXT = "Enable anonymous access and edit the authentication methods for this resource."
Const L_SECCOMM_TEXT = "Secure Communictions"
Const L_VIEWSECOMM_TEXT = "View or set the secure communications method used when the virtual server is accessed."
Const L_EDIT_TEXT = "Edit..."
'Check for non-NT security
On Error Resume Next
Dim fDefaultSecurity
Dim MemAdminObj
Dim ServiceInstance
Dim SercurityMode
if Session("ServiceInstance") = "" then
ServiceInstance = 1
else
ServiceInstance = Session("ServiceInstance")
end if
fDefaultSecurity = true
Set MemAdminObj = CreateObject("MemAdmin.BrokServers")
If Err = 0 then
MemAdminObj.Init 'According to object authors, Init() Errors can be ignored
SecurityMode = MemAdminObj.GetSecurityMode("smtpsvc", ServiceInstance)
if Err = 0 then
fDefaultSecurity = CBool(SecurityMode)
else
Err.Clear()
end if
else
Err.Clear() 'object not installed
end if
%>
<HTML>
<HEAD>
<SCRIPT LANGUAGE="JavaScript">
function popBox(title, width, height, filename){
thefile=(filename + ".asp");
//thefile="smpop.asp?pg="+thefile;
<% if Instr(Request.ServerVariables("HTTP_USER_AGENT"),"MSIE")=0 then %>
width=width +25;
height=height + 50;
<% end if %>
popbox=window.open(thefile,title,"toolbar=no,scrollbars=yes,directories=no,menubar=no,width="+width+",height="+height);
if(popbox !=null)
{
if (popbox.opener==null)
{
popbox.opener=self;
}
}
}
</SCRIPT>
<TITLE></TITLE>
</HEAD>
<BODY BGCOLOR="#CCCCCC" TOPMARGIN=5 TEXT="#000000" LINK="#000000" VLINK="#000000">
<!-- STYLE="font-face: Helv; font-size: 8pt;"> -->
<FORM NAME="userform">
<% if fDefaultSecurity then %>
<TABLE CELLSPACING=0 CELLPADDING=2>
<TR><TD><FONT SIZE=1 FACE="Helv"><B><%= L_ACCESSCONTROL_TEXT %></B><P></FONT></TD></TR>
<TR><TD>
<TABLE CELLSPACING=0 CELLPADDING=2>
<TR>
<TD> </TD>
<TD WIDTH=50 VALIGN="middle"><IMG SRC="images/handshk.gif" WIDTH=32 HEIGHT=28 BORDER=0></TD>
<TD WIDTH=400 VALIGN="top"><FONT SIZE=1 FACE="Helv"><%= L_ENABLEANON_TEXT %></FONT></TD>
<TD VALIGN="middle"><INPUT TYPE="button" VALUE="<%= L_EDIT_TEXT %>" NAME="btnAuthenticate" onClick="popBox('access',600,430, 'smaccess')"></TD>
</TR>
</TABLE>
</TD></TR>
</TABLE>
<HR>
<% end if %>
<TABLE CELLSPACING=0 CELLPADDING=2>
<TR><TD><FONT SIZE=1 FACE="Helv"><B><%= L_SECCOMM_TEXT %></B><P></FONT></TD></TR>
<TR><TD>
<TABLE CELLSPACING=0 CELLPADDING=2>
<TR>
<TD> </TD>
<TD WIDTH=50 VALIGN="middle"><IMG SRC="images/key.gif" WIDTH=32 HEIGHT=28 BORDER=0></TD>
<TD WIDTH=400 VALIGN="top"><FONT SIZE=1 FACE="Helv"><%= L_VIEWSECOMM_TEXT %></FONT></TD>
<TD VALIGN="middle"><INPUT TYPE="button" VALUE="<%= L_EDIT_TEXT %>" NAME="btnCommunication" onClick="popBox('secure',400,410, 'smcomm')"></TD>
</TR>
</TABLE>
</TD></TR>
</TABLE>
</FORM>
</BODY>
</HTML>