mirror of https://github.com/tongzx/nt5src
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
104 lines
2.1 KiB
104 lines
2.1 KiB
<%@ LANGUAGE = VBScript %>
|
|
<% Option Explicit %>
|
|
<!-- #include file="directives.inc" -->
|
|
|
|
<% if Session("FONTSIZE") = "" then %>
|
|
<!--#include file="iito.inc"-->
|
|
<% else %>
|
|
<!--#include file="iifmsg.str"-->
|
|
<%
|
|
|
|
On Error Resume Next
|
|
|
|
Dim path, currentobj,agreeting, greeting, arraybound, i
|
|
|
|
path=Session("spath")
|
|
Session("path")=path
|
|
Set currentobj=GetObject(path)
|
|
Session("SpecObj")=""
|
|
Session("SpecProps")=""
|
|
|
|
if IsArray(currentobj.GreetingMessage) then
|
|
|
|
agreeting=currentobj.GreetingMessage
|
|
greeting= ""
|
|
arraybound=UBound(agreeting)
|
|
for i=0 to arraybound
|
|
greeting=greeting & agreeting(i)
|
|
Next
|
|
else
|
|
greeting=currentobj.GreetingMessage
|
|
end if
|
|
|
|
%>
|
|
|
|
<!--#include file="iiset.inc"-->
|
|
<!--#include file="iisetfnt.inc"-->
|
|
<HTML>
|
|
<HEAD>
|
|
<TITLE></TITLE>
|
|
<SCRIPT LANGUAGE="JavaScript">
|
|
var Global=top.title.Global;
|
|
top.title.Global.helpFileName="iipz_2";
|
|
|
|
function loadVals(){
|
|
}
|
|
|
|
</SCRIPT>
|
|
</HEAD>
|
|
|
|
<BODY BGCOLOR="<%= Session("BGCOLOR") %>" TOPMARGIN=5 TEXT="#000000" LINK="#FFFFFF" onLoad="loadVals();" >
|
|
<%= sFont("","","",True) %>
|
|
<B><%= L_VSERVERMSG_TEXT %></B>
|
|
<FORM NAME="userform" onSubmit="return false">
|
|
|
|
<TABLE BORDER=0 CELLPADDING=0>
|
|
<TR>
|
|
<TD><%= sFont("","","",True) %><%= L_WELCOME_TEXT %></FONT></TD>
|
|
</TR>
|
|
<TR>
|
|
<TD>
|
|
|
|
<% if Session("IsIE") then %>
|
|
<TEXTAREA WRAP=VIRTUAL NAME="txtGreetingMessage" ROWS=<%= L_WELCOMEROWS_NUM %> COLS=<%= L_WELCOMECOLSIE_NUM %>><%= greeting %></TEXTAREA>
|
|
<% else %>
|
|
<TEXTAREA WRAP=VIRTUAL NAME="txtGreetingMessage" ROWS=<%= L_WELCOMEROWS_NUM %> COLS=<%= L_WELCOMECOLSNS_NUM %>><%= greeting %></TEXTAREA>
|
|
<% end if %>
|
|
|
|
|
|
</TD>
|
|
</TR>
|
|
|
|
<TR>
|
|
<TD HEIGHT=4><%= sFont("","","",True) %> </FONT></TD>
|
|
</TR>
|
|
|
|
<TR>
|
|
<TD><%= sFont("","","",True) %><%= L_EXIT_TEXT %></FONT></TD>
|
|
</TR>
|
|
|
|
<TR>
|
|
<TD><%= sFont("","","",True) %><%= text("ExitMessage",L_EXIT_NUM,"","","",false,false) %></FONT></TD>
|
|
</TR>
|
|
|
|
<TR>
|
|
<TD HEIGHT=4><%= sFont("","","",True) %> </FONT></TD>
|
|
</TR>
|
|
|
|
<TR>
|
|
<TD><%= sFont("","","",True) %><%= L_MAX_TEXT %></FONT></TD>
|
|
</TR>
|
|
|
|
<TR>
|
|
<TD><%= sFont("","","",True) %><%= text("MaxClientsMessage",L_MAX_NUM,"","","",false,false) %></FONT></TD>
|
|
</TR>
|
|
|
|
|
|
</TABLE>
|
|
|
|
</FORM>
|
|
</FONT>
|
|
</BODY>
|
|
|
|
</HTML>
|
|
<% end if %>
|