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.

49 lines
985 B

  1. <%@ LANGUAGE = VBScript %>
  2. <% Option Explicit %>
  3. <!-- #include file="directives.inc" -->
  4. <!--#include file="iiset.str"-->
  5. <%
  6. Dim key
  7. ' Called by iihd.asp, when opening property sheets.
  8. ' this is a fairly generic script... we pass in a variety of keys to set our session vars with
  9. ' including, but not limited to: vtype, stype, spath, dpath
  10. For Each key In Request.QueryString
  11. 'Response.write "KEY:" & key
  12. 'Response.write " VAL:" & Request.QueryString(key) & "<P>"
  13. Session(key)=Request.QueryString(key)
  14. Next
  15. %>
  16. <HTML>
  17. <BODY>
  18. <SCRIPT LANGUAGE="JavaScript">
  19. <!--#include file="iisetfnt.inc"-->
  20. <!--#include file="iijsfuncs.inc"-->
  21. if ("<%= Request.QueryString("vtype") %>"=="comp"){
  22. popBox("computer",<%= L_IICOMP_W %>,<%= L_IICOMP_H %>,"iicomp");
  23. top.body.iisstatus.location="iistat.asp"
  24. }
  25. else{
  26. path = "ii<%= Request.QueryString("stype") %>.asp?vtype=<%= Request.QueryString("vtype") %>";
  27. top.body.location.href=(path);
  28. }
  29. </SCRIPT>
  30. </BODY>
  31. </HTML>