ColdFusion9 SpreadsheetAddRow() Test

jamo

Jun 27th, 2011

523

Never

Add comment

Not a member of Pastebin yet? Sign Up, it unlocks many cool features!

ColdFusion 1.47 KB | None | 0 0

raw download clone embed print report

<cfsetting requestTimeout="65000">
<CFPARAM NAME="URL.NumberofRows" DEFAULT="500">
<CFPARAM NAME="URL.NumberofColumns" DEFAULT="7">
<CFOUTPUT>
<b>Problem reported by developer:</b> Using SpreadsheetAddRow() with 7 columns and 500 rows of data with no formatting crashes or locks up ColdFusion 9.<br>
<form action="#CGI.Script_name#" method="get">
<b>Number of Rows:</b> <input type="text" name="NumberofRows" value="#VAL(URL.NumberofRows)#" size=3 maxlength=3>
<b>Number of Columns:</b> <input type="text" name="NumberofColumns" value="#VAL(URL.NumberofColumns)#" size=2 maxlength=2>
<input type="submit" name="Go" value="Generate Excel File">
</form>
</CFOUTPUT>
<CFSET URL.NumberofColumns = val(URL.NumberofColumns) - 3>
<CFIF NOT StructKeyExists(URL, "Go") OR VAL(URL.NumberofRows) LTE 0 OR VAL(URL.NumberofColumns) LTE 0>
<CFEXIT>
</CFIF>
<CFSILENT>
<CFSET o = SpreadsheetNew("AddRowTest")>
<CFLOOP index="x" FROM="1" TO="#URL.NumberofRows#">
<CFSET ExtraData = ArrayNew(1)>
<CFLOOP FROM="1" TO="#VAL(URL.NumberofColumns)#" INDEX="this">
<CFSET ArrayAppend(ExtraData, RandRange(1,500, "SHA1PRNG"))>
</CFLOOP>
<CFSET SpreadsheetAddRow(o,"Row #x#,#Now()#,#GetTickCount()#,#ArrayToList(ExtraData)#", X)>
</CFLOOP>
<CFSET bin = SpreadsheetReadBinary(o)>
<CFHEADER NAME="Content-Disposition" VALUE="attachment; filename=AddRowTest_#dateFormat(now(), 'ddmmmyyyy')#.xls">
<CFCONTENT TYPE="application/vnd-ms.excel" VARIABLE="#bin#" RESET="true">
</CFSILENT>

Add Comment

Please, Sign In to add comment