home *** CD-ROM | disk | FTP | other *** search
/ Computer Shopper 139 / dpcs0999.iso / Web / CFserver / data1.cab / Examples / publish / admin / properties.cfm < prev    next >
Encoding:
Text File  |  1999-04-12  |  6.9 KB  |  188 lines
  1. <CFHEADER NAME="pragma" VALUE="no-cache">
  2.  
  3. <CFIF NOT IsDefined("ObjectID")>
  4.     <CFLOCATION URL="getobject.cfm" ADDTOKEN="NO">
  5. </CFIF>
  6.  
  7. <CFQUERY DATASOURCE="CFexamples" NAME="GetObjectData">
  8. SELECT * FROM PubObjects, PubDataClasses
  9. WHERE PubObjects.ClassID = PubDataClasses.ClassID
  10.     AND ObjectID = #ObjectID#
  11. </CFQUERY>
  12.  
  13. <CFQUERY DATASOURCE="CFexamples" NAME="GetHeadline">
  14. SELECT * FROM PubContent, PubContentTypes
  15. WHERE PubContent.TypeID = PubContentTypes.TypeID
  16.     AND PubContent.ObjectID = #ObjectID#
  17.     AND PubContent.TypeID = 1
  18. </CFQUERY>
  19.  
  20. <CFQUERY DATASOURCE="CFexamples" NAME="GetTeaser">
  21. SELECT * FROM PubContent, PubContentTypes
  22. WHERE PubContent.TypeID = PubContentTypes.TypeID
  23.     AND PubContent.ObjectID = #ObjectID#
  24.     AND PubContent.TypeID = 2
  25. </CFQUERY>
  26.  
  27. <CFQUERY DATASOURCE="CFexamples" NAME="GetContent">
  28. SELECT * FROM PubContent, PubContentTypes
  29. WHERE PubContent.TypeID = PubContentTypes.TypeID
  30.     AND PubContent.ObjectID = #ObjectID#
  31.     AND NOT (PubContent.TypeID = 1 OR PubContent.TypeID = 2)
  32. ORDER BY PubContent.ContentID
  33. </CFQUERY>
  34.  
  35. <CFQUERY DATASOURCE="CFexamples" NAME="GetAllowedContentTypes">
  36. SELECT * FROM PubClassDefinitions
  37. WHERE ClassID = #GetObjectData.ClassID#
  38. </CFQUERY>
  39.  
  40. <CFQUERY DATASOURCE="CFexamples" NAME="GetInstances">
  41. SELECT * FROM PubInstances, PubPages
  42. WHERE PubInstances.PageID = PubPages.PageID
  43.     AND PubInstances.ObjectID = #ObjectID#
  44. ORDER BY PubInstances.PageID
  45. </CFQUERY>
  46.  
  47. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
  48.  
  49. <HTML>
  50. <HEAD>
  51.     <TITLE>Object Properties</TITLE>
  52. <STYLE TYPE="text/css">
  53. <!-- A {text-decoration: none} -->
  54. </STYLE>
  55. </HEAD>
  56.  
  57. <BODY BGCOLOR="#660000" TEXT="#FFFFFF" LINK="#FFFF00" VLINK="#FFFF00">
  58.  
  59. <TABLE ALIGN="RIGHT" CELLPADDING="0" CELLSPACING="0">
  60. <TR>
  61.     <TD ALIGN="RIGHT">
  62.     <FONT FACE="MS Sans Serif, Helvetica" SIZE="-2">
  63.         <A HREF="index.cfm">Administrator Home</A><BR>
  64.         <A HREF="getobject.cfm">Choose New Object</A><BR>
  65.         <CFOUTPUT><A HREF="deleteobject.cfm?ObjectID=#ObjectID#" onClick="return confirm('This will permanently delete this object.\n\nPress OK to continue.')">Delete Object</A></CFOUTPUT><BR>
  66.     </FONT>
  67.     </TD>
  68. </TR>
  69. </TABLE>
  70.  
  71. <P><IMG SRC="images/objectproperties.gif" WIDTH=146 HEIGHT=24 BORDER=0 ALT="Object Properties"></P>
  72.  
  73. <CFIF GetObjectData.RecordCount LT 1>
  74.  
  75.     <FONT FACE="MS Sans Serif, Helvetica" SIZE="-2">Object <CFOUTPUT>#ObjectID#</CFOUTPUT> does not exist.</FONT>
  76.  
  77. <CFELSE>
  78.  
  79.     <CFOUTPUT QUERY="GetObjectData">
  80.     
  81.         <P><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2">
  82.         <B>ObjectID:</B> #ObjectID#<BR><BR>
  83.         <B>Class:</B> #ClassName#<BR>
  84.         <B>Created:</B> #DateFormat(DateCreated, "m/d/yy")#, #TimeFormat(DateCreated, "h:mm:ss tt")#<BR>
  85.         <B>Modified:</B> #DateFormat(DateUpdated, "m/d/yy")#, #TimeFormat(DateUpdated, "h:mm:ss tt")#
  86.         </FONT></P>
  87.  
  88.     </CFOUTPUT>
  89.  
  90.     <FORM ACTION="modifycontent.cfm" METHOD="POST">
  91.  
  92.     <CFOUTPUT QUERY="GetHeadline">
  93.     
  94.         <P><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2"><B>#TypeName#</B></FONT><BR>
  95.         <FONT FACE="MS Sans Serif, Arial"><INPUT TYPE="TEXT" NAME="C#ContentID#" VALUE="#HTMLEditFormat(Data)#" SIZE="40"></FONT></P>
  96.  
  97.         <INPUT TYPE="HIDDEN" NAME="ContentIDList" VALUE="#ContentID#">
  98.  
  99.     </CFOUTPUT>
  100.     
  101.     <CFOUTPUT QUERY="GetTeaser">
  102.     
  103.         <P><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2"><B>#TypeName#</B></FONT><BR>
  104.         <TEXTAREA NAME="C#ContentID#" COLS="40" ROWS="6" WRAP="VIRTUAL">#HTMLEditFormat(Data)#</TEXTAREA></P>
  105.  
  106.         <INPUT TYPE="HIDDEN" NAME="ContentIDList" VALUE="#ContentID#">
  107.  
  108.     </CFOUTPUT>
  109.  
  110.         <INPUT TYPE="SUBMIT" VALUE="Modify"> <INPUT TYPE="RESET" VALUE="Revert">
  111.     
  112.     </FORM>
  113.  
  114.     <BR><BR>
  115.  
  116.     <TABLE BORDER="1" CELLPADDING="5" CELLSPACING="2">
  117.     <TR>
  118.         <TD COLSPAN="4" BGCOLOR="#CCCCCC"><FONT COLOR="#000000" FACE="Verdana, Helvetica" SIZE="4"><B>Content</B></FONT></TD>
  119.     </TR>
  120.     <TR>
  121.         <TD><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2"><B>Content Type</B></FONT></TD>
  122.         <TD><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2"><B>Value</B></FONT></TD>
  123.         <TD></TD>
  124.         <TD></TD>
  125.     </TR>
  126.     <CFOUTPUT QUERY="GetContent">
  127.     <TR>
  128.         <TD><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2">#TypeName#</FONT></TD>
  129.         <CFIF TypeFile IS TRUE>
  130.             <TD><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2"><A HREF="../binarydata/#URLEncodedFormat(Data)#">#Data#</A></FONT></TD>
  131.         <CFELSE>
  132.             <TD><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2"><CFIF Len(HTMLEditFormat(Data)) GT 255>#Left(HTMLEditFormat(Data),255)# ...<CFELSE>#HTMLEditFormat(Data)#</CFIF></FONT></TD>
  133.         </CFIF>
  134.         <TD><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2"><A HREF="modifycontentform.cfm?ContentID=#ContentID#">Modify</A></FONT></TD>
  135.         <TD><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2"><A HREF="deletecontent.cfm?ContentID=#ContentID#" onClick="return confirm('This will permanently delete this information.\n\nPress OK to continue.')">Delete</A></FONT></TD>
  136.     </TR>
  137.     </CFOUTPUT>
  138.     <CFIF GetContent.RecordCount + 2 LT GetAllowedContentTypes.RecordCount>
  139.         <TR>
  140.             <TD COLSPAN="4" ALIGN="RIGHT"><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2"><CFOUTPUT><A HREF="addmorecontent.cfm?ObjectID=#ObjectID#"></CFOUTPUT>Add Content</A></FONT></TD>
  141.         </TR>
  142.     </CFIF>
  143.     </TABLE>
  144.  
  145.     <BR><BR>
  146.     
  147.     <TABLE BORDER="1" CELLPADDING="5" CELLSPACING="2">
  148.     <TR>
  149.         <TD COLSPAN="7" BGCOLOR="#CCCCCC"><FONT COLOR="#000000" FACE="Verdana, Helvetica" SIZE="4"><B>Instances</B></FONT></TD>
  150.     </TR>
  151.     <TR>
  152.         <TD><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2"><B>PageID</B></FONT></TD>
  153.         <TD><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2"><B>Template</B></FONT></TD>
  154.         <TD><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2"><B>Location</B></FONT></TD>
  155.         <TD><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2"><B>Start</B></FONT></TD>
  156.         <TD><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2"><B>End</B></FONT></TD>
  157.         <TD><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2"><B>Priority</B></FONT></TD>
  158.         <TD></TD>
  159.     </TR>
  160.     <CFOUTPUT QUERY="GetInstances">
  161.     <TR>
  162.         <TD><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2"><A HREF="viewpage.cfm?PageID=#PageID#">#PageID#</A></FONT></TD>
  163.         <TD><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2">#TemplatePath#</FONT></TD>
  164.         <TD><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2">#Location#</FONT></TD>
  165.         <TD><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2">
  166.             <CFIF StartTime IS "">Beginning of time
  167.             <CFELSE>#StartTime#</CFIF>
  168.             </FONT></TD>
  169.         <TD><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2">
  170.             <CFIF EndTime IS "">End of time
  171.             <CFELSE>#EndTime#</CFIF>
  172.             </FONT></TD>
  173.         <TD><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2">#Priority#</FONT></TD>
  174.         <TD><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2"><A HREF="deleteinstance.cfm?InstanceID=#InstanceID#" onClick="return confirm('This will permanently delete this instance.\n\nPress OK to continue.')">Delete</A></FONT></TD>
  175.     </TR>
  176.     </CFOUTPUT>
  177.     <TR>
  178.         <TD COLSPAN="7" ALIGN="RIGHT"><FONT FACE="MS Sans Serif, Helvetica" SIZE="-2"><CFOUTPUT><A HREF="createinstance.cfm?ObjectID=#ObjectID#"></CFOUTPUT>Create Instance</A></FONT></TD>
  179.     </TR>
  180.     </TABLE>
  181.     
  182. </CFIF>
  183.  
  184. </FONT>
  185.  
  186. </BODY>
  187. </HTML>
  188.