<cfcomponent>
 <cffunction name="ColorPicker" access="remote" returntype="string">
  <cfwindow name="ColorWindow" initshow="false" width="200" height="220">
   <script language="javascript">
    function thisElement(name){
     currentElement = name ;
    }
   </script>
   
   <script language="javascript">
    function selectedColor(colorValue){
     var currentColor = colorValue ;
     //document.getElementById(currentElement).value="#"+currentColor;
     document.getElementById(currentElement).style.backgroundColor="#"+currentColor;
    }
   </script>
  
   <cfset CharList="0,3,6,9,C,F">
   <cfset Counter=0>
   <cfoutput>
    <table border="0" cellspacing="1">
     <tr>
      <cfloop list="#CharList#" index="GreenColor">
       <cfloop list="#CharList#" index="BlueColor">
        <cfloop list="#CharList#" index="RedColor">
         <cfif Counter % 18 EQ 0>
          </tr><tr>
         </cfif>
         <td onmouseover="document.getElementById('codeDisplay').value ='###RedColor##RedColor##GreenColor##GreenColor##BlueColor##BlueColor#';"
          onclick="selectedColor('#RedColor##RedColor##GreenColor##GreenColor##BlueColor##BlueColor#');
             javascript:ColdFusion.Window.hide('ColorWindow');"
           title="#RedColor##RedColor##GreenColor##GreenColor##BlueColor##BlueColor#"
           style=" background-color: #RedColor##RedColor##GreenColor##GreenColor##BlueColor##BlueColor#; color: black; font-size:7px; width:7px; height: 7px; cursor:pointer">
          <a onmouseover="document.getElementById('colorDisplay').style.backgroundColor ='#RedColor##RedColor##GreenColor##GreenColor##BlueColor##BlueColor#';">   </a>
         </td>
         <cfset Counter=Counter+1>
        </cfloop>
       </cfloop>
      </cfloop>
     </tr>
     <tr>
      <td colspan="18" headers="5"></td>
     </tr>
     <tr >
      <td id="colorDisplay" colspan="9" height="15" bgcolor="" style="background-color: red;"></td>
      <td colspan="9" height="15" bgcolor=""><input type="text" value="" id="codeDisplay" style="height: 15px; width: 90px; border: none; font-size: 12px;" readonly="yes"></td>
     </tr>
    </table>
   </cfoutput>
  </cfwindow>
 </cffunction>
</cfcomponent>

   

<cfscript>
 objPicker=CreateObject("component","picker");
</cfscript>
<cfset objPicker.ColorPicker()>

<cfoutput>
<center>
<form name="oTableForm" action="" method="post">
 <table>

  <tr>
   <td colspan="2">Click the box</td>
  </tr>
  <tr>
   <td>Color 1:</td>
   <td>
    <input type="text" name="color1"   readonly="yes" value="" onfocus="javascript:ColdFusion.Window.show('ColorWindow'); thisElement('color1');" />
   </td>
  </tr>
  <tr>
   <td>Color: 2</td>
   <td><input type="text" name="color2"    readonly="yes" value="" onfocus="javascript:ColdFusion.Window.show('ColorWindow'); thisElement('color2');" /></td>
  </tr>
 </table>
</form>
</center>
</cfoutput>

   

<cfflush interval="1">

<cfset startTime=TimeFormat(Now(),"hh:mm:ss")>
<cfset stopTime=TimeFormat(DateAdd("s",30,startTime),"hh:mm:ss")>
<cfset endTime=TimeFormat(DateAdd("s",1,startTime),"hh:mm:ss")>

<cfoutput>Start Time : #startTime#</cfoutput><br/>
<hr/>
<cfloop condition=" startTime NEQ endTime">
 <cfset startTime=TimeFormat(Now(),"hh:mm:ss")>
 <cfif startTime EQ endTime>
  <cfoutput>Now Time : #endTime#</cfoutput><br/>
  <cfset endTime=TimeFormat(DateAdd("s",1,startTime),"hh:mm:ss")>
 </cfif>
 <cfif startTime GTE stopTime>
  <cfbreak>
 </cfif>
</cfloop>

   

<cfcomponent>
 <cffunction name="ColorPicker" access="remote" returntype="string">
  <cfwindow name="ColorWindow" initshow="false" width="200" height="220">
   <script language="javascript">
    function thisElement(name){
     currentElement = name ;
    }
   </script>
   
   <script language="javascript">
    function selectedColor(colorValue){
     var currentColor = colorValue ;
     //document.getElementById(currentElement).value="#"+currentColor;
     document.getElementById(currentElement).style.backgroundColor="#"+currentColor;
    }
   </script>
  
   <cfset CharList="0,3,6,9,C,F">
   <cfset Counter=0>
   <cfoutput>
    <table border="0" cellspacing="1">
     <tr>
      <cfloop list="#CharList#" index="GreenColor">
       <cfloop list="#CharList#" index="BlueColor">
        <cfloop list="#CharList#" index="RedColor">
         <cfif Counter % 18 EQ 0>
          </tr><tr>
         </cfif>
         <td onmouseover="document.getElementById('codeDisplay').value ='###RedColor##RedColor##GreenColor##GreenColor##BlueColor##BlueColor#';"
          onclick="selectedColor('#RedColor##RedColor##GreenColor##GreenColor##BlueColor##BlueColor#');
             javascript:ColdFusion.Window.hide('ColorWindow');"
           title="#RedColor##RedColor##GreenColor##GreenColor##BlueColor##BlueColor#"
           style=" background-color: #RedColor##RedColor##GreenColor##GreenColor##BlueColor##BlueColor#; color: black; font-size:7px; width:7px; height: 7px; cursor:pointer">
          <a onmouseover="document.getElementById('colorDisplay').style.backgroundColor ='#RedColor##RedColor##GreenColor##GreenColor##BlueColor##BlueColor#';">   </a>
         </td>
         <cfset Counter=Counter+1>
        </cfloop>
       </cfloop>
      </cfloop>
     </tr>
     <tr>
      <td colspan="18" headers="5"></td>
     </tr>
     <tr >
      <td id="colorDisplay" colspan="9" height="15" bgcolor="" style="background-color: red;"></td>
      <td colspan="9" height="15" bgcolor=""><input type="text" value="" id="codeDisplay" style="height: 15px; width: 90px; border: none; font-size: 12px;" readonly="yes"></td>
     </tr>
    </table>
   </cfoutput>
  </cfwindow>
 </cffunction>
</cfcomponent>

   

<cfscript>
 objPicker=CreateObject("component","picker");
</cfscript>
<cfset objPicker.ColorPicker()>

<cfoutput>
<center>
<form name="oTableForm" action="" method="post">
 <table>

  <tr>
   <td colspan="2">Click the box</td>
  </tr>
  <tr>
   <td>Color 1:</td>
   <td>
    <input type="text" name="color1"   readonly="yes" value="" onfocus="javascript:ColdFusion.Window.show('ColorWindow'); thisElement('color1');" />
   </td>
  </tr>
  <tr>
   <td>Color: 2</td>
   <td><input type="text" name="color2"    readonly="yes" value="" onfocus="javascript:ColdFusion.Window.show('ColorWindow'); thisElement('color2');" /></td>
  </tr>
 </table>
</form>
</center>
</cfoutput>

   

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<meta http-equiv="refresh" content="5"/>
<title>Slide Show</title>
</head>

<body>

 <cfset templatePath=GetBaseTemplatePath()>
 <cfset rootFolder=ListDeleteAt(templatePath,ListLen(templatePath,"/\"),"/\")>
 <cfset imageFolderPath="#rootFolder#\images">
 
 <cfdirectory action="list" directory="#imageFolderPath#" name="ImageList">
 <cfif Not IsDefined("session.Counter") OR session.Counter GTE ImageList.RecordCount>
  <cfset session.Counter=0>
 </cfif>
 <cfset session.Counter=session.Counter+1>
 <cfoutput><img src="#imageFolderPath#\#ImageList.name[session.Counter]#"/></cfoutput>
 
</body>
</html>

   

 <cfapplication name="cfcentral"
    sessionmanagement="true"
    sessiontimeout="#CreateTimeSpan(0,0,30,0)#"
    />
  <cfset application.dsname="suman">
  <cfset request.dsname="suman">
  <cfset session.profile=StructNew()>
 
 <cfif IsDefined("Form.logout")>
  <cflogout>
 </cfif>
 
 <cflogin>
  <cfif NOT IsDefined("cflogin")>
   <cfinclude template="loginform.cfm">
   <cfabort>
  <cfelse>
   <cfif cflogin.name IS "" OR cflogin.password IS "">
    <cfoutput>
  <h2>You must enter text in both the User Name and Password fields.     </h2>
    </cfoutput>
    <cfinclude template="loginform.cfm">
    <cfabort>
   <cfelse>
    <cfquery name="loginQuery" dataSource="#request.dsname#">
    SELECT AdminName, Role
    FROM admin
    WHERE
  AdminName = '#cflogin.name#'
  AND Password = '#cflogin.password#'
    </cfquery>
    <cfif loginQuery.Role NEQ "">
  <cfloginuser name="#cflogin.name#" Password = "#cflogin.password#"
   roles="#loginQuery.Role#">
    <cfelse>
  <cfoutput>
   <H2>Your login information is not valid.<br>
   Please Try again</H2>
  </cfoutput> 
  <cfinclude template="loginform.cfm">
  <cfabort>
    </cfif>
   </cfif> 
  </cfif>
 </cflogin>
 
 <cfif GetAuthUser() NEQ "">
  <cfoutput>
   <form action="#CGI.script_name#?#CGI.query_string#" method="Post">
    <input type="submit" Name="Logout" value="Logout">
   </form>
  </cfoutput>
 </cfif>
   

 Please Log In
 
 <cfoutput>
    <form name="LoginForm" action="#CGI.script_name#?#CGI.query_string#" method="Post">
    <table>
    <tr>
    <td>username:</td>
    <td><input type="text" name="j_userName"></td>
    </tr>
    <tr>
    <td>password:</td>
    <td><input type="password" name="j_password"></td>
    </tr>
    </table>
    <br>
    <input type="submit" value="Log In">
    </form>
 </cfoutput>
   

 <cfparam name="request.dsname" default="suman">
 <cfparam name="TableName" default="admin">
 <cfparam name="MaxRow" default="5">
 <cfparam name="url.PageNumber" default="1">
 
 <cfif NOT IsDefined("session.qSelectQuery") OR IsDefined("url.CreateNewSession")>
  <cfquery name="session.qSelectQuery" datasource="#request.dsname#">
   SELECT *
   FROM #TableName#
  </cfquery>
 </cfif>
 
 <cftable query="session.qSelectQuery" startrow="#((url.PageNumber*MaxRow)-MaxRow)+1#" maxrows="#MaxRow#" colheaders="yes">
  <cfloop list="#session.qSelectQuery.ColumnList#" index="Column">
    <cfcol text="#Evaluate(Column)#" header="#Column#">
  </cfloop>
 </cftable>
 
 <cfoutput>
  <cfloop from="1" to="#Ceiling(session.qSelectQuery.RecordCount/MaxRow)#" index="i">
    <a href="#CGI.SCRIPT_NAME#?PageNumber=#i#">#i#</a>
  </cfloop>
  .........page #url.PageNumber# of #Ceiling(session.qSelectQuery.RecordCount/MaxRow)#......
  <a href="#CGI.SCRIPT_NAME#?CreateNewSession">run the select query again</a>
 </cfoutput>
   

 <cfoutput>#Pagination("Suman","admin")#</cfoutput>
 
 <cffunction name="Pagination" access="remote" returntype="any" output="yes">
  <cfargument name="dsname" required="yes">
  <cfargument name="TableName" required="yes">
  <cfargument name="MaxRow" default="10" required="no">
  
  <cfparam name="url.PageNumber" default="1">
  
  <cfif NOT IsDefined("session.qSelectQuery") OR IsDefined("url.CreateNewSession")>
   <cfquery name="session.qSelectQuery" datasource="#dsname#">
    SELECT *
    FROM #TableName#
   </cfquery>
  </cfif>
  
  <cftable query="session.qSelectQuery" startrow="#((url.PageNumber*MaxRow)-MaxRow)+1#" maxrows="#MaxRow#" colheaders="yes">
   <cfloop list="#session.qSelectQuery.ColumnList#" index="Column">
  <cfcol text="#Evaluate(Column)#" header="#Column#">
   </cfloop>
  </cftable>
  
  <cfoutput>
   <cfloop from="1" to="#Ceiling(session.qSelectQuery.RecordCount/MaxRow)#" index="i">
  <a href="#CGI.SCRIPT_NAME#?PageNumber=#i#">#i#</a>
   </cfloop>
   .........page #url.PageNumber# of #Ceiling(session.qSelectQuery.RecordCount/MaxRow)#......
   <a href="#CGI.SCRIPT_NAME#?CreateNewSession">run the select query again</a>
  </cfoutput>
 </cffunction>
   

 <cfcomponent author="cfsuman@gmail.com">
  <cffunction name="Pagination" access="remote" returntype="any" output="yes">
   <cfargument name="dsname" required="yes">
   <cfargument name="TableName" required="yes">
   <cfargument name="MaxRow" default="10" required="no">
   
   <cfparam name="url.PageNumber" default="1">
   
   <cfif NOT IsDefined("session.qSelectQuery") OR IsDefined("url.CreateNewSession")>
    <cfquery name="session.qSelectQuery" datasource="#dsname#">
  SELECT *
  FROM #TableName#
    </cfquery>
   </cfif>
   
   <cftable query="session.qSelectQuery" startrow="#((url.PageNumber*MaxRow)-MaxRow)+1#" maxrows="#MaxRow#" colheaders="yes">
    <cfloop list="#session.qSelectQuery.ColumnList#" index="Column">
   <cfcol text="#Evaluate(Column)#" header="#Column#">
    </cfloop>
   </cftable>
   
   <cfoutput>
    <cfloop from="1" to="#Ceiling(session.qSelectQuery.RecordCount/MaxRow)#" index="i">
   <a href="#CGI.SCRIPT_NAME#?PageNumber=#i#">#i#</a>
    </cfloop>
    .........page #url.PageNumber# of #Ceiling(session.qSelectQuery.RecordCount/MaxRow)#......
    <a href="#CGI.SCRIPT_NAME#?CreateNewSession">run the select query again</a>
   </cfoutput>
  </cffunction>
 </cfcomponent>
   

 <cfscript>
  PaginationObject=Createobject("Component","pagination");
 </cfscript>
 
 <cfset PaginationObject.Pagination("suman","admin")>
   

 <cfcomponent hint="Create Code Documentation" output="yes">
 
  <cffunction name="GetApplicationMap" access="remote" returntype="array">
 
   <cfargument name="SiteRootDirectory" type="string" required="yes">  
   <cfargument name="OutputFileFormat" type="string" required="yes">    
  
   <cfset FolderExploreStatus=0>
 
   <!--- Create a Array for hold all  Files List--->  
   <cfset FileArray=Arraynew(2)>
 
   <!---Root Directory's Contents--->
   <cfdirectory action="list"
    directory="#arguments.SiteRootDirectory#"
    name="ParentDirectory"
    >
 
   <!---Root Directory's Directory--->
   <cfquery name="DirectoryList" dbtype="query">
    SELECT *
    FROM ParentDirectory
    WHERE TYPE='Dir'
   </cfquery>
   
   <!---List of all Folder Path--->
   <cfset FolderPathArray=Arraynew(1)>
   <cfset TempFolderPathArray=ArrayAppend(FolderPathArray,arguments.SiteRootDirectory)>
   <!---<cfdump var="#FolderPathArray#"><br/>--->
   
 
   <!--- Create a Array for hold  Folder List--->  
   <cfset FolderArray=ArrayNew(2)>
 
   <cfset FolderCounter=1>
   <cfloop query="DirectoryList">
    <cfset FolderArray[FolderCounter][1]=DIRECTORY>
    <cfset FolderArray[FolderCounter][2]=NAME>
    
    <cfset FolderPath="#DIRECTORY#\#NAME#\">
    <!---<cfdump var="#FolderPath#"><br/>--->
    <cfset TempFolderPathArray=ArrayAppend(FolderPathArray,FolderPath)>
    <cfset FolderCounter=FolderCounter+1>
   </cfloop>
 
   <cfset FolderNumber=ArrayLen(FolderArray)>
  
   <cfif FolderNumber GT 0>
    <cfloop condition=" FolderExploreStatus EQ 0 ">
  <cfset CurrentFolderDirectory=FolderArray[1][1]>
  <cfset CurrentFolderName=FolderArray[1][2]>
  
  <cfset CurrentFolderPath="#CurrentFolderDirectory#\#CurrentFolderName#\">
  
  <!--- List the Current directory's Directory--->  
  <cfdirectory
   action="list"
   name="ChildDirectory"
   directory="#CurrentFolderPath#"
   > 
 
  <!--- List the Current directory's Directory--->  
  <cfquery name="ChildDirectoryList" dbtype="query">    
   SELECT *
   FROM ChildDirectory
   WHERE TYPE='Dir'
  </cfquery>
    
  <cfset TempFolderArrayDelete=ArrayDeleteAt(FolderArray,1)>
    
  <cfset FolderCounter=ArrayLen(FolderArray)>
  <cfset FolderCounter=FolderCounter+1>
   
  <cfloop query="ChildDirectoryList">
   <cfset FolderArray[FolderCounter][1]=DIRECTORY>
   <cfset FolderArray[FolderCounter][2]=NAME>  
   
   <cfset FolderPath="#DIRECTORY#\#NAME#\">
   <!---<cfdump var="#FolderPath#"><br/>--->
   <cfset TempFolderPathArray=ArrayAppend(FolderPathArray,FolderPath)>
   <cfset FolderCounter=FolderCounter+1>
  </cfloop>
 
  <cfset FolderNumber=ArrayLen(FolderArray)>
  <cfif FolderNumber LT 1>
   <cfset FolderExploreStatus=1>
  </cfif>
  
    </cfloop>
   </cfif>
   
   <!---Now we find final folder path array--->
   
   <cfset TotalFolder=ArrayLen(FolderPathArray)>
   
   <cfloop from="1" to="#TotalFolder#" index="index">
   
    <!---<cfoutput>#FolderPathArray[index]#</cfoutput><br/>--->
    <!---Root Directory's .cfm FileList--->
    <cfdirectory action="list"
   filter="*.cfm"
  directory="#FolderPathArray[index]#"
  name="CFMFileList"
  >
  
    <!---Root Directory's .cfml FileList--->
    <cfdirectory action="list"
   filter="*.cfml"
  directory="#FolderPathArray[index]#"
  name="CFMLFileList"
  >
  
    <!---Root Directory's .cfc FileList--->
    <cfdirectory action="list"
   filter="*.cfc"
  directory="#FolderPathArray[index]#"
  name="CFCFileList"
  >
  
    <!---Root Directory's .htm FileList--->
    <cfdirectory action="list"
   filter="*.htm"
  directory="#FolderPathArray[index]#"
  name="HTMFileList"
  >
  
    <!---Root Directory's .html FileList--->
    <cfdirectory action="list"
   filter="*.html"
  directory="#FolderPathArray[index]#"
  name="HTMLFileList"
  >
  
    <!---Root Directory's .css FileList--->
    <cfdirectory action="list"
   filter="*.css"
  directory="#FolderPathArray[index]#"
  name="CSSFileList"
  >
  
    <!---Root Directory's .js FileList--->   
    <cfdirectory action="list"
   filter="*.js"
  directory="#FolderPathArray[index]#"
  name="JSFileList"
  >
  
    <!---Root Directory's All FileList--->  
    <cfquery name="FileList" dbtype="query">
  SELECT *
  FROM CFMFileList
  UNION
  
  SELECT *
  FROM CFMLFileList
  UNION
  
  SELECT *
  FROM CFCFileList
  UNION
  
  SELECT *
  FROM HTMFileList
  UNION
  
  SELECT *
  FROM HTMLFileList
  UNION
  
  SELECT *
  FROM CSSFileList
  UNION
  
  SELECT *
  FROM JSFileList
    </cfquery>
  
    <cfset FileCounter=ArrayLen(FileArray)>
    <cfif FileCounter EQ 0>
  <cfset FileCounter=1>
    </cfif>
    <cfloop query="FileList">
   <cfset FileArray[FileCounter][1]=NAME>
   <cfset FilePath="#DIRECTORY#\#NAME#">
   <cfset FileArray[FileCounter][2]=FilePath>
   
  <cfset FileCounter=FileCounter+1>
    </cfloop>
   
   </cfloop>
   
   <!---Now we find final file array--->
   <cfdump var="#FileArray#">
   
   <cfset TotalFile=ArrayLen(FileArray)>
   
   <cfif TotalFile GT 0>
    <cfdocument format="#arguments.OutputFileFormat#">
  <cfdocumentsection>
   <cfdocumentitem type="footer">
    <font size="-3">Page #cfdocument.currentpagenumber#</font>
   </cfdocumentitem>
     
   <cfloop from="1" to="#TotalFile#" index="position">
 
    <cfdocumentitem type="header">
     <cfoutput>
   <font size="-3">
    <i>
     Code Documentation
    </i>
   </font>
     </cfoutput>
    </cfdocumentitem>
 
    <cffile
     action="read"
     file="#FileArray[position][2]#"
     variable="FileCode"
     >
    <cfoutput>
     <h3>
   <i>
    #FileArray[position][2]#
   </i>
     </h3>
     <br/>
 
     <h2>
   #FileArray[position][1]#
     </h2>
    </cfoutput>
    <br/>
    
    <cfoutput>
     #HTMLCodeFormat(wrap(FileCode,75))#
    </cfoutput>
   </cfloop>
    </cfdocumentsection>
    </cfdocument> 
   </cfif>
 
   <cfreturn FolderPathArray>
  </cffunction>
 </cfcomponent>
   

 <cfset ApplicationRootpath=ExpandPath(".")>
 
 <cfif IsDefined("Form.GetMap")>
  <cfscript>
   ApplicationMapObject=CreateObject("Component","codedocumentation");
  </cfscript>
  <cfset ApplicationMapObject.GetApplicationMap(Form.ApplicationRootpath,Form.FileFormat)>
 </cfif>
 
 <div align="center">
  <cfform name="FileFormatForm" action="#CGI.SCRIPT_NAME#" method="post" target="_blank">
   <cfselect name="FileFormat" label="Output Format">
    <option value="pdf">PDF</option>
    <option value="flashpaper">Flash Paper</option>
   </cfselect>
   <cfinput type="hidden" name="ApplicationRootpath" value="#ApplicationRootpath#">
   <cfinput type="submit" name="GetMap" value="Get Application Map">
  </cfform>
 
 
 </div>