#眉標＝ColdFusion MX
#副標=Macromedia解決方案
#大標=拉攏ASP、PHP、JSP族群，擁抱ColdFusion MX（上）
＃作者＝文／劉仲濱

＝＝＝＝＝＝＜box>================
#程式1

<%
set rsGetOrders = Server.CreateObject("ADODB.Recordset")
rsGetOrders.ActiveConnection = "northwind"
rsGetOrders.Source = "SELECT CustomerID, OrderDate from Orders"
rsGetOrders.CursorLocation = 2
rsGetOrders.LockType = 3
rsGetOrders.Open()
rsGetOrders_numRows = 0
%>
＝＝＝＝＝<end>======================
再以迴圈的方式將Recordset內的資料一筆一筆抽出來顯示在網頁上（以VBScript為例）。（程式2）
＝＝＝＝＝＝＝＜box>===================
#程式2
<table>
<%
While (NOT rsGetOrders.EOF))
%>
<tr>
<td><%=(rsGetOrders.Fields.Item("CustomerID").Value)%></td>
<td><%=(rsGetOrders.Fields.Item("OrderDate").Value)%></td>
</tr>
<%
rsGetOrders.MoveNext()
Wend
%>
</table>
===========＜end>================


==============<box>==========
#程式3
<%
rsGetOrders.Close()
Set rsGetOrders = Nothing
%>
=============<end>==================

========<box>==============
#程式4

<cfquery name= "rsGetOrders" datasource= "northwind">
SELECT CustomerID, OrderDate FROM Orders
</cfquery>
＝＝＝＝＝＝＝＝<end>=======


====<box>=================
＃程式5
<table>
<cfoutput query="rsGetOrders">
<tr>
<td>#rsGetOrders.CustomerID#</td>
<td>#rsGetOrders.OrderDate#</td>
</tr>
</cfoutput>
</table>
＝＝＝＝＝＝＝＝＜end>===========

==========<box>===============
＃程式6
<cfmail to="cf@macromedia.com"
from="bing@sji.edu"
subject="寄信標題">
本文內容：用CFML撰寫mail真是超簡便。
</cfmail>
==========<end>==================

＝＝＝＝＝＝＝＝＝＜box>============
＃程式7

<?php
$connMysqlbookstore = mysql_pconnect("bing", "bing", "mypass") or
die(mysql_error());
mysql_select_db("bookstore", $connMysqlbookstore);
$query_rsGetOrders = "SELECT CustomerID, OrderDate FROM Orders";
$rsGetOrders = mysql_query($query_rsGetOrders, $connMysqlbookstore)
or die(mysql_error());
$row_rsGetOrders = mysql_fetch_assoc($rsGetOrders);
$totalRows_rsGetOrders = mysql_num_rows($rsGetOrders);
?>
=============＜end>==================

＝＝＝＝＝＝＝＝＝＝＝＝＝＜box>================
#程式8

<table>
<?php
do {
?>
<tr>
<td><?php echo $row_rsGetOrders['CustomerID']; ?></td>
<td><?php echo $row_rsGetOrders['OrderDate']; ?></td>
</tr>
<?php
} while ($row_rsGetOrders = mysql_fetch_assoc($rsGetOrders));
?>
</table>
=============<end>===============
最後，你還需要將此Recordset從記憶體中釋放，再關閉其資料庫連結。（程式9）
=========<box>==========
#程式9

<?php
mysql_free_result($rsGetOrders);
mysql_close($connMysqlbookstore);
?>
==========<end>=================

＝＝＝＝＝＝＝＝＝＝＜box>=======
#程式10

<?php
$to = $_GET ["txt_tofield"];
$subject = "標題主題";
$subject .= $_SESSION_["order_number"];
$message = join("",file("message.txt"));
$from = "From: chongbing <bing@sji.edu>";
$replyto = "reply-to: bing@mmug.com.tw";
$header = $from; 
$header .= "\n"; 
$header .= $replyto; 
mail($to, $subject, $message, $header); // 開始寄信
?>
=======<end>===================

（程式11~14）


＝＝＝＝＝＝＝＝＝<box>=========
#程式11	CFML標籤式語法。

<cfset myVar = 1>
<cfif myVar EQ 1>
<!---cfoutput wrapping #myVar# --->
<cfoutput>
One is <b>#myVar#</b>
</cfoutput>
<cfelse>
<b>Other</b>
</cfif>
===========＜end>============
=========＜box>===========

#程式12	JSP標籤式語法。
<%! int myVar = 2;%>
<% if (myVar == 1){ %>
One is <b><%=myVar%></b>
<% } else {%>
<b>Other</b>
<% } %>
<P></P>
==========<end>==========
===========<box>============
#程式13	CFML Script式語法。
<cfscript>
if (myVar EQ 1){
writeOutput("One is <b>#myVar#</b>");
}else{
writeOutput("<b>Other</b>");
}
<cfscript>
===========<end>==============
===========<box>==========
#程式14	JSP Script式語法。
<%
if (myVar == 1){
out.println("One is <b>"+
myVar
+"</b>");
}else {
out.print("<b>Other</b>");
}
%>
============<end>================