#眉標= ColdFusion
#副標=在.NET與J2EE平台上盡情發揮
#大標=擁抱ColdFusion MX（下）
＃副標＝
作者=文／劉仲濱


============<box>=============
程式1	ASP(檔案存取)

<% 
Set fs = CreateObject("Scripting.FileSystemObject") 
Set fl=fs.OpenTextFile("c:\myfiles.txt") 
filedata=fl.ReadAll 
fl.close 
response.write(filedata) 
%>
==========<end>=============
=========<box>====================
程式2	CFML(檔案存取)

<CFFILE ACTION="read" FILE="c:\myfiles.txt" VARIABLE="mydata">
<CFOUTPUT>#filedata#</CFOUTPUT>
==========<end>====================


========<box>===================
程式3	ASP(建立Word文件)

<% 
Set objWord = CreateObject("Word.Application") 
objDoc=objWord.Documents 
newDoc=objDoc.Add 
%>
========<end>===================

========<box>===================
程式4	CFML(建立Word文件)

<CFSCRIPT> 
objWord=CreateObject("COM", "Word.Application"); 
objDoc = objWord.Documents; 
newDoc = objDoc.Add(); 
</CFSCRIPT>
========<end>===================




===========<box>====================
程式5	ASP.NET(寄送E-mail)

Dim myMail As MailMessage = New MailMessage() 
myMail.From = "mmug@mmug.com.tw" 
myMail.To = "bing@sji.edu" 
myMail.Subect = "郵件測試" 
myMail.Body = "這是封單純的郵件測試." 
SmtpMail.Send(myMail)
=============<end>==================
========<box>===================
程式6	CFML(寄送E-mail)

<CFMAIL TO="bing@sji.edu" 
        FROM="mmug@mmug.com.tw" 
        SUBJECT="郵件測試 "> 
這是封單純的郵件測試。 
</CFMAIL>
========<end>===================



========<box>===================
程式7	ASP.NET(配合資料庫寄送E-mail)

Dim connString as String 
connString = "..." 
Dim objConnection as OleDbConnection 
objConnection = New OleDbConnection(connString) 
objConnection.Open() 
Dim strSQL as String = "SELECT firstName, email FROM users" 
Dim objCommand as OleDbCommand 
objCommand = New OleDbCommand(strSQL, objConnection) 
Dim objDataReader as OleDbDataReader 
objDataReader = objCommand.ExecuteReader(CommandBehavior.CloseConnection) 
Dim myMail As MailMessage = New MailMessage() 
myMail.From = "mmug@mmug.com.tw" 
myMail.To = objDataReader("eMail") 
myMail.Subect = "這是封單純的郵件測試" 
myMail.Body = "親愛的" & objDataReader("firstName") & "內容如下..." 
SmtpMail.Send(myMail) 
objDataReader.Close()
========<end>===================

========<box>===================
程式8	CFML(配合資料庫寄送E-mail)

<CFQUERY DATASOURCE="dsn" 
         NAME="users"> 
         SELECT firstName, email FROM users 
</CFQUERY> 
<CFMAIL QUEREY="users" 
        TO="#email#" 
        FROM="mmug@mmug.com.tw" 
        SUBJECT="這是封單純的郵件測試"> 
親愛的 #firstname#, 內容如下… 
</CFMAIL>
========<end>===================



========<box>===================
程式9	ASP.NET解析XML

<% 
Dim xml as String 
xml = "<book ISBN='2-324975-18-9>
<title> ColdFusion極速開發</title>
<price>500</price> </book>" 

Dim doc As New XmlDocument()
doc.LoadXml(xml) 
Dim root As XmlNode = doc.FirstChild 
=root.FirstChild.OuterXml 
%>
========<end>===================

========<box>===================
程式10	CFML解析XML

<CFSET xml="<book ISBN='2-324975-18-9'>
<title>ColdFusion極速開發</title>
<price>500</price> </book>">
 
<CFSET doc=XMLParse(xml)> 
<CFOUTPUT> 
#doc.book.XmlChildren[1].XmlText# 
</CFOUTPUT>
========<end>===================