威筆記

ipconfig 指令參數說明

2010-05-09T22:08:00.002+08:00

在Windows命令提示字元中(cmd)，ipconfig是Windows系統的TCP/IP應用程式指令，其用途為顯示本機電腦的IP位址與相關配置資訊。ipconfig對於網路的故障排除有著重要的作用，其參數指令直覺且易用。

語法：
ipconfig [/參數]

參數說明：

/all
顯示網路卡的TCP/IP所有完整配置資訊。
/renew [adapter]
用於需重新配置DHCP的網路卡。(此參數只可用於設定為自動DHCP配置IP位址的環境下)
/release [adapter]
要求DHCP釋放(丟棄)網路卡的IP位址。
/displaydns
顯示DNS快取內容。
/flushdns
重新刷新清理DNS快取。
/registerdns
重新註冊(初始化)IP位址與DNS名稱。
/showclassid [adapter]
顯示網路卡的DHCP類別ID。
/setclassid [adapter]
配置網路卡的DHCP類別ID。
/?
顯示ipconfig的參數說明。

讓Chrome瀏覽器支援MaintainScrollPositionOnPostback屬性

2010-05-03T21:57:00.001+08:00

MaintainScrollPositionOnPostback主要功能是在Asp.Net的Page中取得或設定值，指出在回傳後是否將使用者返回用戶端瀏覽器中的相同位置。簡單的說就是讓頁面在PostBack後還能保持頁面位置。

即使我們在Page中設定了MaintainScrollPositionOnPostback為True，但在最近市佔率越來越高的Chrome這個以速度快著名的Goolge瀏覽器卻是失效了。

自己在遇這個問題後，在Google找到此站提供的方式解決了我的問題：
讓Chrome瀏覽器支援Asp.Net的MaintainScrollPositionOnPostback
但此網頁已失連許久，也在Google找不到相同提供解決方法的網頁(也許有，我沒找到)。因此特地在此記錄並提供給有遇到同樣問題的朋友一個解決的辦法。

解決方法：
首先在Asp.Net中新增一個瀏覽器定義檔，我們要使用這個定義檔來根據不同瀏覽器設定不同運行環境參數。

.browser建立後預設會放在App_Browesers資料夾中。打開.browser後將以下程式碼直接複製貼上：

<browsers>    <browser id="Safari3" parentID="Safari1Plus">        <identification>            <userAgent match="Safari/\d+\.\d+" />        </identification>        <capture>            <userAgent match="Version/(?'version'\d+\.\d+)" />        </capture>        <capabilities>            <capability name="browser" value="Safari3" />            <capability name="version" value="${version}" />        </capabilities>        <controlAdapters>            <adapter controlType="System.Web.UI.WebControls.Menu"                     adapterType="" />        </controlAdapters>    </browser>    <browser id="GoogleChrome" parentID="Safari3">        <identification>            <userAgent match="Chrome/(?'version'\d+\.\d+)" />        </identification>        <capabilities>            <capability name="browser" value="Googlebot" />            <capability name="supportsMaintainScrollPositionOnPostback" value="true" />        </capabilities>    </browser></browsers>

上面這段程式碼原本主要的用途是用來解決Asp.Net中的Menu控制項，在Chrom與Safari瀏覽器下顯示不完全的問題。詳情可以參考：最簡單的方法，讓 ASP.NET Menu 控件在 Google Chrome 瀏覽器上正常顯示

按照原作者的方法直接在GoogleChrome的定義中加入這一行程式碼：
<capability name="supportsMaintainScrollPositionOnPostback" value="true" />

如此即可解決MaintainScrollPositionOnPostback在Chrome瀏覽器失效的問題了，可謂一舉兩得。

解決FileUpload上傳超過4M大檔案時瀏覽器出現錯誤訊息

2010-05-03T21:09:00.001+08:00

在Asp.Net中若使用FileUpload控制項實作檔案上傳時，除了在上傳按鈕事件中可以使用FileUpload.PostedFile.ContentLength來取得檔案大小來限制使用者上傳檔案大小之外，另外一個我們都會遇到的必需去解決的課題，是在Asp.Net環境中系統預設了最大上傳容量為4M(4096KB)。因此若網站User在上傳的檔案超過4M瀏覽器就會出現錯誤訊息，而User殊不知是自己上傳了過大檔案導致，以為是系統故障了。

Asp.Net會有此一限制，是為了能夠避免『分散式阻斷服務攻擊』(DDoS)，免去一些在不懂資安情況之下得到最小限度的保護措施。

既然系統幫我們預設了最大上傳，當然爾我們也可以依照個人不同需求來調整這個預設值。設定的方法很簡單，我們只需在Web.Config檔中指定

httpRuntime項目的屬性即可。

<system.web>    <httpRuntime executionTimeout = "1800" maxRequestLength="100000" /></system.web>

executionTimeout屬性：以秒為單位，代表網頁執行期間所需執行最大秒數(預設是90秒)，若網頁執行超過設定值時間會發生TimeOut的情況。
maxRequestLength屬性：以KB為單位，指定輸入資料流緩衝臨界值的限制，也就是我們所需指定允許最大上傳容量設定值(預設值為4096KB)。

補充：
若需自訂超過檔案限制大小時瀏覽器出現錯誤時的頁面，可於Web.Config中設定customErrors項目，自行指定錯誤發生時所需顯示的頁面：
<customErrors mode="On" defaultRedirect="ErrorPage.aspx" />

更多內容可參考：
ASP.NET 無法上載大型檔案(大於 4MB)
ASP.NET 當上傳檔案過大時任何回應瀏覽器的動作都無效

[Tips] 在Asp.Net中替VB.Net一次多行註解

2010-04-29T22:07:00.001+08:00

使用VB.Net寫Asp.Net的人一定都知道要註解VB程式碼的方法，直接在要註解那行程式碼最前端加上 ' 號。

使用C#可以使用 // 來註解單行，亦可使用 /* */ 來包覆程式碼達到多行註解的功能。那VB如何使用多行註解？很抱歉…VB並不支援多行註解。雖然如此，VB的Programmers也無需過於擔心，若使用的開發軟體為Vistual Studio ，就不需要自己一行一行手動Key ' 號註解了。

VB.Net多行註解方法：
在Vistual Studio上方工具列可以找到如下圖『註解選取行』的按鈕

若沒找到，試著從檢視→工具列→文字編輯器，將其工具列打開

OK!接著就是將欲註解的程式碼反白後，直接按下『註解選取行』按鈕

最後結果所有被反白的程式碼都加上了 ' 號註解了，非常容易又方便呀!

取消多行註解的方式也一樣，反白程式碼後點擊『取消註解選取行』按鈕即可。

或想自己使用Alt+左鍵選取區塊的方式將多行註解選取起來再按下Del鍵刪除也可，看個人習慣囉!

[Tips] 移除ViewState值的兩種寫法

2010-04-29T21:31:00.001+08:00

VB.Net寫法：

1、將ViewState("Test")值移除

ViewState.Remove("Test")

or

2、ViewState("Test")值設為Null
ViewState("Test") = DBNull.Value

想做你的CODE：Vistual Studio 2010全球發佈會宣傳影片

2010-04-28T21:39:00.002+08:00

『想做你的CODE』：更痛快地CODING，給愛更多好心情……

Programer時最容易犯的毛病，除了CODING卻忽略身邊太多的事物，這挺符合Vistual Studio強調的快速開發。

解決Asp.net網站佈署至國外虛擬主機日期格式不同的問題

2010-04-27T22:44:00.001+08:00

若您與我一樣使用的是國外虛擬主機運作Asp.Net網站，可能需要注意一下在不同語系的Server系統上，會產生不同日期格式的問題。由於國外虛擬主機用的是英文版的Windows Server，網站中若有使用到DateTime抓取系統時間也會自動顯示為國外的日期格式。

雖然DateTime可加上ToString來自訂日期格式，如DateTime.ToString("yyyy/MM/dd HH:mm:ss")，但某些Asp.Net的extender也會跟著系統的語系顯示不同語系，如Ajax ControlToolKit 的CalendarExtender。

要避免此問題最方便的方法是直接在Web.Config檔案中指定網站程式預設語系為zh-Tw(中文)語系。

設定方法：
在Web.Config檔中加入
<system.web>

<globalization culture="zh-TW' />

</system.web>

如此不管使用的運行的Server語系為何，網站都會以中文語系顯示了。

設定Html編輯器FreeTextBox在Enter換行時為

2010-04-27T22:16:00.002+08:00

最近在一個專案中使用了免費版的FreeTextBox線上Html編輯器，發現的問題是在FreeTextBox編輯內容按下Enter鍵換行時，不同瀏覽器下的換行行距會有所不同。

以下為各瀏覽器在FreeTextBox下Enter鍵預設輸出的語法：
Firefox → <br>
Chrome → <div>
IE8 → <p></p>
Opera → <p></p>

顯然的IE8與Opera的<p>段落即為造成換行行距過大的問題所在。因不可能告知所有網站User要換行請使用Shift+Enter來產生<br>換行，我希望找到方法使得Enter預設值可由<p>段落改為使用<br>換行語法。

在FreeTextBox中有個屬性值為BreakMode，說明文件對屬性解釋如下：
.BreakMode
Sets what happens when the "Enter" key is pressed. Options are LineBreak (IE and Mozilla) and Paragraph (IE only)

FreeTextBox的BreakMode預設值為Paragraph(段落)，因此只要設定BreakMode="LineBreak" 即可將預設<p>更改為<br>。

根據說明文件可以得知設定LineBreak模式只能影響IE與FireFox瀏覽器，在Chrome及Opera是無效的，這點需要特別注意一下。

SqlDataSource設計模式中SelectCommand使用If…Else條件

2010-04-22T21:44:00.001+08:00

一般來說我們都會將使用codebehind的方式來指定SqlDataSource的SelectCommand內容。但在比較複雜的邏輯程式中不得已必須在設計模式中直接指定SelectCommand內容，又需要對某控制項來取值作為SQL中的Where條件時，我們可以使用T-SQL中的條件語法If…Else來實現。

T-SQL If…Else 架構：
If 條件式
Begin

         T-SQL語法
    End
Else
    Begin
         T-SQL語法
    End

Begin End是用來設定T-SQL程式碼範圍，若你的T-SQL語法超過一行請務必記得加上Begin End，否則你會發現就算寫了多行也只會執行第一行程式。最好是養成不管一行多行程式都用Begin….End包起來的好習慣。

範例：
在SqlDataSource的SelectCommand對DropDownList控制項取值，判斷DropDownList值是否為All來達成不同條件資料過濾。

DropDownList內容：

<asp:DropDownList ID="DropDownList" runat="server"     AppendDataBoundItems="True" DataSourceID="Sort_SqlDataSource"     DataTextField="分類項目" DataValueField="分類編號">    <asp:ListItem Value="All">請選擇</asp:ListItem></asp:DropDownList><asp:SqlDataSource ID="Sort_SqlDataSource" runat="server"     ConnectionString="<%$ ConnectionStrings:TestConnectionString %>"     SelectCommand="SELECT * FROM 分類"></asp:SqlDataSource>

SqlDataSource SelectCommand內容：

<asp:SqlDataSource ID="SqlDataSource" runat="server"        ConnectionString="<%$ ConnectionStrings:TestConnectionString %>"        SelectCommand="if (@分類項目='All') begin Select * From 測試 end else begin Select * From 測試 Where 分類項目=@分類項目 end">        <SelectParameters>            <asp:ControlParameter ControlID="DropDownList" Name="分類項目" PropertyName="SelectedValue" />        </SelectParameters> </asp:SqlDataSource>

[Ajax]CalendarExtender與TextBox的ReadOnly設為True取不到值的解決方法

2010-04-15T20:37:00.001+08:00

使用CalendarExtender控制項時通常一定會搭配TextBox控制項，且定會想將TexBox欄位設為唯讀來防止User自行輸入一些不符合資料庫欄位規格的日期格式。

然而從Asp.Net 2.0開始若將TextBox設為ReadOnly後會發現，在PostBack後卻無法順利取得TextBox.Text值，這是Asp.Net 2.0後基於安全性考量而作的改變。

解決方法：
不在設計模式中設定TextBox的唯獨屬性，而在codebehind的Page_Load事件中使用WebControl.Attributes 屬性動態加入唯獨屬性的設定。

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load    If Not IsPostBack Then           TextBox.Attributes.Add("readonly", "true")    End IfEnd Sub

解決[Ajax]CalendarExtender彈出時被GridView或其它物件遮擋的問題

2010-04-14T22:51:00.001+08:00

上圖的CalendarExtender日曆控制項彈出時被下方的GridView Header 的Div Css擋住了。我們必須使CalendarExtender能永遠顯示在畫面最頂端，
正常的情況應該如下圖：

解決方法：
我們將寫一個Css並將其指定給CalendarExtender：

<ajaxtoolkit:calendarextender ID="CalendarExtender" runat="server" TargetControlID="Date" PopupButtonID="Calendar_Image" Format="yyyy/MM/dd" FirstDayOfWeek="Monday" CssClass="cssCalendar">

CalendarExtender CSS內容中將月曆控制項指定z-index屬性。z-index是用來指定圖層的層數，例如z-index:1為最底層，z-index:2為第2層以此類推。
最重要的是需將此CSS 的z-index屬性寫在.ajax__calendar_container
代表將整個CalendarExtender 容器的層數設為最頂層(除非你自己故意將其它Div設到1001層否則CalendarExtender 會在最頂層)

如：

.cssCalendar .ajax__calendar_container
{
z-index:1000;
}

GridView實作資料筆數、頁數統計(使用SqlDataSource繫結方式)

2010-04-14T22:23:00.001+08:00

在此要介紹的是使用GridView指定DataSourceID為SqlDataSource的資料繫結方式情況下，實現如上圖統計GridView的資料筆數與分頁數功能。

計算GridView筆數：

'計算筆數Protected Sub SqlDataSource_Selected(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.SqlDataSourceStatusEventArgs) Handles SqlDataSource.Selected    CountLots.Text = "合計" + e.AffectedRows.ToString() + "筆"End Sub

注意：利用 SqlDataSource取得資料受影響筆數必須要將DataSourceMode設為DataSet，否則取得的筆數皆為0。

計算GridView頁數：

'計算頁數Protected Sub GridView_DataBound(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridView.DataBound    If Not CountPage Is Nothing Then        Dim currentPage As Integer = GridView.PageIndex + 1        CountPage.Text = " 共" & GridView.PageCount.ToString() & "頁"    End IfEnd Sub

Asp.net加密Web.config檔的資料庫連線資訊內容

2010-04-14T21:53:00.001+08:00

在Web.config檔中的<connectionString>區段儲存的是資料庫的連線資訊，包含主機IP、資料庫登入帳號、密碼等等重要機密資訊。因此在將網站正式上線以前必須作的其中一項重要事情，便是將<connectionString>區段中的重要資訊經過加密轉換，在此我們選擇使用RsaProtectedConfigurationProvider類別的加密解密方式來實現保護<connectionString>的功能。

加密方法：
1、從開始→執行中輸入cmd指令來開啟DOS指令視窗
2、在DOS視窗中我們需要先切換至.NET Framework目錄下來執行：因此輸入cd \WINDOWS\Microsoft.Net\Framework\v2.0.*
3、在此目錄下有支aspnet_regiis.exe的程式，我們使用此支執行檔來實現加密的功能：輸入aspnet_regiis -pe "connectionStrings" -app "/網站名" -prov "RSAProtectedConfigurationProvider"

解密方法：
1、同上先切換至.NET Framework目錄下來執行aspnet_regiis.exe的程式
2、輸入aspnet_regiis -pd "connectionStrings" -app "/網站名" -prov "RSAProtectedConfigurationProvider"

參數說明：

-pe : 加密

-pd : 解密

-app : 欲加密的網站目錄名稱

-prov : 加密方式

剖析器錯誤訊息：無法從組件……載入型別……(解決方法)

2010-04-14T21:03:00.001+08:00

剖析器錯誤訊息: 無法從組件

'System.Web.Extensions, Version=1.0.61025.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'

載入型別 'System.Web.UI.Compatibility.CompareValidator'。

錯誤原因：
在Asp.Net網頁運行時出現此訊息，代表您運行的網站程式碼中使用了Ajax Control Toolkit For .NET3.5 SP1版本的控制項；而運行的Visual Studio 2008 環境未安裝SP1更新補丁。

解決方法：
下載Visual Studio 2008 Sp1(ISO檔)後安裝更新檔即可。

Asp.Net -Cookie讀取中文變亂碼的解決方法

2010-04-06T19:57:00.001+08:00

有時我的可能因為特別需求，必須使用Cookie來存放簡短的中文字。但中文字的編碼與Cookie預設的編碼方式不同，因此必須先行在URL傳輸過程中經過一道編碼、解碼的程序，才不會發生中文字在Cookie中讀取出來為亂碼的情況。

一般建立Cookie的寫法為：

Dim cookie As New HttpCookie("UserInfo")cookie.Values.Add("Login", "OK")cookie.Values.Add("No", dr("員工編號"))cookie.Values.Add("Name", (dr("員工姓名"))Response.Cookies.Add(cookie)

由於其中"Name"的Cookie內容存放的是中文字員工姓名，讀取時使用Request.Cookies("UserInfo")("Name")後，會發現讀到的中文已經變為亂碼。

我們將原本的寫法加入HttpUtility.UrlEncode(編碼)與HttpUtility.UrlDecode(解碼)，在URL中傳輸而進行編碼的字串轉換來解決亂碼的問題。修改後程式碼如下：

建立Cookie時編碼：

Dim cookie As New HttpCookie("UserInfo")cookie.Values.Add("Login", "OK")cookie.Values.Add("No", dr("員工編號"))cookie.Values.Add("Name", HttpUtility.UrlEncode(dr("員工姓名")))Response.Cookies.Add(cookie)

讀取時解碼：
HttpUtility.UrlDecode(Request.Cookies("UserInfo")("Name"))

伺服器 'Localhost\SQLEXPRESS' 上的 MSDTC 無法使用。

2010-04-03T15:34:00.001+08:00

若在操作Asp.Net網站時發生『伺服器 'Localhost\SQLEXPRESS' 上的 MSDTC 無法使用。』的錯誤訊息，那麼一定是在進行資料庫存取時使用了TransactionScope的交易機制來確保交易的完整性。

在程式碼中加入TransactionScope交易機制的同時，也需要在網站Server上開啟MSDTC(Microsoft Distributed Transaction Coordination)分散式異動交易的系統服務，否則就會看到『伺服器 'Localhost\SQLEXPRESS' 上的 MSDTC 無法使用。』的錯誤訊息。由於MSDTC在XP系統中預設是不開啟，因此我們需要將其開啟並設為自動開啟。

開啟MSDTC方法：(以XP為例)
[控制台]→[系統管理工具]→[服務]
找到『Distributed Transaction Coordinator』的服務名稱

在其名稱上按[右鍵]→[內容]

進入內容後如下圖將啟動類型改為自動、服務狀態將其啟動。

完成設定後，Asp.Net網站即可正確的執行TransactionScope交易機制。

GridView隱藏欄位(Visible="Flase")後取不到值的替代方法

2010-04-03T14:55:00.001+08:00

有時我們需要在GridView中設置欄位來取值，以作為後續動作的資料來源判斷依據，但又不想在使用者瀏覽時顯示此欄位。例：GridView中使用BoundField 來取得存檔日期的值同時將其欄位設為不顯示，<asp:BoundField DataField="存檔日期" Visible="false" />。這時在GridView的RowDataBound事件中使用e.Row.Cells(0).Text的方式取值會發現無法順利取到值。

因此需要使用另一種替代方式來達到此目的的實現，在Asp.Net中有個專為隱藏數值設計的控制項HiddenField，我們要作的就是將原本<asp:BoundField DataField="存檔日期" Visible="false" />的資料繫結方式改為使用HiddenField的Value值與存檔日期繫結，並將此HiddenField控制項置於GridView的TemplateField中。

<asp:TemplateField>    <ItemTemplate>        <asp:HiddenField ID="SaveTime" runat="server" Value='<%# Eval("存檔日期") %>' />    </ItemTemplate></asp:TemplateField>

如此便可在GridView的RowDataBound事件中使用FindControl的方式來取得GridView各個欄位中的存檔日期值。

Protected Sub GridView_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GridView.RowDataBound    If e.Row.RowType = DataControlRowType.DataRow Then        Response.Write(CType(e.Row.FindControl("SaveTime"), HiddenField).Value)    End IfEnd Sub

DataList包DataList中建立子DataList的ItemCommand事件

2010-04-03T11:17:00.002+08:00

DataList包DataList此種用法最常見的如部落格文章的回應功能。頁面中使用DataList來Show出多筆文章，文章的DataList中再套入Datalist來顯示多筆回應內容。如此形成兩層DataList的情況後，我們在實作時首先會發現在Vistual Studio中找不到子DataList的事件選項供自己選擇。

遇到此種情況便需要我們自己來手動建立子DataList事件了。在網路上你可以找到不只一種建立子DataList的方法，在此我將個人認為最簡單的建立事件方法記錄如下。

方法：
手動建立Public Sub後，在子DataList中指定OnItemCommand事件並觸發Public Sub。我們需要作的事是在DataList2中手動輸入OnItemCommand=" Plublic Sub事件名稱 " (如程式第10行)。

Test.aspx

   1: <asp:DataList ID="DataList1" runat="server" DataKeyField="拜訪編號"    2:     DataSourceID="SqlDataSource1">   3:     <ItemTemplate>   4:         <font color="red">   5:             拜訪編號:   6:             <asp:Label ID="拜訪編號Label" runat="server" Text='<%# Eval("拜訪編號") %>' />   7:             <asp:Button ID="Button1" runat="server" Text="按鈕1" CommandName="TestButton" />   8:         </font>   9:         <asp:DataList ID="DataList2" runat="server"   10:         DataSourceID="SqlDataSource2" OnItemCommand="DataList2_ItemCommand">  11:         <ItemTemplate>  12:             拜訪目的:  13:             <asp:Label ID="拜訪目的Label" runat="server" Text='<%# Eval("拜訪目的") %>' />  14:             <asp:Button ID="Button1" runat="server" Text="按鈕2" CommandName="TestButton2" />  15:         </ItemTemplate>  16:         </asp:DataList>  17:         <br />  18:     </ItemTemplate>  19: </asp:DataList>

在Test.aspx.vb中建立Public Sub，其名稱為OnItemCommand事件指定呼叫的名稱。

Test.aspx.vb

   1: Public Sub DataList2_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataListCommandEventArgs)   2:     If e.CommandName = "TestButton2" Then   3:         Response.Write("This is DataList2")   4:     End If   5: End Sub

在我們按下按鈕2後便可以正確觸發子DataList的ItemCommand事件：

Asp.Net的錨點(#連結)功能，支援FireFox

2010-03-20T15:16:00.001+08:00

所謂錨點(#連結)的作法為超連結網址後方加上#參數。最常見的應用為指定回應內容網址的功能，讓使用者點擊回應連結後可直接將瀏覽器畫面定位在頁面下方的回應內容位置。

錨點#的用法如下：
Ex：http://localhost/Test/Test.aspx#Link
如此我們就可以在被連結頁面中指定其連結位置
Ex：<a id="Link"></a>

上面這種寫法支持xhtml網頁標準，與傳統的錨點寫法<a name="#Link"></a>不同的是不使用name來指定錨點改用id指定且去掉了加上#字號。使用name一來會多了無意義的<a>連結，且未指定href也不符合xhtml標準，而使用id指定錨點不侷限於<a>標籤，可用於其它如<tr><td><h1><li>等標籤中。最重要的是使用id指定錨點才能讓Firefox、Opera、Chorm等瀏覽器作用！不再是IE Only的功能了。

下面用個簡單的連結範例來實作錨點功能：
在Test.aspx頁面建立HyperLink控制項，並指定其超連結網址為Test2.aspx，同時加上錨點參數#Link

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Test.aspx.vb" Inherits="Test" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"><head runat="server">    <title></title></head><body>    <form id="form1" runat="server">    <div>        <asp:HyperLink ID="HyperLink1" runat="server" NavigateUrl="Test2.aspx#Link">        錨點連結至Test2.aspx</asp:HyperLink>    </div>    </form></body></html>

並在Test2.aspx中建立1～15數字來區別位置，我們將錨點#Link建立在數字11上

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Test2.aspx.vb" Inherits="Test2" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"><head runat="server">    <title></title></head><body>    <form id="form1" runat="server">    <div>    第一行<br />    1<br /><br /><br />    2<br /><br /><br />    3<br /><br /><br />    4<br /><br /><br />    5<br /><br /><br />    6<br /><br /><br />    7<br /><br /><br />    8<br /><br /><br />    9<br /><br /><br />    10<br /><br /><br />    <a id="Link"></a>    錨點連結點11<br /><br /><br />    12<br /><br /><br />    13<br /><br /><br />    14<br /><br /><br />    15<br /><br /><br />    </div>    </form></body></html>

好了，現在我們輸入未指定錨點#連結的網址看看Test2.aspx中數字11的位置
http://localhost/Test/Test2.aspx，會發現數字11的位置在瀏覽器最下方。

現在再透過剛建立的Test.aspx上的HyperLink連結至Test2.aspx看看有何不同。HyperLink的超連結網址為http://localhost/Test/Test2.aspx#Link，數字11的位置可以完整看見了，這就是錨點的用途很簡易實現。

DropDownList資料繫結後加入"請選擇"靜態項目

2010-03-16T21:13:00.001+08:00

在Asp.Net的DropDownList控制項中，除了可以使用資料繫結(DataBind)的方式，也可使用靜態方式建立選項項目，亦可兩者同時建立。我們不用CodeBehind的寫法直接使用滑鼠完成DropDownList同時建立動態與靜態項目，一個很基礎又很實用的技巧記錄如下。

首先必須將DropListBox中的AppendDataBoundItems屬性設定為True，其功用如下方說明所示：將資料繫結項目附加至靜態宣告的清單項目。原來Vistual Studio都幫我們預先做好了，只要設定為Ture就可以。

接著將靜態項目加入DropDownList中，方法如下圖：

完成後的程式碼如下：
<asp:DropDownList ID="DropDownList" runat="server" DataSourceID="SqlDataSource" DataTextField="Test1" DataValueField="Test2" AppendDataBoundItems="True" >
<asp:ListItem Value="0">請選擇</asp:ListItem>
</asp:DropDownList>

<asp:SqlDataSource ID="SqlDataSource" runat="server" ConnectionString="<%$ ConnectionStrings:TestConnectionString %>"
SelectCommand="Select * From Test">
</asp:SqlDataSource>

Class類別中的Response、Server、Request未宣告解決方法(使用HttpContext.Current屬性)

2010-03-16T20:38:00.001+08:00

對於需要重複使用的程式碼，我們通常可以寫在Asp.Net的Public Class類別中，再到WebForm中呼叫。例如在Test.aspx.vb的Page Load中使用此段程式碼來判斷使用者是否已登入。

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load    If Server.HtmlEncode(Request.Cookies("UserInfo")("Login")) = True Then        Response.Redirect("Default.aspx")    Else        Response.Redirect("Login.aspx")    End IfEnd Sub

我們需要在每一個頁面都先進行使用者是否登入的判斷，因此將此區段程式碼取出寫在Public Class類別中提供給每個頁面呼叫。

在Asp.Net中建立一個名為Class1.vb的類別，接著把上面的程式碼貼入Public Sub中會發現如下圖畫面中的錯誤：

在Class1.vb中出現Server、Request、Response皆未宣告的錯誤訊息。

因為Server、Request、Response的預設值是Page，即Page.Server、Page.Request、Page.Response。也就是說Page.Response的返回值是當前頁面的值，而在Class1.vb類別中無法得知當前頁面的值為何。

因此需要透過Http從來源頁面中傳遞告知當前頁面為何，我們在每個錯誤訊息前面加上HttpContext.Current屬性：

Imports Microsoft.VisualBasic Public Class Class1    Public Sub Get_Cookie()        If HttpContext.Current.Server.HtmlEncode _        (HttpContext.Current.Request.Cookies("UserInfo")("Login")) = True Then            HttpContext.Current.Response.Redirect("Default.aspx")        Else            HttpContext.Current.Response.Redirect("Login.aspx")        End If    End SubEnd Class

最後，將Test.aspx.vb的Page_Load改為Call呼叫的方式來使用Class1.vb類別

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load    Dim Class1 As New Class1    Call Class1.Get_Cookie()End Sub

Alert視窗確認後Response.Redirect轉跳頁面的替代方法(含ScriptManager Ajax頁面轉跳方法)

2010-03-10T21:00:00.002+08:00

在Asp.net中，需要在操作例如送出動作時，先彈出確認視窗之後轉跳到指定頁面的功能其實是非常常見的。此功能的實作算是非常基礎的，很多剛開始嘗試寫Asp.Net的人直覺寫法是一段JavaScript語法加上Response.Redirect來實現：
Response.Write "<script >alert('更新成功！');</script>"
Response.Redirect("Default.aspx")

此種直覺的寫法在實際執行時會發現，Alert的警告視窗不出現就直接轉跳頁面到Default.aspx去了。我也寫過這種無法正確執行的程式碼，因而誤以為自己語法寫錯了。Alert視窗呢？回頭仔細檢查語法發現並沒有寫錯，為何不顯示Alert呢？

這是因為Response.Redirect是在未送出HttpHead前便執行了，而JavaScript又是需要在Client端才能Run，也就是說用了Response.Redirect在返回Client端以前頁面就已經被轉向至Default.aspx，那麼原本頁面的Alert便無法執行了。

瞭解原因後，就可以使用其它方法來替代Response.Redirect來實現轉跳的功能。在JavaScript語法中本身已有頁面轉跳的功能語法，因此我們將上面原本無法正確執行的兩行程式碼合併為一行：
Response.Write("<script>alert('修改成功!'); location.href='Default.aspx'; </script>")

直接在Alert後使用location.href=』轉跳網址...』，如此便可避免因頁面已轉跳無法將JavaScript返回Client端執行的問題。

另外一種情況為在頁面中使用了ScriptManager來實現Ajax的頁面。含有Ajax功能的頁面若使用上述方法來轉跳頁面，會發現Alert視窗也無法正確顯示出來，需改為下列的程式碼：
ScriptManager.RegisterStartupScript(Me, Me.GetType(), "alert", "alert('修改成功!'); location.href='Default.aspx';", True)

RegisterStartupScript類似Response.Write功能相仿，多了的Type與Key的參數。實際在顯示畫面的差別為，使用Response.Write時彈出的Alert視窗後面的頁面是空白的看不到任何頁面內容：

使用RegisterStartupScript時彈出的Alert視窗後面的頁面內容是可見的：

補充：
不含ScriptManager Ajax功能頁面的RegisterStartupScript寫法：
Page.ClientScript.RegisterStartupScript(Me.GetType(), "Test", "<script>alert('修改成功!');location.href='Default.aspx';</script>")

HyperLink使用Eval繫結資料庫傳遞QueryString值

2010-03-09T21:50:00.001+08:00

要實作的功能為網站首頁最新公告欄位，我們想要透過點擊公告主題來進入詳情頁面(PostDetail.aspx)，如下圖：

紅框處使用HyperLink來繫結公告主題，而HyperLink的NavigateUrl屬性我們要連結至詳情頁面(PostDetail.aspx)並使用QueryString傳值的方式來傳遞公告編號至詳情頁面。

若是屬於GridView中的HyperLink其傳遞QueryString的寫法是：PostDetail.aspx?公告編號={0}，其中{0}便是繫結了資料庫的公告編號，GridView等於自動幫你繫結好了。那麼，若是使用單獨的HyperLink控制項，可以使用Eval繫結寫法的方式來傳遞QueryString值。

其寫法如下：
<asp:HyperLink ID="HyperLink" runat="server"
NavigateUrl='<%# "PostDetail.aspx?PostID=" & Eval("公告編號") %>' >
<%# Eval("主題") %></asp:HyperLink>

※ 前提是別忘了先將欲繫結的資料欄位Select出來。

GridView中使用CommandArgument取得Button按哪一列(ListView同樣適用)

2010-02-26T22:14:00.001+08:00

在Asp.net中Button有個非常好使用的屬性：CommandArgument
MSDN對CommandArgument的解釋是：取得或設定選擇性 (Optional) 參數，與相關的 CommandName 一起傳遞至 Command 事件。
配合GridView、ListView使用起來可以實現判斷點擊Button是哪一列的功能。

要實現判斷按了哪一列有許多種不同作法，使用Button的CommandArgument屬性只是其中之一，但是我個人覺得最方便也最直覺的設定方法。

在 Visturl Studio 中可以使用滑鼠點擊方式來設定CommandArgument的繫結，方式如下：

此例在GridView中使用ButtonField設置了刪除按鈕，接著我們先將其轉換為TemplateField模式以利我們後續自定一些設定。

接著點擊GridView視覺化視窗中的小箭頭 > 進入編輯樣板，找到欲設定的刪除按鈕後，再點擊小箭頭 > 編輯DataBinding。

重要設定在此：在DataBindings設定視窗中，要選擇CommandArgument來作資料繫結的動作。接著選取欄位繫結(F)下拉選取欲繫結的選項，通常必須選擇作為等下要設定為SQL Delete 語法 Where 條件的選項。(若一開始無法選擇欄位繫結，點擊下方重新整理結構描述後即可)

設定完成後，GridView中刪除按鈕便會多了CommandArgument='<%# Eval("拜訪編號") %>'這行程式碼。

<asp:TemplateField ShowHeader="False">     <ItemTemplate>        <asp:Button ID="Button2" runat="server" CausesValidation="False"             CommandName="Delete_VI" Text="刪除"             OnClientClick = "if (confirm('您確定要刪除嗎?')==false) {return false;}"             CommandArgument='<%# Eval("拜訪編號") %>' />     </ItemTemplate></asp:TemplateField>

最後在aspx.vb中以CodeBehind方式撰寫SQL的Delete程式碼：
由於GridView中可能不只存在一個按鈕，因此必須先在GridView_RowCommand事件中先行判斷點擊的是刪除按鈕，之後才接著執行刪除的SQL動作。

Protected Sub GridView_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles GridView.RowCommand        If e.CommandName = "Delete_VI" Then            Dim strSQL As String            Dim Cmd As SqlCommand             Try                strSQL = "Delete 拜訪目的 Where 拜訪編號=@拜訪編號 "                 Cmd = New SqlCommand(strSQL, conn)                 Cmd.Parameters.Add(New SqlParameter("@拜訪編號", SqlDbType.Int))                Cmd.Parameters("@拜訪編號").Value = e.CommandArgument                Cmd.Connection.Open()                Cmd.ExecuteNonQuery()                Cmd.Cancel()                Cmd.Connection.Close()                conn.Dispose()                 VI_GridView.DataBind()            Catch ex As Exception                Response.Write(ex.Message)            End Try        End If    End Sub

其中，在SQL的Where條件使用了e.CommandArgument來取得繫結在CommandArgument上的資料作為刪除條件，即可實現在GridView刪除點擊那一列的功能。

補充：
在ListView中使用CommandArgument實現判斷Button點擊哪一列功能與GridView設定相同。唯一不同之處是ListView將Button的CommandName 傳遞至ItemCommand中，因此我們只需要將e.CommandArgument改寫在ItemCommand事件中即可。

CodeBehind方式設定GridView欄寬、置中

2010-02-25T21:17:00.001+08:00

使用GridView中內建的編輯功能預設是沒有設定欄寬的，因此會造成編輯時的TextBox將欄位撐開的問題：

在GridView的RowDataBound事件中以CodeBehind設定欄位寬度與文字置中：

Protected Sub GridView_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GridView.RowDataBound        '設定欄位寬度  GridView.Columns(1).ItemStyle.Width = 80        GridView.Columns(1).ControlStyle.Width = 80         '設定文字置中   GridView.Columns(1).ItemStyle.HorizontalAlign = HorizontalAlign.Center    End Sub

ItemStyle.Width：普通模式欄位寬度
ControlStyle.Width ：編輯模式欄位寬度

設定後結果：

補充：
以For迴圈方式設定GridView中所有欄位寬度

Protected Sub GridView_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GridView.RowDataBound        Dim i As Integer        For i As Integer = 0 To GridView.Columns.Count - 1            GridView.Columns(i).ItemStyle.Width = 80        NextEnd Sub

ListView中使用FindControl屬性找到按鈕

2010-02-25T20:43:00.002+08:00

在ListView中使用HiddenField來記錄每筆回應編號

<asp:HiddenField ID="RR_No" runat="server" value='<%# Eval("回應編號") %>' />

接著要在ListView中加入ImageButton來實作刪除文章回應的功能：

<asp:ImageButton ID="DelButton" runat="server" ImageUrl="~/images/icon_delete.gif"OnClientClick = "if (confirm('您確定要刪除嗎?')==false) {return false;}" CommandName="Delete_RR" />

重點就在如何在點擊刪除按鈕時，取得HiddenField中的回應編號，來做為刪除回應的SQL Where語法。在CodeBehind頁面ListView_ItemCommand事件中使用FindControl屬性來抓取HiddenField的值：

Protected Sub ListView_ItemCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.ListViewCommandEventArgs) Handles ListView.ItemCommand    If e.CommandName = "Delete_RR" Then         Dim strSQL As String        Dim Cmd As SqlCommand         '取得刪除哪一列        Dim dataItem As ListViewDataItem = CType(e.Item, ListViewDataItem)        Dim di As Integer = dataItem.DisplayIndex         Dim RRNO As String = CType(ListView.Items(di).FindControl("RR_No"), HiddenField).Value         'SQL刪除語法         '......    End IfEnd Sub

Asp.Net子母視窗 - 關閉子視窗後重整母視窗

2010-02-25T20:14:00.002+08:00

延續上一篇使用Windows.Open在Asp.net中使用Button彈出視窗(子母視窗功能)，若要實現關閉子視窗後重整母視窗的功能，我們可以在子視窗最後處理完畢事件的按鈕中 Ex：Button_Click 事件最後加入下列兩行Code：

'重整母視窗Response.Write("<script>opener.location.href='Test.aspx'</script>")'關閉子視窗Response.Write("<script>window.close();</script>")

需注意先執行重整母視窗後再執行關閉子視窗的Code，兩者順序不可顛倒。

使用Windows.Open在Asp.net中使用Button彈出視窗(子母視窗功能)

2010-02-24T20:21:00.005+08:00

JavaScript的windows.open語法可協助Asp.net的Button按鈕達到開啟彈出視窗的效果。如下圖：

在Button的Load事件中加入如下Code：

Protected Sub Button1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.LoadButton1.Attributes.Add("onclick", "window.open('Test2.aspx','','menubar=no,status=no,scrollbars=yes,top=100,left=200,toolbar=no,width=450,height=300');")End Sub

在Button加上Attributes屬性為Button增加(Add)Html屬性。接著使用JavaScript語法來設定開啟新視窗的連結、視窗位置、視窗大小等屬性。

"window.open('Test2.aspx','測試','menubar=no,status=no,scrollbars=yes,top=100,left=200,toolbar=no,width=450,height=300');"

參數解釋：
'Test2.aspx' - 欲開啟網頁的連結網址
'測試' – 視窗文件名稱
menubar=no - 是否顯示視窗選單按鈕
status=no - 是否顯示狀態欄位
scrollbars=yes - 是否顯示視窗捲軸
top=100,left=200 - 視窗起始位置
toolbar=no - 是否顯示工具列
width=450,height=300 - 視窗大小

2010/02/25補充：

使用Button的OnClientClick屬性也可達到同樣效果
Button1.OnClientClick = "window.open('Test2.aspx','','menubar=no,status=no,scrollbars=yes,top=100,left=200,toolbar=no,width=450,height=300');"

具有潛在危險Request.Form 的值已從用戶端偵測到(解決方法)

2010-02-23T21:03:00.003+08:00

在Asp.Net的網站操作中，會產生『具有潛在危險 Request.Form 的值已從用戶端偵測到』此錯誤訊息之原因，通常是在PostBack後系統偵測到頁面中存在某些文字輸入欄位如TextBox、Html編輯器(如FckEditor)等文字內容中存在Html語法，因而判斷為惡意程式碼，如此來避免駭客的惡意攻擊。

此防禦功能在Asp.Net中預設是開啟的，可以透過在頁面的Page指示詞中加入 validateRequest="False" 來關閉它。即可避免資料送出後系統將Html語法判斷為惡意程式碼。

Ex：
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Test.aspx.vb" Inherits="Test" validateRequest="False" %>

另一種關閉方式是透過 web.config 設定檔來達到整個網站皆關閉防禦功能的效果。但是非常不建議直接在web.config 設定檔中作關閉的動作，這樣對系統的登入驗證頁面來說等於開了窗，非常危險。

web.config 設定檔的關閉方法：
<system.web>
<pages validateRequest="False" />
</system.web>

Asp.Net在SQL Server中使用Between在指定範圍區間中查詢

2010-02-22T22:29:00.001+08:00

今天實作一個功能，必須可自行設定區間來判斷客戶等級的需求。為了實現此功能作了一個簡易的測試頁面，記錄如下。

首先需要在SQL Server資料庫中建立一個『客戶級別』Table，其內容如下圖：

可以看出其Range分為三等級，各自指定了最小值、最大值。

接著便建立一個簡易的測試頁面來測試如何使用T-SQL的Between語法來達到輸入指定數值而抓取數值所落在的級別為何。
測試畫面與程式如下：

Test2.aspx

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Test.aspx.vb" Inherits="Test" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"><head runat="server">    <title></title></head><body>    <form id="form1" runat="server">    <div>        <asp:Label ID="Label" runat="server" Text="Label"></asp:Label>        <br /><br />        輸入範圍：<br />        <asp:TextBox ID="TextBox" runat="server"></asp:TextBox>        <br /><br />        <asp:Button ID="Button1" runat="server" Text="測試" />    </div>    </form></body></html>

Test2.aspx.vb

Imports System.Data.SqlClientImports System.Data Partial Class Test    Inherits System.Web.UI.Page    Dim myMsg As New AlertMessage    Dim conn As SqlConnection     Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load        conn = New SqlConnection(ConfigurationManager.ConnectionStrings("TestConnectionString").ConnectionString)    End Sub     Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click        Dim dr As SqlDataReader        Dim strSQL As String         conn.Open()         '以TextBox欄位輸入的數值作為判斷條件，來比對最小值與最大值        strSQL = "Select 級別 From 客戶級別 Where " & TextBox.Text & " Between 最小值 And 最大值 "        Dim Cmd As New SqlCommand(strSQL, conn)         dr = Cmd.ExecuteReader        If dr.Read <> False Then            Label.Text = dr(0)        End If         Cmd.Cancel()        dr.Close()        conn.Close()        conn.Dispose()    End SubEnd Class

此隻程式中，使用T-SQL的Between來作為使用者輸入至TextBox值的範圍設定，如此即可從資料庫中Select到落在此Range範圍中的級別為何。
Select 級別 From 客戶級別 Where " & TextBox.Text & " Between 最小值 And 最大值

執行結果如下：

Asp.net中使用MD5碼將使用者密碼加密，簡易登入驗證測試

2010-02-21T01:18:00.004+08:00

對於一個網站來說，保護使用者資料是最基本的要求。所謂MD5碼是一種經過加密過後的編碼，請參考：維基百科：MD5。

一般看到可解讀的密碼如123稱為明碼，經過MD5編碼過後看到的123會變成：202cb962ac59075b964b07152d234b70 此種顯示方式。需注意的是經過MD5編碼過後無法解碼，也就是說非經過正常方法是無法反譯的。

其實無法解碼也沒什麼問題的，只要在驗證使用者登入時同樣使用MD5編碼將密碼欄位輸入的字元編碼過後再與資料庫進行比對即可。在Asp.Net中我寫個簡單的登入頁面作測試，其過程與結果如下：

首先在Asp.Net中使用FormsAuthentication.HashPasswordForStoringInConfigFile 方法建立 MD5 的 Public Function：

'MD5公用函式    Public Function MD5(ByVal str As String, ByVal code As Integer) As String        If code = 16 Then            Return System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(str, "MD5").ToLower().Substring(8, 16)        End If        If code = 32 Then            Return System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(str, "MD5").ToLower()        End If        Return "00000000000000000000000000000000"    End Function

接著製作一個簡易的登入功能頁面來呼叫MD5函式作為測試用，畫面如下。一個新增按鈕用來新增燈入帳密至資料庫；一個登入按鈕來驗證使用者登入正確與否：

Default.aspx

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default2.aspx.vb" Inherits="Default2" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"><head runat="server">    <title></title></head><body>    <form id="form1" runat="server">    <div>    帳號：<asp:TextBox ID="ID" runat="server"></asp:TextBox>    <br />    密碼：<asp:TextBox ID="PW" runat="server"></asp:TextBox>    <br /><br />    <asp:Button ID="Login" runat="server" Text="登入" />    &nbsp;<asp:Button ID="AddNew" runat="server" Text="新增" />    </div>    </form></body></html>

Default.aspx.vb

Imports System.Data.SqlClientImports System.Data Partial Class Default2    Inherits System.Web.UI.Page    Dim conn As SqlConnection     Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load        conn = New SqlConnection(ConfigurationManager.ConnectionStrings("TestConnectionString").ConnectionString)    End Sub     'MD5公用函式    Public Function MD5(ByVal str As String, ByVal code As Integer) As String        If code = 16 Then            Return System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(str, "MD5").ToLower().Substring(8, 16)        End If        If code = 32 Then            Return System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(str, "MD5").ToLower()        End If        Return "00000000000000000000000000000000"    End Function     '新增帳號    Protected Sub AddNew_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles AddNew.Click        Dim strSQL As String        Dim Cmd As SqlCommand         Try            strSQL = " Insert Into Login(ID,PW) "            strSQL += "Values(@ID,@PW) "             Cmd = New SqlCommand(strSQL, conn)             Cmd.Parameters.Add(New SqlParameter("@ID", SqlDbType.VarChar))            Cmd.Parameters("@ID").Value = ID.Text            Cmd.Parameters.Add(New SqlParameter("@PW", SqlDbType.VarChar))            Cmd.Parameters("@PW").Value = MD5(PW.Text, 32)             Cmd.Connection.Open()            Cmd.ExecuteNonQuery()            Cmd.Cancel()            Cmd.Connection.Close()            conn.Dispose()             Response.Write("新增成功！<br><br>")        Catch ex As Exception            Response.Write("新增失敗！<br><br>")        End Try    End Sub     '登入按鈕    Protected Sub Login_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Login.Click        Dim strSQL As String        Dim dr As SqlDataReader         strSQL = "Select ID,PW From Login "         Dim Cmd As New SqlCommand(strSQL, conn)        conn.Open()        dr = Cmd.ExecuteReader         If dr.Read <> False Then            '如果帳密都相符合            If ID.Text = dr("ID") And MD5(PW.Text, 32) = dr("PW") Then                Response.Write("登入成功！<br><br>")            Else                Response.Write("帳密不符！<br><br>")            End If        Else            Response.Write("無帳號存在！<br><br>")        End If         Cmd.Cancel()        dr.Close()        conn.Close()        conn.Dispose()    End SubEnd Class

我們來新增一個登入帳號為abc、密碼123：

新增成功後，在資料庫中看到的密碼欄位便會以MD5編碼方式將123編碼為如下圖的形式：

現在可以進行登入測試了。因為在Default.aspx.vb中使用呼叫MD5函式來進行資料比對，會先將PW.Text欄位字元轉為MD5編碼
If ID.Text = dr("ID") And MD5(PW.Text, 32) = dr("PW") Then
Response.Write("登入成功！<br><br>")
Else
Response.Write("帳密不符！<br><br>")
End If

試著KeyIn錯誤的密碼，系統回應帳密不符

輸入剛才新增的帳密abc、123，即可登入成功。
證明MD5已經過編碼後與資料庫欄位進行比對成功了！

如何在aspx的page中取得UserControl的值

2010-01-29T22:37:00.004+08:00

UserControl非常適合用代替重複性高的物件，使用UserControl可以讓程式碼更簡潔，甚至在日後修改物件內容時能達到一次性的修改。我們也可以將UserControl中物件的值取出交給aspx的page頁面來使用。

如下圖，我們使用一個UserControl來建立五個DropDownList，最後透過點擊Button按鈕來取得UserControl中的DropDownList的SelectedValue值，並對應至各個Label中。

首先，建立好所需的UserControl控制項：

WebUserControl.ascx ：

<%@ Control Language="VB" AutoEventWireup="false" CodeFile="WebUserControl.ascx.vb" Inherits="WebUserControl" %>
<asp:DropDownList ID="DropDownList" runat="server">
<asp:ListItem>選項1</asp:ListItem>
<asp:ListItem>選項2</asp:ListItem>
<asp:ListItem>選項3</asp:ListItem>
<asp:ListItem>選項4</asp:ListItem>
<asp:ListItem>選項5</asp:ListItem>
</asp:DropDownList>

WebUserControl.ascx.vb：
此隻程式的重點，透過Public屬性達到跨網頁張貼 (Cross-Page Posting)

Partial Class WebUserControl
Inherits System.Web.UI.UserControl
'使用公開屬性將DropDownList.SelectedValue指定給GetDL()變數
Public ReadOnly Property GetDL() As String
Get
GetDL = DropDownList.SelectedValue
End Get
End Property
End Class

Default.aspx：
利用UserControl建立五個控制項DropDown1~5

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<%@ Register TagPrefix="Test_UC" TagName="DropDown" src="WebUserControl.ascx"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title></title>
</head>
<body>
<form id="form1" runat="server">
<div>
<Test_UC:DropDown  id="DropDown1" runat="server" />
<asp:Label ID="Label1" runat="server" Text="Label"></asp:Label><br />
<Test_UC:DropDown  id="DropDown2" runat="server" />
<asp:Label ID="Label2" runat="server" Text="Label"></asp:Label><br />
<Test_UC:DropDown  id="DropDown3" runat="server" />
<asp:Label ID="Label3" runat="server" Text="Label"></asp:Label><br />
<Test_UC:DropDown  id="DropDown4" runat="server" />
<asp:Label ID="Label4" runat="server" Text="Label"></asp:Label><br />
<Test_UC:DropDown  id="DropDown5" runat="server" />
<asp:Label ID="Label5" runat="server" Text="Label"></asp:Label><br />
<asp:Button ID="Button1" runat="server" Text="Button" />
</div>
</form>
</body>
</html>

Default.aspx.vb：
在Button1_Click撰寫程式，將Label1~5對應至DropDown1~5的UserControl，並使用Public屬性GetDL取得各個UserControl的DropDownList.SelectedValue

Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = DropDown1.GetDL()
Label2.Text = DropDown2.GetDL()
Label3.Text = DropDown3.GetDL()
Label4.Text = DropDown4.GetDL()
Label5.Text = DropDown5.GetDL()
End Sub
End Class

最後程式執行的結果如下：

一次性儲存GridView中TextBox欄位文字

2010-01-29T21:46:00.002+08:00

在GridView中將欄位轉為TemplateField的TextBox的輸入模式，非常適合資料欄位少且資料比數較固定的資料表中使用。此方法也可以一次性的將所有欄位透過For迴圈在一個儲存按鈕中一次性的Update GridView中所有TextBox欄位資料。

如下圖，一個報表分類資料表，使用GridView來修改報表名稱的欄位。

我們使用一個儲存按鈕(SaveAll)來一次更新全部的報表名稱欄位內容。

aspx程式碼：

<asp:GridView ID="FormSortGV" runat="server" AutoGenerateColumns="False" 
CellPadding="4" DataKeyNames="報表分類編號" DataSourceID="FormSortSQL" 
ForeColor="#333333" GridLines="None">
<RowStyle BackColor="#EFF3FB" />
<Columns>
<asp:BoundField DataField="報表分類編號" HeaderText="編號" ReadOnly="True" 
SortExpression="報表分類編號" />
<asp:TemplateField HeaderText="報表名稱" SortExpression="報表名稱">
<ItemTemplate>
<asp:TextBox ID="TextBox1" runat="server" Text='<%# Bind("報表名稱") %>'></asp:TextBox>
</ItemTemplate>
</asp:TemplateField>
</Columns>
<FooterStyle BackColor="#507CD1" Font-Bold="True" ForeColor="White" />
<PagerStyle BackColor="#2461BF" ForeColor="White" HorizontalAlign="Center" />
<SelectedRowStyle BackColor="#D1DDF1" Font-Bold="True" ForeColor="#333333" />
<HeaderStyle BackColor="#507CD1" Font-Bold="True" ForeColor="White" />
<EditRowStyle BackColor="#2461BF" />
<AlternatingRowStyle BackColor="White" />
</asp:GridView>
<asp:SqlDataSource ID="FormSortSQL" runat="server" 
ConnectionString="<%$ ConnectionStrings:ReportManageConnectionString %>" 
OldValuesParameterFormatString="original_{0}" 
SelectCommand="SELECT [報表分類編號], [報表名稱] FROM [報表分類]" 
UpdateCommand="UPDATE [報表分類] SET [報表名稱] = @報表名稱 WHERE [報表分類編號] = @original_報表分類編號">
<DeleteParameters>
<asp:Parameter Name="original_報表分類編號" Type="String" />
</DeleteParameters>
<UpdateParameters>
<asp:Parameter Name="報表名稱" Type="String" />
<asp:Parameter Name="original_報表分類編號" Type="String" />
</UpdateParameters>
<InsertParameters>
<asp:Parameter Name="報表分類編號" Type="String" />
<asp:Parameter Name="報表名稱" Type="String" />
</InsertParameters>
</asp:SqlDataSource>
<asp:Button ID="SaveAll" runat="server" Text="儲存" />

.vb的儲存按鈕SaveAll Click 事件：

Protected Sub SaveAll_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles SaveAll.Click
Dim i As Integer
For i = 0 To FormSortGV.Rows.Count - 1
FormSortGV.UpdateRow(i, False)
Next
End Sub

Excel VBA - 使用For迴圈賦予工作表(Sheets)表單控制項物件屬性

2010-01-27T20:24:00.004+08:00

與先前文章：Excel VBA - 使用For迴圈指定控制項物件屬性不同的是，此篇說明的控制項為工作表(Sheets)的表單控制項而非UserForm。即如何使用迴圈一次性的在工作表中的賦予控制項物件屬性。

我們以ComboBox控制項物件為例：
假設我們需要在Sheet1表單中設置40個下拉選單，每個下拉選單中含有10個選項提供使用者選取，相信大家都知道使用迴圈來實現這個需求是最適合不過的。但如何在For迴圈中利用變數來指定控制項物件屬性，才是此需求最關鍵所在。

如同在UserForm中我們使用Me.Controls來使用變數指定物件的名稱一樣，在Sheets中是使用OLEObjects方法來達成此需求。OLEObjects方法在微軟文件中的解釋：

OLEObjects 方法

特定傳回代表圖表或工作表上單個 OLE 物件 (一個 OLEObject 物件) 或所有 OLE 物件集合 (一個 OLEObjects 集合) 的物件。唯讀。expression.OLEObjects(Index)
expression 必選。傳回 Chart 或 Worksheet 物件的運算式。
Index 選擇性的 Variant。OLE 物件的名稱或編號。
範例
此範例建立 Sheet1 上 OLE 物件的連結型態清單。該清單將出現在此範例建立的新工作表中。

Set newSheet = Worksheets.Add      
i = 2       
newSheet.Range("A1").Value = "Name"       
newSheet.Range("B1").Value = "Link Type"       
For Each obj In Worksheets("Sheet1").OLEObjects       
    newSheet.Cells(i, 1).Value = obj.Name       
    If obj.OLEType = xlOLELink Then       
        newSheet.Cells(i, 2) = "Linked"       
    Else       
        newSheet.Cells(i, 2) = "Embedded"       
    End If       
    i = i + 1       
Next

回到範例，我們使用OLEObjects方法來設置40個下拉選單，每個下拉選單中含有10個選項提供使用者選取：

Private Sub Worksheet_Activate()
Dim i As Integer
For i = 1 To 40
Sheet1.OLEObjects("Combobox" & i).List = Array("項目1", "項目2", "項目3", "項目4", "項目5", "項目6", "項目7", "項目8", "項目9", "項目10")
Next
End Sub

如此在Sheet1啟動後，即在Combobox1~40中各有項目1~10的選項可供選取了。

SQL資料庫文字資料型別的選用方法

2010-01-24T21:41:00.003+08:00

最近開始接手設計較完整且複雜架構的系統，因此開始必需考慮資料存取效率的問題，除了資料庫的正規化外，會影響到存取效率的原因之一為資料型別的選用。

在SQL中若要存取文字型態的資料，共有四種資料型別可以選擇：

資料型別	資料長度	中文字所佔位元數
char(10)	特定	2
nchar(10)	特定	1
varchar(10)	不特定	2
nvarchar(10)	不特定	1

根據上表可以簡單的方式來判斷選擇資料欄位的型別
若要存取的資料是固定不變長度的欄位且無中文字，例如會員編號(5位元)，其資料型別使用 char(5)為最適選擇；若要存取的資料是不特定長度且含中文字，例如報表內容(位元長度不特定)，其資料型別使用nvarchar(max)為最識。

結論：
1、判斷資料長度是否特定，不特定長度選用含var的資料型別varchar、nvarchar
2、含有中文字的內容欄位選用n開頭的資料行型別nchar、nvarchar

Excel VBA - 讓UserForm關閉按鈕(X)失效

2010-01-21T20:47:00.001+08:00

由於要在開啟時實作一個登入驗證的UserForm視窗，因此想要讓右上角的關閉按鈕(X)的功能失效，來達到不通過驗證只能停在登入視窗無法進行任何其它的動作。

在網路上找到一個很簡單的設定方式，利用UserForm的QueryClose事件就可以辦到。

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode <> 1 Then Cancel = 1
End Sub

開啟Asp.Net網頁，出現「無法存取 IIS Metabase」

2010-01-19T20:23:00.001+08:00

昨日在重灌作業系統後，忘記先安裝 IIS 便直接安裝VS2008，導致後來在 IIS 架設Asp.Net網頁後一開啟首頁便出現『無法存取IIS Metabase』的錯誤畫面。

透過網路上查到的解決方法為針對IIS重新註冊Asp.Net，方法如下：
程式集→Microsoft Vistual Studio 2008→Vistual Studio Tools→Visual Studio 2008 命令提示字元

接著直接在DOS視窗中輸入 aspnet_regiis –i 指令
看到如下圖完成安裝後，即可成功顯示Asp.Net網頁

在預設的設定下 SQL Server 不允許遠端連接而引起此失敗

2010-01-18T22:50:00.001+08:00

在VS2008資料庫總管當中加入資料時，發生錯誤訊息為：
Sqlcmd:錯誤：Microsoft SQL Native Client：建立伺服器的連接時發生錯誤。連接到 SQL Server 2005 時，可能因為在預設的設定下 SQL Server 不允許遠端連接而引起此失敗。

解決此問題需檢查3個部分的設定
一、啟動SQL Server的遠端連接
在程式集中開啟SQL Server 介面區組態，進入服務和連接的介面組態

在遠端連接項目選擇使用TCP/IP和具名管道

二、啟動SQL Server Brower
在SQL Server Browser項目中，將啟動類型選擇自動，並點擊啟動按鈕將此功能啟用。

經過以上兩個設定，應該都可以成功連接了。若還是出現連接錯誤，可能是被防火牆擋住，嘗試先將你的Windows系統 or Server 防火牆、防毒軟體都先關閉再試試看能否連接成功。確定是防火牆問題的話將SQL設為例外吧
設定方法如下：
參考微軟技術支援：http://support.microsoft.com/?id=914277

在 Windows 防火牆中建立 SQL Server 2005 的例外

如果要在 [Windows 防火牆] 中建立 SQL Server 2005 的例外，請依照下列步驟執行：

在 [Windows 防火牆] 中，按一下 [例外] 索引標籤，然後按一下 [新增程式]。
在 [新增程式] 視窗中，按一下 [瀏覽]。
按一下 C:\Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\Binn\sqlservr.exe 可執行程式，按一下 [開啟]，然後按一下 [確定]。
注意視 SQL Server 2005 的安裝位置而定，路徑可能有所不同。MSSQL.1 是您在先前程序的步驟 3 中取得執行個體識別碼的預留位置。
針對每個需要例外的 SQL Server 2005 執行個體，重複執行步驟 1 至 3。

在 Windows 防火牆中建立 SQL Server Browser 服務的例外

如果要在 [Windows 防火牆] 中建立 SQL Server Browser 服務的例外，請依照下列步驟執行：

在 [Windows 防火牆] 中，按一下 [例外] 索引標籤，然後按一下 [新增程式]。
在 [新增程式] 視窗中，按一下 [瀏覽]。
按一下 C:\Program Files\Microsoft SQL Server\90\Shared\sqlbrowser.exe 可執行程式，按一下 [開啟]，然後按一下 [確定]。
注意視 SQL Server 2005 的安裝位置而定，路徑可能有所不同。

Excel VBA - ADO連接設密碼的Access資料庫

2010-01-15T20:42:00.002+08:00

要在VBA中使Excel連線到有加過密碼的Access時，勢必也必須在連結語法ADODB.Connection中加入通過密碼的程式碼，如下：

provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & ThisWorkbook.Path & "\database.MDB;Jet OLEDB:Database Password=YourPW"

Access如何設定密碼請參考：Access - 設定資料庫密碼(幫Access上鎖)

Access - 設定資料庫密碼(幫Access上鎖)

2010-01-15T20:30:00.001+08:00

Acces資料庫的用途雖然較常使用在個人的電腦中，但基本的保護措施還是不可少的，若因為自己臨時離開座位也可以防止有人人士偷窺你的重要資料。

可以透過Access內建的密碼功能，替資料庫設定一組自訂密碼來為Access上鎖
在開啟時就可以看到要求要輸入密碼的驗證了

設定方法：
工具→安全性→設定資料庫密碼

不過你應該會看到如下圖的錯誤訊息視窗

按照訊息的提示，先把資料庫關閉，從檔案功能表開啟舊檔的方式來開啟檔案
，並選擇以獨佔式開啟來打開檔案

由於資料庫有連線共用的可能性，因此這步驟只是要確定是獨立的操作使用下設定密碼。
最後再執行一次設定資料庫密碼即可。

Excel VBA - 實作Listbox項目增減功能

2010-01-14T23:09:00.002+08:00

在Excel VBA中使用UserForm製作兩個ListBox來達到新增、刪除項目的功能
實作的功能如下圖：

主要功能：
來源與目的ListBox選項皆有多選的功能，移至目的欄位的項目會在來源欄位中同步移除，免除使用者增加了重複的項目。

'表單啟用時
Private Sub UserForm_Activate()
'Reset項目
ListBox.Clear
Dim i As Integer
'製作10個ListBox項目
For i = 1 To 10
ListBox.AddItem "項目" & i
Next
End Sub
'增加單項(>)
Private Sub InButton_Click()
'迴圈範圍List(0)~List(最後一筆)
For i = 0 To ListBox.ListCount - 1
'若項目被選中
If ListBox.Selected(i) = True Then
'項目增加至目的欄位(ResultList)
ResultList.AddItem ListBox.List(i)
End If
Next
'來源欄位(ListBox)的項目數量每次減1
For i = ListBox.ListCount - 1 To 0 Step -1
'若項目被選中
If ListBox.Selected(i) = True Then
'移除此筆來源欄位項目
ListBox.RemoveItem (i)
End If
Next
End Sub
'其他按鈕的邏輯相同，不再作解釋
'增加全部按鈕(>>)
Private Sub AllInButton_Click()
For i = 0 To ListBox.ListCount - 1
ResultList.AddItem ListBox.List(i)
Next
For i = ResultList.ListCount - 1 To 0 Step -1
ListBox.RemoveItem (i)
Next
End Sub
'減少單項(<)
Private Sub OutButton_Click()
For i = 0 To ResultList.ListCount - 1
If ResultList.Selected(i) = True Then
ListBox.AddItem ResultList.List(i)
End If
Next
For i = ResultList.ListCount - 1 To 0 Step -1
If ResultList.Selected(i) = True Then
ResultList.RemoveItem i
End If
Next
End Sub
'減少全部(<<)
Private Sub AllOutButton_Click()
For i = 0 To ResultList.ListCount - 1
ListBox.AddItem ResultList.List(i)
Next
For i = ResultList.ListCount - 1 To 0 Step -1
ResultList.RemoveItem (i)
Next
End Sub

Access - 重置自動編號欄位數值

2010-01-14T22:34:00.001+08:00

Access資料表中的欄位若有使用自動編號在經過多次的資料新增、刪除後
勢必已使自動編號數值處於不連號的狀態之下
尤其是在軟體開發人員平時所做的多次資料庫存取測試
在將成品交給客戶手中前，將自動編號的數值重置歸零絕對是必要的

在Access中已經內建此功能按鈕，不需去額外輸入T-SQL語法
點擊工具列→工具→資料庫公用程式→壓縮及修復資料庫
如下圖，點擊後檔案自動重啟進入資料表查看自動編號已經是處於完整的連號狀態了。

Excel VBA - WorkSheet新增、複製、刪除(不出現提示視窗)

2010-01-13T21:40:00.003+08:00

一、WorkSheet新增：

Sub TestAdd()
'新增工作表(無任何參數)
Worksheets.Add
'一次新增10個工作表
Worksheets.Add Count:=10
'新增工作表在sheet1之後
Worksheets.Add after:=Worksheets("sheet1")
'新增工作表在sheet1之前
Worksheets.Add before:=Worksheets("sheet1")
End Sub

二、WorkSheet複製：

Sub TestCopy()
'複製sheet1到sheet1之後
Worksheets("sheet1").Copy After:=Worksheets("sheet1")
'複製sheet1到sheet1之前
Worksheets("sheet1").Copy Before:=Worksheets("sheet1")
End Sub

三、WorkSheet刪除：
在Excel中手動操作刪除動作時，會出現下圖的警告視窗

在VBA中若要刪除工作表時，忽略此步驟需加入
Application.DisplayAlerts = False 程式碼來關閉顯示警告視窗

Sub TestDelete
'關閉警告視窗
Application.DisplayAlerts = False
'刪除作用中的工作表
ActiveSheet.Delete
'恢復警告視窗
Application.DisplayAlerts = True
End Sub