Source code of Windows XP (NT5)
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.

103 lines
2.1 KiB

  1. <%@ LANGUAGE = VBScript %>
  2. <% Option Explicit %>
  3. <!-- #include file="directives.inc" -->
  4. <% if Session("FONTSIZE") = "" then %>
  5. <!--#include file="iito.inc"-->
  6. <% else %>
  7. <!--#include file="iifmsg.str"-->
  8. <%
  9. On Error Resume Next
  10. Dim path, currentobj,agreeting, greeting, arraybound, i
  11. path=Session("spath")
  12. Session("path")=path
  13. Set currentobj=GetObject(path)
  14. Session("SpecObj")=""
  15. Session("SpecProps")=""
  16. if IsArray(currentobj.GreetingMessage) then
  17. agreeting=currentobj.GreetingMessage
  18. greeting= ""
  19. arraybound=UBound(agreeting)
  20. for i=0 to arraybound
  21. greeting=greeting & agreeting(i)
  22. Next
  23. else
  24. greeting=currentobj.GreetingMessage
  25. end if
  26. %>
  27. <!--#include file="iiset.inc"-->
  28. <!--#include file="iisetfnt.inc"-->
  29. <HTML>
  30. <HEAD>
  31. <TITLE></TITLE>
  32. <SCRIPT LANGUAGE="JavaScript">
  33. var Global=top.title.Global;
  34. top.title.Global.helpFileName="iipz_2";
  35. function loadVals(){
  36. }
  37. </SCRIPT>
  38. </HEAD>
  39. <BODY BGCOLOR="<%= Session("BGCOLOR") %>" TOPMARGIN=5 TEXT="#000000" LINK="#FFFFFF" onLoad="loadVals();" >
  40. <%= sFont("","","",True) %>
  41. <B><%= L_VSERVERMSG_TEXT %></B>
  42. <FORM NAME="userform" onSubmit="return false">
  43. <TABLE BORDER=0 CELLPADDING=0>
  44. <TR>
  45. <TD><%= sFont("","","",True) %><%= L_WELCOME_TEXT %></FONT></TD>
  46. </TR>
  47. <TR>
  48. <TD>
  49. <% if Session("IsIE") then %>
  50. <TEXTAREA WRAP=VIRTUAL NAME="txtGreetingMessage" ROWS=<%= L_WELCOMEROWS_NUM %> COLS=<%= L_WELCOMECOLSIE_NUM %>><%= greeting %></TEXTAREA>
  51. <% else %>
  52. <TEXTAREA WRAP=VIRTUAL NAME="txtGreetingMessage" ROWS=<%= L_WELCOMEROWS_NUM %> COLS=<%= L_WELCOMECOLSNS_NUM %>><%= greeting %></TEXTAREA>
  53. <% end if %>
  54. </TD>
  55. </TR>
  56. <TR>
  57. <TD HEIGHT=4><%= sFont("","","",True) %>&nbsp;</FONT></TD>
  58. </TR>
  59. <TR>
  60. <TD><%= sFont("","","",True) %><%= L_EXIT_TEXT %></FONT></TD>
  61. </TR>
  62. <TR>
  63. <TD><%= sFont("","","",True) %><%= text("ExitMessage",L_EXIT_NUM,"","","",false,false) %></FONT></TD>
  64. </TR>
  65. <TR>
  66. <TD HEIGHT=4><%= sFont("","","",True) %>&nbsp;</FONT></TD>
  67. </TR>
  68. <TR>
  69. <TD><%= sFont("","","",True) %><%= L_MAX_TEXT %></FONT></TD>
  70. </TR>
  71. <TR>
  72. <TD><%= sFont("","","",True) %><%= text("MaxClientsMessage",L_MAX_NUM,"","","",false,false) %></FONT></TD>
  73. </TR>
  74. </TABLE>
  75. </FORM>
  76. </FONT>
  77. </BODY>
  78. </HTML>
  79. <% end if %>