home *** CD-ROM | disk | FTP | other *** search
/ Computer Shopper 139 / dpcs0999.iso / Web / CFserver / data1.cab / Administrator / applets / index.cfm (.txt) < prev   
Encoding:
ColdFusion Encrypted Template  |  1999-04-12  |  3.6 KB  |  85 lines
  1. <META NAME="Author" CONTENT="Copyright 1996 Allaire Corp. All rights reserved.">
  2. <META NAME="Version" CONTENT="$Revision: 11 $ $Modtime: 9/14/98 3:45p $">
  3.  
  4. <!---------------------- Initialize registry key and get task data -------------------------->
  5. <CFNewInternalRegistry ACTION=SET BRANCH="HKEY_LOCAL_MACHINE\SOFTWARE\Allaire\ColdFusion\CurrentVersion" ENTRY="Applets" TYPE="KEY">
  6.  
  7. <CFNewInternalRegistry ACTION=GETALL NAME="Applet_List"
  8.         TYPE="KEY"
  9.         BRANCH="HKEY_LOCAL_MACHINE\SOFTWARE\Allaire\ColdFusion\CurrentVersion\Applets">
  10.     
  11. <!----------------------------- Build the page --------------------------------->
  12. <HTML>
  13. <HEAD><TITLE>ColdFusion Administrator - Registered Applets</TITLE></HEAD>
  14. <!--- General page formatting is controled by this template --->
  15. <cfinclude template="../formatting/header.cfm">
  16.  
  17. <LINK Rel="Stylesheet" Type="text/css" Href="../TableDataStylesheet.css">
  18.  
  19. <CFOUTPUT>
  20. <FONT SIZE="#Evaluate(2 + FONTSIZE)#" FACE="#FONTFACE#"><B>Registered Applets</B></FONT><BR><BR>
  21. </CFOUTPUT>
  22.  
  23. <FORM ACTION="editapplet.cfm" METHOD="POST">
  24. <INPUT Name="CreateAppletName_required" Type="hidden" VALUE="You need to enter a valid Applet name in order to proceed." >
  25.  
  26. <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=3 WIDTH="100%">
  27. <TR  BGCOLOR="#669966">
  28.     <CFOUTPUT>
  29.     <TD ALIGN="Left" VALIGN="Top"><FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#" COLOR="##FFFFFF"><B>Applet</B></FONT></TD>
  30.     <TD ALIGN="Left" VALIGN="Top" ><FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#" COLOR="##FFFFFF"><B>Code</B></FONT></TD>
  31.     <TD ALIGN="Left" VALIGN="Top" ><FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#" COLOR="##FFFFFF"><B>Codebase</B></FONT></TD>
  32.     <TD ALIGN="Left" VALIGN="Top" ><FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#" COLOR="##FFFFFF"><B>Method</B></FONT></TD>            
  33.     </CFOUTPUT>
  34. </TR>
  35.  
  36. <TR>
  37.     <CFOUTPUT>
  38.     <TD ALIGN="Left" VALIGN="Top" Class="Data"><INPUT Name="CreateAppletName" Type="TEXT" VALUE="" Size=20></TD>
  39.     <TD ALIGN="Left" VALIGN="Top" COLSPAN=2 Class="Data"><INPUT TYPE="submit" VALUE="Register New Applet..."></TD>
  40.     <TD ALIGN="Left" VALIGN="Top" Class="DataNoBorder"> </TD>
  41.     </CFOUTPUT>
  42. </TR>
  43.         
  44. <CFSET RowCount = 0>
  45. <CFLOOP QUERY="Applet_List">
  46.     <!--- Get Task Details before proceding --->
  47.     <CFSET sAppletKey     = "HKEY_LOCAL_MACHINE\SOFTWARE\Allaire\ColdFusion\CurrentVersion\Applets\#Applet_List.Entry#">
  48.     <CFSET sAppletName     = #Applet_List.Entry#>
  49.     <CFSET sCode         = "Unknown">
  50.     <CFSET sCodebase     = "Unknown">
  51.     <CFSET sMethod         = "Unknown">
  52.  
  53.     <CFNewInternalRegistry ACTION=GET BRANCH="#sAppletKey#" TYPE="STRING"
  54.         VARIABLE="sCode"
  55.         ENTRY="Code">
  56.         
  57.     <CFNewInternalRegistry ACTION=GET BRANCH="#sAppletKey#" TYPE="STRING"
  58.         VARIABLE="sCodebase"
  59.         ENTRY="Codebase">
  60.         
  61.     <CFNewInternalRegistry ACTION=GET BRANCH="#sAppletKey#" TYPE="STRING"
  62.         VARIABLE="sMethod"
  63.         ENTRY="Method">
  64.  
  65.         <CFOUTPUT>
  66.         <CFSET RowCount = IncrementValue(RowCount)>
  67.         <TR<CFIF RowCount / 2 is Int(RowCount / 2)> BGColor="##EEEEEE"</cfif>>
  68.             <TD ALIGN="Left" VALIGN="Top" Class="Data"><A HREF="editapplet.cfm?EditAppletName=#URLEncodedFormat(Entry)#"><B>#Entry#</B></A></TD>
  69.             <TD ALIGN="Left" VALIGN="Top" Class="Data">#sCode# </TD>
  70.             <TD ALIGN="Left" VALIGN="Top" Class="Data">#sCodebase# </TD>
  71.             <TD ALIGN="Left" VALIGN="Top" Class="DataNoBorder">#sMethod# </TD>
  72.         </TR>
  73.         </CFOUTPUT>
  74.  
  75. </CFLOOP>
  76. </TABLE>
  77.  
  78. </FORM>    
  79.     
  80. <!--- This closes the page formatting template --->
  81. <CFINCLUDE TEMPLATE="../formatting/footer.cfm">
  82. </BODY>
  83. </HTML>
  84.  
  85.