home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_03.cab / iilist.asp < prev    next >
Encoding:
Text File  |  1997-11-12  |  1.9 KB  |  95 lines
  1. <%@ LANGUAGE=VBScript %>
  2. <% Option Explicit %>
  3. <% Response.Expires = 0 %>
  4.  
  5. <% 
  6. Const L_NEWTYPE_TEXT = "New Type"
  7. Const L_ADD_TEXT="Add"
  8. Const L_REMOVE_TEXT="Remove"
  9. Const L_UP_TEXT="Up"
  10. Const L_DOWN_TEXT="Down"
  11. Const L_BACKUP_TEXT = "Backup"
  12. Const L_REMOVEBKUP_TEXT = "Delete"
  13. On Error Resume Next
  14.  
  15. Dim extra, buttonstr, brw
  16. extra=Request.QueryString
  17. brw = Session("Browser")
  18. %>
  19.  
  20. <HTML>
  21. <HEAD>
  22.     <TITLE></TITLE>
  23. </HEAD>
  24. <BODY BGCOLOR="#CCCCCC">
  25. <FORM NAME="userform">
  26. <TABLE>
  27. <TR>
  28. <TD><FONT SIZE=1 FACE="HELV,ARIAL">
  29. <%    if (instr(extra,"Backup")) then %>
  30. <%
  31. if brw = "IE3" then
  32.     buttonstr=L_BACKUP_TEXT
  33. else
  34.     buttonstr="  " & L_BACKUP_TEXT & "  "
  35. end if
  36. %>
  37.  
  38. <INPUT TYPE="Button" VALUE="<%= buttonstr %>" onClick="parent.head.addItem();"><P>
  39. <%
  40. if brw = "IE3" then
  41.     buttonstr=L_REMOVEBKUP_TEXT
  42. else
  43.     buttonstr="   " & L_REMOVEBKUP_TEXT & "   "
  44. end if
  45. %>
  46. <INPUT TYPE="Button" VALUE="<%= buttonstr %>" onClick="parent.head.delItem();"><P>
  47.  
  48.  
  49. <%    else  %>
  50.     
  51. <%
  52.  
  53.  
  54.  
  55.     if (instr(extra,"up")) then
  56.         if brw = "IE3" then
  57.             buttonstr=L_UP_TEXT
  58.         else
  59.             buttonstr="      " & L_UP_TEXT & "     "
  60.         end if
  61.         %><INPUT TYPE="Button" VALUE="<%= buttonstr %>" onClick="parent.head.moveItem(-1);"><P><%
  62.  
  63.         if brw = "IE3" then
  64.             buttonstr=L_DOWN_TEXT
  65.         else
  66.             buttonstr="   " & L_DOWN_TEXT & "   "
  67.         end if
  68.         %><INPUT TYPE="Button" VALUE="<%= buttonstr %>" onClick="parent.head.moveItem(1);"><P><%
  69.     end if
  70.  
  71.  
  72.     if (instr(extra,"NewType")) then
  73.         buttonstr = L_NEWTYPE_TEXT 
  74.     else
  75.     
  76.         if brw = "IE3" then
  77.             buttonstr=L_ADD_TEXT
  78.         else
  79.             buttonstr="     " & L_ADD_TEXT & "    "
  80.         end if
  81.     end if
  82.  
  83.      %>
  84.      
  85.     <INPUT TYPE="Button" VALUE="<%= buttonstr %>" onClick="parent.head.addItem();"><P>
  86.     <INPUT TYPE="Button" VALUE="<%= L_REMOVE_TEXT %>" onClick="parent.head.delItem();"><P>
  87.     
  88. <% end if %>
  89. </TD>
  90. </TR>
  91. </TABLE>
  92. </FORM>
  93. </BODY>
  94. </HTML>
  95.