SELECT SERVERPROPERTY('productversion'),SERVERPROPERTY('productlevel'),SERVERPROPERTY('edition')
<h2>網頁登錄 ( CodeBehind )</h2>
<form id="form1" runat="server">
<div>
<asp:Label ID="lbName" runat="server" Text="帳號："></asp:Label>
<asp:TextBox ID="tbName" runat="server"></asp:TextBox>
<br />
<asp:Label ID="lbPassword" runat="server" Text="密碼："></asp:Label>
<asp:TextBox ID="tbPassword" runat="server" TextMode="Password"></asp:TextBox>
<br />
<br />
<asp:Button ID="btnLogin" runat="server" Text="登錄" />
</div>
</form>
Public Class Login
Inherits System.Web.UI.Page
Protected Sub tbLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click
Dim userName As String = tbName.Text
Dim passWord As String = tbPassword.Text
If (login(userName, passWord)) Then
Response.Redirect("LoginOK.aspx")
Else
Response.Redirect("LoginFail.aspx")
End If
End Sub
Private Function login(userName As String, password As String) As Boolean
' 訪問資料庫，進行帳號及密碼比對
' --- 此處只是為了 Demo 方便，所以寫死 ---
If userName = "kkbruce" And password = "12345" Then
Return True
Else
Return False
End If
End Function
End Class
Public Class Login
Inherits System.Web.UI.Page
Protected Sub tbLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click
Dim userName As String = tbName.Text
Dim password As String = tbPassword.Text
' 使用 Class UserAdmin 提供的認證功能。
Dim ua As New UserAdmin
If (ua.Login(userName, password)) Then
Response.Redirect("LoginOK.aspx")
Else
Response.Redirect("LoginFail.aspx")
End If
End Sub
End Class
''' <summary>
''' 用戶管理類別
''' </summary>
Public Class UserAdmin
''' <summary>
''' 登錄資料確認函式
''' </summary>
''' <param name="userName">帳號</param>
''' <param name="password">密碼</param>
''' <returns>Boolean</returns>
Public Function Login(userName As String, password As String) As Boolean
' 訪問資料庫，進行帳號及密碼比對
' --- 此處只是為了 Demo 方便，所以寫死 ---
If userName = "kkbruce" And password = "12345" Then
Return True
Else
Return False
End If
End Function
End Class
| Data Type | Song/Picture | 256 Flash | USB Flash | SD-Movie | HD-Movie |
|---|---|---|---|---|---|
| Size | 4 MB | 256 MB | 1 GB | 6 GB | 25 GB |
| USB 1.1 | 5.3 Sec | 5.7 min | 22 min | 2.2 hr | 9.3 hr |
| USB 2.0 | 0.1 Sec | 8.5 Sec | 33 Sec | 33 min | 13.9 min |
| USB 3.0 | 0.01 Sec | 0.8 Sec | 3.3 Sec | 20 Sec | 70 Sec |
 |
| 圖一：JF V10 USB 2.0 port write speed |
 |
| 圖二：Blaze B10 USB 2.0 port write speed |
 |
| 圖三：JF V10 USB 3.0 port write speed |
 |
| 圖四：Blaze B10 USB 3.0 port write speed |
 |
| 圖一：Assembly Object-oriented Class (一) (點擊看大圖) |
 |
| 圖二：Assembly 相關類別 (點擊看大圖) |
 |
| 圖三：Attribute 相關類別(點擊看大圖) |
#Region "執行環境中產生程式碼"
''' <summary>
''' 建立動態組件
''' </summary>
Private Sub RunTimeCreateAssembly()
' 1. 建立組件
Console.WriteLine("定義組件")
Dim tempName As New AssemblyName()
tempName.Name = "KKBruceSampleAssembly"
tempName.Version = New Version("1.0.0.0")
' 使用 DefineDynamicAssembly 動態產生組件
Dim AssemBL As AssemblyBuilder = AppDomain.CurrentDomain.DefineDynamicAssembly(tempName, AssemblyBuilderAccess.RunAndSave)
' 2. 建立模組
Console.WriteLine("定義模組")
' DefineDynamicModule 動態產生模組
' 如果要建立一個單一檔案的組件，並將此組件序列化在磁碟之中，最後的Save名稱必須與以下DefineDynamicModule裡名稱相同。
Dim ModuleBL As ModuleBuilder = AssemBL.DefineDynamicModule(tempName.Name, tempName.Name & ".dll")
' 3. 建立型別
Console.WriteLine("定義型別")
' DefineType 動態產生型別
Dim BruceType As TypeBuilder = ModuleBL.DefineType("KKBruceType", TypeAttributes.Class Or TypeAttributes.Public)
' 指定父類別及介面給DefineType
'Dim tb As TypeBuilder = mb.DefineType("KKBruceMyNewType", TypeAttributes.Class Or TypeAttributes.Public,
' GetType(Hashtable),
' New Type() {GetType(IDisposable)})
' 4. 建立成員
Console.WriteLine("定義相關成員")
' 4.1 建立建構子
Console.WriteLine(" 定義建構子")
' MethodAttributes代表建構子的類型
'Dim ConstructorBL As ConstructorBuilder = BruceType.DefineDefaultConstructor(MethodAttributes.Public)
' 4.2 利用ConstructorBuilder建立ILGenerator物件
' --- 註：執行會產生錯誤 ---
' --- 註：依MSDN查詢：Runtime 會為預設建構函式產生程式碼。因此，如果嘗試取得 ILGenerator，則會擲回例外狀況。 ---
'Console.WriteLine(" 建立ILGenerator物件")
' ILGenerator 可產生 Microsoft Intermediate Language (MSIL) 指令。
'Dim codeGen As ILGenerator = ConstructorBL.GetILGenerator()
' Emit：多載。放置指令到 Just-In-Time (JIT) 編譯器的 Microsoft Intermediate Language (MSIL) 資料流中。
' OpCodes 類別：提供 Microsoft Intermediate Language (MSIL) 指令的欄位表示，以用於 ILGenerator 類別成員 (例如 Emit) 的發出。
' Ret欄位：從目前方法傳回，將被呼叫端評估堆疊的傳回值 (如果有的話) 推入至呼叫端的評估堆疊。
'codeGen.Emit(OpCodes.Ret)
' 4.3 建立方法
Console.WriteLine(" 定義方法")
Dim MethodBLOne As MethodBuilder = BruceType.DefineMethod("AddStringOne", MethodAttributes.Public, Nothing, New Type() {GetType(String)})
' 第三個參數：建新新方法的回傳型別
' 第四個參數：參數型別
Dim MethodBLTwo As MethodBuilder = BruceType.DefineMethod("AddStringTwo", MethodAttributes.Public Or MethodAttributes.Static,
Nothing,
New Type() {GetType(String)})
' 4.4 建立私有欄位
Console.WriteLine(" 定義私有欄位")
Dim FieldBL As FieldBuilder = BruceType.DefineField("_count", GetType(Int32), FieldAttributes.Private)
' 4.5 建立屬性
Console.WriteLine(" 定義屬性")
' PropertyAttributes.None 列舉常數不能定義所有的屬性
Dim PropertyBL As PropertyBuilder = BruceType.DefineProperty("Count", PropertyAttributes.None, GetType(Int32), Type.EmptyTypes)
' 4.6 在方法中定義設得或設定屬性值
Console.WriteLine(" 定義方法中設得或設定屬性值")
' 注意，使用MethodAttributes
Dim getMethodAttributes As MethodAttributes = MethodAttributes.Public Or
MethodAttributes.SpecialName Or
MethodAttributes.HideBySig
Dim propGet As MethodBuilder = BruceType.DefineMethod("get_Count", getMethodAttributes, GetType(Int32), Type.EmptyTypes)
' 讓方法可以設定與取得屬性值
PropertyBL.SetGetMethod(propGet)
' 5. 建立型別
Console.WriteLine("產生新型別")
' --- 註：建立型別之前要為所有 MethodBuilder 執行 GetILGenerator() ---
' --- 註：不然會產生一個「方法 'xxx' 沒有方法主體。」的錯誤，這裡 Debug 花了我好久！XD ---
' --- 註：參考：http://msdn.microsoft.com/zh-tw/library/system.reflection.emit.methodbuilder.definegenericparameters%28VS.85%29.aspx 範例才找出解法 ---
Console.WriteLine(" 產生所有方法的ILGenerator")
RunMethodBLGetILGenerator(MethodBLOne)
RunMethodBLGetILGenerator(MethodBLTwo)
RunMethodBLGetILGenerator(propGet)
Console.Write(" 產生型別")
Dim KKBruceType As Type = BruceType.CreateType()
' 5.1 顯示此型別方法
Console.WriteLine()
Console.WriteLine(" 顯示型別方法(注意我們產生動態產生的方法)")
GetRunTimeAssemblyMethods(KKBruceType)
Console.WriteLine()
Console.ReadLine()
' 6. 儲存組件到磁碟中
Console.WriteLine("儲存組件到磁碟中...")
' 一但被寫入到磁碟中，任何程式都可以載入這個組件使用。
AssemBL.Save(tempName.Name & ".dll")
Console.WriteLine("儲存完成。(請參考專案目錄下「\bin\Debug」產生的動態組件 " & tempName.Name & ".dll")
Console.ReadLine()
End Sub
''' <summary>
''' 傳回這個方法的 ILGenerator
''' </summary>
''' <param name="methodInstance">MethodBuilder 的執行個體</param>
''' <remarks></remarks>
Private Sub RunMethodBLGetILGenerator(methodInstance As MethodBuilder)
' MethodBuilder.GetILGenerator()
' 傳回這個方法的 ILGenerator，使用預設 Microsoft Intermediate Language (MSIL) 資料流的 64 位元大小。
Dim ilgen As ILGenerator = methodInstance.GetILGenerator()
ilgen.Emit(OpCodes.Ldnull)
ilgen.Emit(OpCodes.Ret)
End Sub
''' <summary>
''' 取得動態組件方法屬性
''' </summary>
''' <param name="KKBruceType">型別</param>
Private Sub GetRunTimeAssemblyMethods(ByVal KKBruceType As Type)
Console.WriteLine(" Full Name: {0}", KKBruceType.FullName)
For Each m As MemberInfo In KKBruceType.GetMethods()
Console.WriteLine(" Member({0}):{1}", m.MemberType, m.Name)
Next
End Sub
#End Region
執行環境中產生程式碼
定義組件
定義模組
定義型別
定義相關成員
定義建構子
定義方法
定義私有欄位
定義屬性
定義方法中設得或設定屬性值
產生新型別
產生所有方法的ILGenerator
產生型別
顯示型別方法(注意我們產生動態產生的方法)
Full Name: KKBruceType
Member(Method):AddStringOne
Member(Method):AddStringTwo
Member(Method):get_Count
Member(Method):ToString
Member(Method):Equals
Member(Method):GetHashCode
Member(Method):GetType
儲存組件到磁碟中...
儲存完成。(請參考專案目錄下「\bin\Debug」產生的動態組件 KKBruceSampleAssembly.dll
 |
| 圖一：儲存動態程式碼為組件 |
''' <summary>
''' 使用一般 Hashtable 方法來顯示
''' </summary>
Private Sub UseHashtable()
Console.WriteLine("產生Hashtable")
Dim tb As New Hashtable()
tb.Add("Hi", "Hello")
Console.WriteLine("Hash Count: {0}", tb.Count)
Console.WriteLine()
Console.ReadLine()
End Sub
一般方式，使用Hashtable 產生Hashtable Hash Count: 1
''' <summary>
''' 簡單測試及顯示型別 GetMembers() 方法
''' </summary>
''' <param name="type">型別 (即Type) 物件</param>
Private Sub ShowGetMembers(type As Type)
Console.WriteLine("取得型別Members")
For Each mi As MemberInfo In type.GetMembers()
Console.WriteLine(" Member的 Type 及 名稱")
Console.WriteLine(" {0}:{1}", mi.MemberType, mi.Name)
ShowMemberType(mi)
Next
Console.WriteLine()
Console.ReadLine()
End Sub
#Region "MSDN中 MethodBase.GetMethodBody 方法範例"
''' <summary>
''' From MSDN: MethodBase.GetMethodBody 方法範例
''' http://msdn.microsoft.com/zh-tw/library/system.reflection.methodbody.aspx
''' </summary>
Public Class Example
Public Shared Sub Main()
' 請從 MSDN 複製
End Sub
End Class
#End Region
''' <summary>
''' 直接顯示型別相關資訊
''' </summary>
Sub ShowTypeAttributes()
Dim type As Type = GetType(String)
' 取得型別屬性
GetTypeAttribute(type)
' 取得型別自訂屬性
ShowCustomAttribute(type)
' 取得型別 Getxxx
ShowTypeGetxxx(type)
End Sub
System.Type 類別 代表型別宣告：類別型別、介面型別、陣列型別、值型別、列舉型別、型別參數、泛型型別定義，以及開放式或封閉式的建構泛型型別。
…最下面的備註…
Type 是 System.Reflection 功能的根，也是存取中繼資料 (Metadata) 的主要方法。 使用 Type 的成員以取得型別宣告的資訊，例如建構函式 (Constructor)、方法、欄位、屬性和類別的事件，以及模組和部署類別的組件。 C# typeof 運算子 (在 Visual Basic 中為 GetType 運算子，在 Visual C++ 中則為 typeid 運算子) 會傳回 Type 物件。 Type 物件表示型別是唯一的；也就是兩個 Type 物件參考只有在它們表示相同型別時才會參考相同物件。 如此就允許使用參考的相等來比較 Type 物件。…
Imports System.Resources
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' 組件的一般資訊是由下列的屬性集控制。
' 變更這些屬性的值即可修改組件的相關
' 資訊。
' 檢閱組件屬性的值
<Assembly: AssemblyTitle("AssemblyDemo")>
<Assembly: AssemblyDescription("This is KKBruce Assembly Test and Study.")>
<Assembly: AssemblyCompany("KKBruce")>
<Assembly: AssemblyProduct("AssemblyDemo")>
<Assembly: AssemblyCopyright("Copyright KKBruce 2011")>
<Assembly: AssemblyTrademark("KKBruce")>
<Assembly: AssemblyFlags(AssemblyNameFlags.EnableJITcompileOptimizer or Reflection.AssemblyNameFlags.EnableJITcompileTracking )>
<Assembly: ComVisible(False)>
'下列 GUID 為專案公開 (Expose) 至 COM 時所要使用的 typelib ID
<Assembly: Guid("e62bb460-650f-47f7-9b2f-e0aae99fccfb")>
' 組件的版本資訊是由下列四項值構成:
'
' 主要版本
' 次要版本
' 組建編號
' 修訂編號
'
' 您可以指定所有的值，也可以依照以下的方式，使用 '*' 將組建和修訂編號
' 指定為預設值:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>
<assembly: NeutralResourcesLanguageAttribute("zh-TW")>
 |
| 圖一、Mvc 網站編譯輯產生的組件(對擊看大圖) |
 |
| 圖二：使用 Telerik JustDecomplile 解析組件(對擊看大圖) |
 |
| 圖三：解析 Console AssemblyDemo.exe(對擊看大圖) |
 |
| 圖四：解析 EntityFramework 4.1 DbContext(對擊看大圖) |
Je 說: www.wryochnncnwblog.in ^^來看我的部落格幫我衝衝人氣^^ Ja 說: 好 Je 說: 在嗎 Ja 說: 在 你不是下班了 Je 說: 嗯嗯 我現在用筆電 Ja 說: 東西忘了拿嗎 Je 說: 你還沒有下班嗎 Ja 說: 嗯 還在公司寫報告 Je 說: 可以幫我個忙嗎 Ja 說: 可以 Je 說: 可以幫我買幾張MY CRAD卡嗎 Ja 說: 這是什麼東東 Je 說: 儲值用的 你和店員說買儲值用的MY CARD卡他們就瞭解啦 7 11 全家有買的 Ja 說: 買幾張 Je 說: 幫我買4張面額1000的 Ja 說:
 |
| 圖一：使用 Bing 搜尋 MSDN |
<?xml version="1.0" encoding="UTF-8"?> <log> <version>1.1</version> <creator> <name>Internet Explorer 網路檢查</name> <version>9.0.8112.16421</version> </creator> <browser> <name>Internet Explorer</name> <version>9.0.8112.16421</version> </browser> <pages> <page> <startedDateTime>2011-09-04T13:34:51.695+08:00</startedDateTime> <id>0</id> <title/> <pageTimings> <onContentLoad>227</onContentLoad> <onLoad>238</onLoad> </pageTimings> </page> </pages> <entries> <entry> <pageref>0</pageref> <startedDateTime>2011-09-04T13:34:51.695+08:00</startedDateTime> <time>187</time> <request> <method>GET</method> <url>http://msdn.microsoft.com/</url> <httpVersion>HTTP/1.1</httpVersion> <cookies> <cookie> <name>TocHashCookie</name> <value>ms310241(n)/</value> </cookie> <cookie> <name>WT_NVR</name> <value>0=/:1=zh-tw|library:2=zh-tw/library:3=zh-tw/library/community</value> </cookie> <cookie> <name>A</name> <value>I&I=AxUFAAAAAAChBwAANNr2/wpKagArfkiaPMsnCg!!&M=1</value> </cookie> <cookie> <name>omniID</name> <value>1315124990139_6d2f_5340_cefd_9babfa8cc553</value> </cookie> <cookie> <name>WT_FPC</name> <value>id=123.195.36.172-230651568.30156417:lv=1315068214015:ss=1315067390233</value> </cookie> <cookie> <name>WT_NVR_RU</name> <value>0=msdn:1=:2=</value> </cookie> <cookie> <name>msdn</name> <value>L=1028</value> </cookie> <cookie> <name>Microsoft.com</name> <value>SS=1&SS_Refn=0&SS_Url=http://social.msdn.microsoft.com/Search/zh-tw?query=cg&x=0&y=0~~2011/9/4 ä¸�å�� 08:43:07</value> </cookie> <cookie> <name>MUID</name> <value>BC2FDEB409EB4230B987BCDF6A394146</value> </cookie> <cookie> <name>MSID</name> <value>Microsoft.CreationDate=09/04/2011 08:43:09&Microsoft.LastVisitDate=09/04/2011 08:43:28&Microsoft.VisitStartDate=09/04/2011 08:43:09&Microsoft.CookieId=ea95f0a2-d7b6-4f08-baea-3d683e4148a8&Microsoft.TokenId=ffffffff-ffff-ffff-ffff-ffffffffffff&Microsoft.NumberOfVisits=3&Microsoft.CookieFirstVisit=1&Microsoft.IdentityToken=AA==&Microsoft.MicrosoftId=0102-2054-3786-4152</value> </cookie> <cookie> <name>MC1</name> <value>GUID=afc3a69a2c9a6349a2f3679acf03f697&HASH=9aa6&LV=20119&V=3</value> </cookie> <cookie> <name>ADS</name> <value>SN=175A21EF</value> </cookie> </cookies> <headers> <header> <name>Accept</name> <value>text/html, application/xhtml+xml, */*</value> </header> <header> <name>Accept-Language</name> <value>zh-TW</value> </header> <header> <name>User-Agent</name> <value>Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0)</value> </header> <header> <name>Accept-Encoding</name> <value>gzip, deflate</value> </header> <header> <name>Host</name> <value>msdn.microsoft.com</value> </header> <header> <name>Connection</name> <value>Keep-Alive</value> </header> <header> <name>Cache-Control</name> <value>no-cache</value> </header> <header> <name>Cookie</name> <value>TocHashCookie=ms310241(n)/; WT_NVR=0=/:1=zh-tw|library:2=zh-tw/library:3=zh-tw/library/community; A=I&I=AxUFAAAAAAChBwAANNr2/wpKagArfkiaPMsnCg!!&M=1; omniID=1315124990139_6d2f_5340_cefd_9babfa8cc553; WT_FPC=id=123.195.36.172-230651568.30156417:lv=1315068214015:ss=1315067390233; WT_NVR_RU=0=msdn:1=:2=; msdn=L=1028; Microsoft.com=SS=1&SS_Refn=0&SS_Url=http://social.msdn.microsoft.com/Search/zh-tw?query=cg&x=0&y=0~~2011/9/4 ä¸�å�� 08:43:07; MUID=BC2FDEB409EB4230B987BCDF6A394146; MSID=Microsoft.CreationDate=09/04/2011 08:43:09&Microsoft.LastVisitDate=09/04/2011 08:43:28&Microsoft.VisitStartDate=09/04/2011 08:43:09&Microsoft.CookieId=ea95f0a2-d7b6-4f08-baea-3d683e4148a8&Microsoft.TokenId=ffffffff-ffff-ffff-ffff-ffffffffffff&Microsoft.NumberOfVisits=3&Microsoft.CookieFirstVisit=1&Microsoft.IdentityToken=AA==&Microsoft.MicrosoftId=0102-2054-3786-4152; MC1=GUID=afc3a69a2c9a6349a2f3679acf03f697&HASH=9aa6&LV=20119&V=3; ADS=SN=175A21EF</value> </header> </headers> <queryString/> <headersSize>1228</headersSize> <bodySize>0</bodySize> </request> <response> <status>502</status> <statusText>Bad Gateway</statusText> <httpVersion>HTTP/1.1</httpVersion> <cookies/> <headers> <header> <name>Content-Type</name> <value>text/html</value> </header> <header> <name>Location</name> <value>http://msdn.microsoft.com/zh-tw/default.aspx</value> </header> <header> <name>Server</name> <value>Microsoft-IIS/7.5</value> </header> <header> <name>P3P</name> <value>CP="ALL IND DSP COR ADM CONo CUR CUSo IVAo IVDo PSA PSD TAI TELo OUR SAMo CNT COM INT NAV ONL PHY PRE PUR UNI"</value> </header> <header> <name>X-Powered-By</name> <value>ASP.NET</value> </header> <header> <name>Date</name> <value>Sun, 04 Sep 2011 13:34:43 GMT</value> </header> <header> <name>Content-Length</name> <value>89</value> </header> </headers> <content> <size>89</size> <mimeType>text/html</mimeType> <text>The specified CGI application encountered an error and the server terminated the process.</text> </content> <redirectionURL/> <headersSize>333</headersSize> <bodySize>89</bodySize> </response> <cache/> <timings> <send>0</send> <wait>187</wait> <receive>0</receive> </timings> </entry> </entries> </log>
 |
| 圖一：Firefox with MSDN CGI error message (點小圖看大圖) |
 |
| 圖二：IE 產生 CGI 時的 Cookie 狀態 (圖小圖看大圖) |
 |
| 圖三：IE 使用 F12 開發者工具清除 Cookie後，重新連線後的 Cookie (點小圖看大圖) |
 |
| 圖一：Chrome 無法連線 MSDN |
 |
| 圖二、IE 無法連線 MSDN |
弟弟：Bruce我電腦開不了機，可以幫我看一下嗎？… 場景切換到我家 …
我：哦，費用我會算在我二個女兒的學費裡。載來吧！
弟弟：…我知道，我會努力的。…