<CFFORM name="MyForm">
  <cfinput type="Text" name="i_value" validate="float" message="Bad value! Bad!">
</cfform>
 
<script language="Javascript">
// Override the numeric validation generated by Cold Fusion
function _CF_checknumber(object_value)
    {
    //Returns true if value is a number or is NULL
    //otherwise returns false
 
    if (object_value.length == 0)
        return true;
 
    //Returns true if value is a number defined as
    //   having an optional leading + or -.
    //   having at most 1 decimal point.
    //   otherwise containing only the characters 0-9.
   
 var start_format = " .+-0123456789";
    // Comma added to allowed characters
 var number_format = " .,0123456789";
 var check_char;
 var decimal = false;
 var trailing_blank = false;
 var digits = false;
 
    //The first character can be + - .  blank or a digit.
 check_char = start_format.indexOf(object_value.charAt(0))
    //Was it a decimal?
 if (check_char == 1)
     decimal = true;
 else if (check_char < 1)
  return false;
       
 //Remaining characters can be only . or a digit, but only one decimal.
 for (var i = 1; i < object_value.length; i++)
 {
  check_char = number_format.indexOf(object_value.charAt(i))
  if (check_char < 0)
   return false;
  else if (check_char == 1)
  {
   if (decimal)  // Second decimal.
    return false;
   else 
    decimal = true;
  }
  else if (check_char == 0)
  {
   if (decimal || digits) 
    trailing_blank = true;
        // ignore leading blanks
 
  }
         else if (trailing_blank)
   return false;
  else 
   digits = true;
 } 
    //All tests passed, so...
    return true
    }
</script>

; FTP Transfer File
;
; These command files must have a .FTP file extension
;
; Commands:
; open
; Syntax: open [server:port] [UserID] [Password]
;
; close
; Syntax: close
;
; dl (download)
; Syntax: dl [protocol (B=Binary, A=ASCII)] [full directory and filename on remote server] [full directory path ONLY local server]
;
; ul (upload)
; Syntax: ul [method (B=Binary, A=ASCII)] [full directory and filename on local server] [full directory path ONLY on remote server]
;
; email (Email results)
; Syntax: email [email address]
;
; The Local and Remote file names for Uploading and Downloading can be dynamic using CF functions.
; Example:
; dl B /apps/www/logs/archive/apache.logs.#DateFormat(Now(),"mm.dd.yy")#.tar C:/Internet/Webalizer/iwof2.tar
;
; The remote file name will be evaluated out to /apps/www/logs/archive/apache.logs.12.22.04.tar
;
; WARNING: File names are CaSe SeNsAtIvE!!!  Even if it's Windows, this tool expects the case to match. While transfers will still work
;          otherwise, the transfer information will only display if it matches.
;
; Note: ";" identifies a comment line, don't use it for your actual command list.
;
; ======================================================================================================================================
;
; Example of downloading a static text file with ASCII protocol
open ftp.mozilla.org:21 anonymous anonymous
dl A /pub/mozilla.org/README C:\ReadMe.txt
close

<!---
Directory Purge, by John Bartlett
john.bartlett@attws.com
Ver 1.01
--->

<cfsetting enablecfoutputonly="Yes">

<!---
The Directory array contains a list of directories to scan and how many days old the files can be before they are purged.
If you set the history value to -1, all files will be deleted.  Note that this is the number of days from the current time.
If you specify a history of 0 (kill files over 24 hours old), a file that was generated two hours ago will not be deleted.

<CFSET Directory[1][2]=2>    Files over 2 days old (or 24 hours) will be deleted
<CFSET Directory[1][2]=3>    Files over 3 days old (or 72 hours) will be deleted

--->
<CFSET Directory=ArrayNew(2)>
<CFSET Directory[1][1]="C:\WINNT\TEMP">
<CFSET Directory[1][2]=7>

<CFLOOP index="loop" from="1" to="#ArrayLen(Directory)#">
  <CFIF Directory[loop][1] CONTAINS "/">
    <CFSET PathChar="/">  <!--- Unix Directory --->
  <CFELSE>
    <CFSET PathChar="\">  <!--- NT Directory --->
  </CFIF>
  <cfdirectory action="LIST" directory="#directory[loop][1]#" name="dir">
  <CFSET kill=0>
  <CFSET nokill=0>
  <CFSET cantkill=0>
  <CFLOOP query="dir">
    <CFSET cr=CurrentRow>
    <CFIF dir.type[cr] EQ "File">
      <CFSET tot=tot + 1>
      <CFSET Age=DateDiff("d",dir.DateLastModified[cr],Now())>
      <CFIF Age GT Directory[loop][2]>
        <CFTRY>
          <cffile action="DELETE" file="#Directory[loop][1]##PathChar##dir.Name[cr]#">
          <CFOUTPUT>#dir.name[cr]# is #Age# days old, deleting<br>#Chr(10)#</CFOUTPUT>
          <CFSET kill=kill+1>
        <CFCATCH Type="Any">
          <CFOUTPUT>#dir.name[cr]# is #Age# days old, *** UNABLE TO DELETE ***<br>#Chr(10)#</CFOUTPUT>
          <CFSET cantkill=cantkill + 1>
          <CFSET nokill=nokill + 1>
        </CFCATCH>
        </CFTRY>
      <CFELSE>
        <CFSET nokill=nokill + 1>
      </CFIF>
    </CFIF>
  </CFLOOP>
</CFLOOP>

<CFOUTPUT>#tot# files total, #kill# files deleted, #nokill# files skipped, unable to delete #cantkill# files</CFOUTPUT>

<!---
MaxHits: The maximum number of page views allowed in a given minute

While doing this much work inside an exclusive lock of the application scope is undesireable, it's the
only way to defeat multi-threaded site rippers.
--->
<CFSET MaxHits=30>

<!--- Only check if not identified as a spider, allow most spiders to browse unrestricted (remove if not wanted) http://www.psychedelix.com/agents.html --->
<CFIF ListContainsNoCase(CGI.HTTP_User_Agent,"bot,spider,spyder,agent,altavista,crawl,arachno,24x,seek,search,fetch,deadlink,index,diagem,google") EQ 0>

	<CFSET UserIP="IP_" & Replace(CGI.Remote_Addr,".","_","ALL")>
	<cflock timeout="30" throwontimeout="Yes" type="EXCLUSIVE" scope="APPLICATION">
		<CFIF IsDefined("Application.IPHistory") EQ "No">
			<CFSET Application.IPHistory=StructNew()>
			<CFSET Application.IPHistory.Cnt=0>
		</CFIF>
		<CFIF IsDefined("Application.IPHistory.#UserIP#") EQ "No">
			<CFSET "Application.IPHistory.#UserIP#"=StructNew()>
			<CFSET History=StructNew()>
			<CFSET History.TimeStamp=TimeFormat(Now(),"HH:mm")>
			<CFSET History.Cnt=0>
		<CFELSE>
			<CFSET History=Duplicate(Evaluate("Application.IPHistory.#UserIP#"))>
		</CFIF>

		<CFSET CurrentTimeStamp=TimeFormat(Now(),"HH:mm")>
		<CFIF CurrentTimeStamp NEQ History.TimeStamp>
			<CFSET History.TimeStamp=CurrentTimeStamp>
			<CFSET History.Cnt=0>
		</CFIF>

		<CFSET History.Cnt=History.Cnt + 1>

		<CFSET "Application.IPHistory.#UserIP#"=Duplicate(History)>

		<!--- Keep track of the overall page hits for all users and remove IP's that haven't accessed the site in the past 10 minutes --->
		<CFSET Application.IPHistory.Cnt=Application.IPHistory.cnt + 1>
		<CFIF Application.IPHistory.Cnt GT 1000>
			<CFSET Application.IPHistory.Cnt=0>
			<CFLOOP index="CurrIP" list="#StructKeyList(Application.IPHistory)#">
				<CFIF CurrIP NEQ "CNT">
					<CFSET TS=DateFormat(Now(),"mm/dd/yyyy") & " " & Evaluate("Application.IPHistory.#CurrIP#.TimeStamp") & ":00">
					<CFIF DateDiff("n",TS,Now()) GT 10>
						<CFSET tmp=StructDelete(Application.IPHistory,CurrIP)>
					</CFIF>
				</CFIF>
			</CFLOOP>
		</CFIF>
	</cflock>

	<CFIF History.Cnt GT MaxHits>
		<CFOUTPUT>
		<h1>Access Denied</h1>
		Your access has been temporarly blocked due to excessive access.
		</CFOUTPUT>
		<CFABORT>
	</CFIF>

</CFIF>

<!--- Frames.html --->
<frameset  cols="50%,*">
    <frame name="Left" src="Left.html" marginwidth="10" marginheight="10" scrolling="auto" frameborder="0">
    <frame name="Right" src="Right.html" marginwidth="10" marginheight="10" scrolling="auto" frameborder="0">
</frameset>



<!--- Left.html --->
<html>
<head>
<script language="Javascript1.2">
function PopulateRightForm()
{
  // Get the index of the drop-down box
  var idx=document.LeftForm.LeftDropdown.selectedIndex;
  // Get the value of the selected item of the dropdown box
  var n=document.LeftForm.LeftDropdown.options[idx].value;
  // Get the text of the selected item of the dropdown box
  var t=document.LeftForm.LeftDropdown.options[idx].text;
  // Populate the values of the text boxes in the right frame
  parent.frames['Right'].document.RightForm.RightText.value=t;
  parent.frames['Right'].document.RightForm.RightValue.value=n;
}
</script>
</head>
<body bgcolor="FFFFFF">
<form name="LeftForm">
Select a number:
<select name="LeftDropdown" size="1" onChange="PopulateRightForm()">
  <option value="1">One</option>
  <option value="2">Two</option>
  <option value="3">Three</option>
  <option value="4">Four</option>
  <option value="5">Five</option>
</select>
</form>
</body>
</html>



<!--- Right.html --->
<html>
<body bgcolor="FFFFFF">
<form name="RightForm">
Text passed from left form: <input type="Text" name="RightText"><br>
Value passed from left form: <input type="Text" name="RightValue">
</form>
</body>
</html>

<html>
<head>
<!--- Set up the javascript to change the action url --->
<script language="Javascript">

function SetURL(site)
{
  if (site == '1') document.myform.action='http://www.allaire.com/';
  if (site == '2') document.myform.action='http://www.allaire.com/developer/gallery/index.cfm?objectID=6800';
  document.myform.submit();
}

</script>
</head>
<body>
<!--- No action field specified, will default to load the same document --->
<center>
<form name="myform" method="get">
<input type="Button" value="Allaire's Homepage" onClick="SetURL('1')"><br><br>
<input type="Button" value="Tag Gallery" onClick="SetURL('2')"><br>
</form>
</center>
</body>

<cfsetting enablecfoutputonly="Yes">

<!---

Creates a log file

Passed Attributes
Action:   Open        Kills any existing log file allowing a fresh log file to be created
                      Initilizes session variable
          Close       Writes any pending information to the log file
          <none>      Append to the specified log file
file:                 Full path information and file name of the log file.  If not specified, it
                      will check to see if a variable "logfile" was defined in the calling template.
                      If so, it will use the file information from the logfile variable.  Otherwise,
                      it will create a log file as the same as the template calling it with an 
                      ".log" appended to the end of the cfm.  Ie: C:\InetPub\www\index.cfm.log
timestamp:  Y/N       If Y, the current date and time is prepended to the text to record
text:                 The text to append to the log file
loghistorysize:       A number in bytes to cache.  Once the logfile history exceedes this amount, it
                      is appended to the log file.  Defaults to 10k.

You can only write to one log file at a time.  If you start to write to a 2nd log file, be sure to close the first one first.

If you wish to append to a already existing log file without deleting it first, do not specify the "open" action.

If you do not close a log file, any pending information to be written will be lost.

Examples:
Delete any existing logfile and open a fresh file:
<CF_Log file="C:\Inetput\WWW\History.log" action="open">

Append a string of text to a logfile defined with "logfile" with a timestamp
<CF_Log text="User viewed home page">

Same as above but without a timestamp
<CF_Log text="User viewed home page" timestamp="N">

Done with program, want to flush out the log cache
<CF_Log action="close">

--->

<CFPARAM name="attributes.action" default="">
<CFPARAM name="attributes.file" default="">
<CFIF attributes.file NEQ "">
  <CFSET caller.logfile=attributes.file>
</CFIF>
<CFPARAM name="caller.logfile" default="#CF_TEMPLATE_PATH#.log">
<CFPARAM name="file" default="#caller.logfile#">
<CFPARAM name="attributes.timestamp" default="Y">
<CFPARAM name="attributes.text" default="">
<CFPARAM name="attributes.loghistorysize" default="10240">
<CFPARAM name="caller.loghistory" default="">

<CFSET attributes.action=LCase(attributes.action)>

<CFIF attributes.timestamp EQUAL "Y">
  <CFSET ts=DateFormat(Now(),"mm-dd-yyyy") & " " & TimeFormat(Now(),"HH:mm:ss") & " ">
<CFELSE>
  <CFSET ts="">
</CFIF>

<CFTRY>
<CFIF attributes.action EQUAL "open">
  <cffile action="DELETE"
          file="#file#">
  <cffile action="WRITE" file="#file#" output="#ts#Log Opened" mode="777" addnewline="Yes">
  <CFSET caller.loghistory="">
</CFIF>
<CFCATCH type="any">
  <!--- Eat any file errors --->
</CFCATCH>
</CFTRY>

<CFTRY>
<CFIF attributes.action EQUAL "close">
  <CFSET caller.loghistory=caller.loghistory & Chr(13) & Chr(10) & ts & "Log Closed">
  <cffile action="APPEND"
          file="#file#"
          output="#caller.loghistory#"
          addnewline="Yes"
          mode="777">
  <CFSET caller.loghistory="">
</CFIF>
<CFCATCH type="any">
  <!--- Eat any file errors --->
</CFCATCH>
</CFTRY>


<CFTRY>
<CFIF Trim(attributes.action) NOT EQUAL "open" AND Trim(attributes.action) NOT EQUAL "close">
<!---   <CFOUTPUT>#ts##attributes.text#<br></CFOUTPUT> --->
  <CFIF caller.loghistory EQUAL "">
    <CFSET caller.loghistory=ts & attributes.text>
  <CFELSE>
    <CFSET caller.loghistory=caller.loghistory & Chr(13) & Chr(10) & ts & attributes.text>
  </CFIF>
  <CFIF Len(caller.loghistory) GREATER THAN attributes.loghistorysize>
    <cffile action="APPEND"
            file="#file#"
            output="#caller.loghistory#"
            addnewline="Yes"
            mode="777">
    <CFSET caller.loghistory="">
  </CFIF>
</CFIF>
<CFCATCH type="any">
  <!--- Eat any file errors --->
</CFCATCH>
</CFTRY>

<CFSET MyArray=ArrayNew(1)>
<CFSET MyArray[1]=StructNew()>
<CFSET MyArray[1].MyQuery=QueryNew("field1,field2")>

<CFSET MyArray=ArrayNew(2)>
<CFSET MyArray[1][1]="A">

<CFSET MyArray=ArrayNew(1)>
<CFSET MyArray[1]=ArrayNew(1)>
<CFSET MyArray[1][1]="A">

<!--- Assign six dimensional loop --->
<CFLOOP index="d1" from="1" to="3">
  <CFSET MyArray[d1]=ArrayNew(1)>
  <CFLOOP index="d2" from="1" to="3">
    <CFSET MyArray[d1][d2]=ArrayNew(1)>
    <CFLOOP index="d3" from="1" to="3">
      <CFSET MyArray[d1][d2][d3]=ArrayNew(1)>
      <CFLOOP index="d4" from="1" to="3">
        <CFSET MyArray[d1][d2][d3][d4]=ArrayNew(1)>
        <CFLOOP index="d5" from="1" to="3">
          <CFSET MyArray[d1][d2][d3][d4][d5]=ArrayNew(1)>
          <CFLOOP index="d6" from="1" to="3">
            <CFSET MyArray[d1][d2][d3][d4][d5][d6]="#d1#,#d2#,#d3#,#d4#,#d5#,#d6#">
          </CFLOOP>
        </CFLOOP>
      </CFLOOP>
    </CFLOOP>
  </CFLOOP>
</CFLOOP>

<CFDUMP var="#MyArray#">

<CFSET str=result>
<CFSET ck=0>
<CFLOOP CONDITION="ck EQUAL 0">
  <CFSET loc=Find("%",str)>
  <CFIF loc EQUAL 0>
    <CFSET ck=1>
  <CFELSE>
    <CFIF Mid(str,loc,3) EQUAL "%25">
      <CFSET loc=Find("%",str,loc+1)>
      <CFIF loc EQUAL 0>
        <CFSET ck=1>
      <CFELSE>
        <CFSET str=Replace(str,Mid(str,loc,3),Chr(InputBaseN(Mid(str,loc + 1,2),16)),"ALL")>
      </CFIF>
    <CFELSE>
      <CFSET str=Replace(str,Mid(str,loc,3),Chr(InputBaseN(Mid(str,loc + 1,2),16)),"ALL")>
    </CFIF>
  </CFIF>
</CFLOOP>
<CFSET str=Replace(str,"+"," ","ALL")>
<CFSET str=Replace(str,"%25","%","ALL")>
<CFOUTPUT>#str#</CFOUTPUT>