forked from ArctosDB/arctos
-
Notifications
You must be signed in to change notification settings - Fork 0
/
a.cfm
67 lines (51 loc) · 1.91 KB
/
a.cfm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
<cfinclude template="/includes/_header.cfm">
<cfexecute name = "C:\curl7_18_0\curl.exe"
arguments = " http://www.adobe.com/"
outputfile="C:\curl7_18_0\adobePage.html"
timeout = "20">
</cfexecute>
done page grab!
<cfoutput>
HI
<!-------
<cfset variables.fn="#Application.webDirectory#/bnhmMaps/tabfiles/test.xml">
<cfset variables.encoding="UTF-8">
<cfscript>
variables.joFileWriter = createObject('Component', '/component.FileWriter').init(variables.fn, variables.encoding, 32768);
a='test test bla testy';
variables.joFileWriter.writeLine(a);
variables.joFileWriter.close();
</cfscript>
<a href="/bnhmMaps/tabfiles/test.xml">/bnhmMaps/tabfiles/test.xml</a>
-------->
</cfoutput>
<!----------------
<cfquery datasource="uam_god" name="cols">
select * from taxonomy where 1=2
</cfquery>
<cfset c=cols.columnlist>
<cfset c=listdeleteat(c,listfindnocase(c,"taxon_name_id"))>
<cfset c=listdeleteat(c,listfindnocase(c,"VALID_CATALOG_TERM_FG"))>
<cfset c=listdeleteat(c,listfindnocase(c,"display_name"))>
<cfset c=listdeleteat(c,listfindnocase(c,"scientific_name"))>
<cfset c=listdeleteat(c,listfindnocase(c,"author_text"))>
<cfset c=listdeleteat(c,listfindnocase(c,"FULL_TAXON_NAME"))>
<cfset c=listdeleteat(c,listfindnocase(c,"INFRASPECIFIC_RANK"))>
<cfset c=listdeleteat(c,listfindnocase(c,"INFRASPECIFIC_AUTHOR"))>
<cfset c=listdeleteat(c,listfindnocase(c,"NOMENCLATURAL_CODE"))>
<cfset c=listdeleteat(c,listfindnocase(c,"SOURCE_AUTHORITY"))>
<cfset c=listdeleteat(c,listfindnocase(c,"TAXON_REMARKS"))>
<cfset c=listdeleteat(c,listfindnocase(c,"TAXON_STATUS"))>
<cfloop list="#c#" index="fl">
<cfloop list="#c#" index="sl">
<cfif sl is not fl>
<cfquery datasource="uam_god" name="ttt">
select #fl#,count(*) c from taxonomy where #fl#=#sl# group by #fl#
</cfquery>
<cfif ttt.c gt 0>
<cfdump var=#ttt#>
</cfif>
</cfif>
</cfloop>
</cfloop>
---------->