''' <summary> ''' ''' </summary> ''' <param name="sender"></param> ''' <param name="e"></param> ''' <remarks></remarks>
<form id="form1" runat="server">
<div>
<asp:Button ID="Poll" runat="server" Text="輪詢(Poll)" />
<asp:Button ID="bntWait" runat="server" Text="等待-單一表(WaitHandle)" />
<br />
<asp:Button ID="bntHandles" runat="server" Text="等待-兩資料表(WaitHandle) + MARS" />
<br />
<br />
<asp:GridView ID="gvOrders" runat="server" Caption="Orders">
</asp:GridView>
<asp:GridView ID="gvOrderDetails" runat="server" Caption="Order Details">
</asp:GridView>
</div>
</form>
Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration
Partial Class ADONET_Asyn
Inherits System.Web.UI.Page
'使用MARS
Dim conn As New SqlConnection(ConfigurationManager.ConnectionStrings("NorthwindConnectionString").ConnectionString)
Dim strSQL As String = "select top 5 Customers.CompanyName , Customers.ContactName , Orders.OrderID ,Orders.OrderDate , Orders.RequiredDate, Orders.ShippedDate from Orders, Customers where (Orders.CustomerID = Customers.CustomerID) order by Customers.CompanyName, Customers.ContactName"
Protected Sub Poll_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Poll.Click
Dim cmd As New SqlCommand
cmd.CommandText = strSQL
cmd.CommandType = CommandType.Text
cmd.Connection = conn
conn.Open()
'非同步結果
Dim asyncResult As IAsyncResult
'執行非同步
asyncResult = cmd.BeginExecuteReader
'非同步是否完成，不然停止1秒
While Not asyncResult.IsCompleted
System.Threading.Thread.Sleep(1000)
End While
Dim dr As SqlDataReader
'取回非同步資料
dr = cmd.EndExecuteReader(asyncResult)
gvOrders.DataSource = dr
gvOrders.DataBind()
conn.Close()
End Sub
Protected Sub bntWait_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bntWait.Click
Dim cmd As New SqlCommand
cmd.CommandText = strSQL
cmd.CommandType = CommandType.Text
cmd.Connection = conn
conn.Open()
Dim asyncResult As IAsyncResult
'等待碼
Dim WHandle As System.Threading.WaitHandle
Dim dr As SqlDataReader
asyncResult = cmd.BeginExecuteReader
'取得非同步等待碼
WHandle = asyncResult.AsyncWaitHandle
'WaitOne，等待完成
If WHandle.WaitOne = True Then
dr = cmd.EndExecuteReader(asyncResult)
gvOrders.DataSource = dr
gvOrders.DataBind()
conn.Close()
End If
End Sub
Protected Sub bntHandles_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bntHandles.Click
Dim cmd As New SqlCommand
cmd.CommandText = strSQL
cmd.CommandType = CommandType.Text
cmd.Connection = conn 'MARS
Dim odcmd As New SqlCommand
odcmd.CommandText = "select * from customers where companyName = 'Alfreds Futterkiste'"
odcmd.CommandType = CommandType.Text
odcmd.Connection = conn 'MARS
conn.Open() 'MARS: cmd, odcmd
'非同步處理
Dim orAsyncResult As IAsyncResult
Dim odAsyncResult As IAsyncResult
'等待碼陣列
Dim WHandles(1) As System.Threading.WaitHandle
Dim orDr As SqlDataReader
Dim odDr As SqlDataReader
'取得非同步結果
orAsyncResult = cmd.BeginExecuteReader
odAsyncResult = odcmd.BeginExecuteReader
'取得等待碼(WaitHandle)
WHandles(0) = orAsyncResult.AsyncWaitHandle
WHandles(1) = odAsyncResult.AsyncWaitHandle
'第一種：使用WaitAll
''等待全部「等待碼」完成
'System.Threading.WaitHandle.WaitAll(WHandles)
'orDr = cmd.EndExecuteReader(orAsyncResult)
'odDr = odcmd.EndExecuteReader(odAsyncResult)
'gvOrders.DataSource = orDr
'gvOrders.DataBind()
'gvOrderDetails.DataSource = odDr
'gvOrderDetails.DataBind()
'第二種：使用WaitAny
For i As Integer = 0 To 1
Dim WHIndex As Integer
WHIndex = System.Threading.WaitHandle.WaitAny(WHandles)
Select Case WHIndex
Case 0
orDr = cmd.EndExecuteReader(orAsyncResult)
gvOrders.DataSource = orDr
gvOrders.DataBind()
Case 1
odDr = odcmd.EndExecuteReader(odAsyncResult)
gvOrderDetails.DataSource = odDr
gvOrderDetails.DataBind()
End Select
Next
conn.Close()
End Sub
End Class
Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration
Partial Class GridView
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
Dim ddlconn As New SqlConnection(ConfigurationManager.ConnectionStrings("NorthwindConnectionString").ConnectionString)
Dim ddlcmd As New SqlCommand
ddlcmd.CommandText = "select distinct ContactTitle from customers"
ddlcmd.CommandType = CommandType.Text
ddlcmd.Connection = ddlconn
ddlcmd.Connection.Open()
Dim ddldr As SqlDataReader
ddldr = ddlcmd.ExecuteReader
ddlTitle.DataSource = ddldr
'顯示文字所對應資料庫的欄位
ddlTitle.DataTextField = "ContactTitle"
'欄位值所對應資料庫的欄位
ddlTitle.DataValueField = "ContactTitle"
ddlTitle.DataBind()
ddlcmd.Dispose()
ddlconn.Dispose()
End If
End Sub
Protected Sub ddlTitle_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlTitle.SelectedIndexChanged
'使用DataReader
Dim conn As New SqlConnection(ConfigurationManager.ConnectionStrings("NorthwindConnectionString").ConnectionString)
Dim cmd As New SqlCommand
cmd.CommandText = "select top 5 * from customers where ContactTitle=@ContactTitle"
cmd.CommandType = CommandType.Text
cmd.Connection = conn
'參數設定
Dim ContactParam As New SqlParameter
ContactParam.ParameterName = "@ContactTitle"
'需得選取的值
ContactParam.Value = ddlTitle.SelectedValue
cmd.Parameters.Add(ContactParam)
cmd.Connection.Open()
Dim dr As SqlDataReader
'CommandBehavior.CloseConnection，DataReader自動Close
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
'DataTable可把DataReader當成資料來源
'Dim drTodt As New DataTable
'drTodt.Load(dr)
'由DataTable傳回DataTableReader物件
'Dim dtTodr As DataTableReader
'dtTodr = drTodt.CreateDataReader
'gvDR.DataSource = drTodt
'gvDR.DataSource = dtTodr
gvDR.DataSource = dr
gvDR.DataBind()
'drTodt.Dispose()
'dtTodr.Close
cmd.Dispose()
conn.Dispose()
'使用DataTable
Dim dtconn As New SqlConnection(ConfigurationManager.ConnectionStrings("NorthwindConnectionString").ConnectionString)
Dim dtcmd As New SqlCommand
dtcmd.CommandText = "select top 5 * from customers where ContactTitle=@dtContactTitle order by customerid desc"
dtcmd.CommandType = CommandType.Text
dtcmd.Connection = dtconn
'參數設定
Dim dtContactParam As New SqlParameter
dtContactParam.ParameterName = "@dtContactTitle"
'取得選取值
dtContactParam.Value = ddlTitle.SelectedValue
dtcmd.Parameters.Add(dtContactParam)
Dim dap As New SqlDataAdapter
Dim dt As New DataTable
dap.SelectCommand = dtcmd
dap.Fill(dt)
gvDT.DataSource = dt.DefaultView
gvDT.DataBind()
dap.Dispose()
dtcmd.Dispose()
dtconn.Close()
End Sub
End Class
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<%@ Import Namespace="System.Configuration" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
'全域連線物件
'在連線字串中必須設定「MultipleActiveResultSets=True」Dim conn As New SqlConnection(ConfigurationManager.ConnectionStrings("NorthwindConnectionString").ConnectionString)
Protected Sub Page_Load(ByVal sender As Object, _
ByVal e As System.EventArgs)
Dim cmd As New SqlCommand
Dim OrdersReader As SqlDataReader
cmd.CommandText = _
" SELECT TOP 5 Customers.CompanyName, Customers.ContactName, " & _
" Orders.OrderID, Orders.OrderDate, " & _
" Orders.RequiredDate, Orders.ShippedDate " & _
" FROM Orders, Customers " & _
" WHERE Orders.CustomerID = Customers.CustomerID " & _
" ORDER BY Customers.CompanyName, Customers.ContactName "
cmd.CommandType = CommandType.Text
cmd.Connection = conn
conn.Open()
OrdersReader = cmd.ExecuteReader()
gvOrders.DataSource = OrdersReader
gvOrders.DataBind()
conn.Close()
End Sub
' RowDataBound事件處理常式
Protected Sub gvOrders_RowDataBound(ByVal sender As Object, _
ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs)
Dim OrderRecord As IDataRecord
Dim lblOrderDetail As Label
'從e(DataReader)取得現在連繫的記鍵
'轉換為IDataRecord interface
OrderRecord = CType(e.Row.DataItem, IDataRecord)
'從GridView物件找到Label控制項
'Label控制項在Order Details裡面
lblOrderDetail = CType(e.Row.FindControl("lblOrderDetail"), Label)
If OrderRecord Is Nothing Or lblOrderDetail Is Nothing Then
Return
End If
Dim cmd As New SqlCommand
Dim OrderDetailReader As SqlDataReader
cmd.CommandText = _
"SELECT Products.ProductName, [Order Details].UnitPrice, " & _
" [Order Details].Quantity, [Order Details].Discount " & _
" FROM [Order Details], Products " & _
" WHERE [Order Details].ProductID = Products.ProductID " & _
" AND [Order Details].OrderID = " + _
Convert.ToString(OrderRecord("OrderID"))
cmd.CommandType = CommandType.Text
'在連線字串中必須設定「MultipleActiveResultSets=True」
'MARS：Multiple Active Result Sets，多重作用結果集
'注意這裡，我們使用的是同一條SqlConnection來連線，也就是MARS作用所在
cmd.Connection = conn
OrderDetailReader = cmd.ExecuteReader()
While OrderDetailReader.Read()
lblOrderDetail.Text += OrderDetailReader(0).ToString() + "
"
End While
End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title>MARS範例</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:Label ID="lblCounter" runat="server">
<br />
<asp:GridView ID="gvOrders" runat="server" AutoGenerateColumns="False" OnRowDataBound="gvOrders_RowDataBound" Width="100%">
<Columns>
<asp:BoundField HeaderText="Company Name" DataField="CompanyName"></asp:BoundField>
<asp:BoundField HeaderText="Contact Name" DataField="ContactName"></asp:BoundField>
<asp:TemplateField>
<HeaderTemplate>
Order Detail
</HeaderTemplate>
<ItemTemplate>
<asp:Label ID="lblOrderDetail" runat="server">
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField HeaderText="Order Date" DataField="orderdate" DataFormatString="{0:d}">
</asp:BoundField>
<asp:BoundField HeaderText="Required Date" DataField="requireddate" DataFormatString="{0:d}">
</asp:BoundField>
<asp:BoundField HeaderText="Shipped Date" DataField="shippeddate" DataFormatString="{0:d}">
</asp:BoundField>
</Columns>
</asp:GridView>
<br />
<br />
</div>
</form>
</body>
</html>
<form id="form1" runat="server"> <div> <asp:button id="btnBulkCopy" runat="server" text="Start Bulk Copy"></asp:button> <asp:label id="lblResult" runat="server"> <asp:label id="lblCounter" runat="server"> </div> </form>
Imports System.Data
Imports System.Data.SqlClient
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub btnBulkCopy_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnBulkCopy.Click
'程式本機 Database Server Connection String
Dim shcs As New SqlConnectionStringBuilder
shcs.DataSource = ".\SQLEXPRESS"
shcs.InitialCatalog = "Share"
shcs.UserID = "bruce"
shcs.Password = "123456789"
'遠端Database Server Connection String
Dim ntcs As New SqlConnectionStringBuilder
ntcs.DataSource = "192.168.3.12\SQLEXPRESS"
ntcs.InitialCatalog = "Northwind"
ntcs.UserID = "bruce"
ntcs.Password = "987654321"
Dim shcmd As New SqlCommand
Dim shdr As SqlDataReader
Dim shconn As New SqlConnection(shcs.ConnectionString)
shcmd.CommandText = " SELECT ID, First_Name, Last_Name, 'CEO' as Source FROM MailingList"
shcmd.CommandType = CommandType.Text
shcmd.Connection = shconn
shcmd.Connection.Open()
'與遠端建立SqlBulkCopy實體
Dim ntbcp As New SqlBulkCopy(New SqlConnection(ntcs.ConnectionString))
'指定遠端的資料表名稱
ntbcp.DestinationTableName = "Employees"
'本機與遠端的Column對應，如本機與遠端的Schema一樣，可省略ColumnMappings
ntbcp.ColumnMappings.Add("ID", "EmployeeID")
ntbcp.ColumnMappings.Add("First_Name", "FirstName")
ntbcp.ColumnMappings.Add("Last_Name", "LastName")
'自定義欄位，把Source對應到Employees的Title欄位，所有欄位都會等於CEO
Dim TitleMapping As New SqlBulkCopyColumnMapping("Source", "Title")
ntbcp.ColumnMappings.Add(TitleMapping)
'TimeOut，單位秒
ntbcp.BulkCopyTimeout = 360
'多少筆發一次通知
ntbcp.NotifyAfter = 1000
'委派
AddHandler ntbcp.SqlRowsCopied, AddressOf OnSqlRowsCopied
'AddHandler ntbcp.SqlRowsCopied, New SqlRowsCopiedEventHandler(AddressOf OnSqlRowsCopied)
shdr = shcmd.ExecuteReader
Try
'執行WriteToServer，把本機資料(DataReader)大量複製到遠端資料庫
ntbcp.WriteToServer(shdr)
Catch ex As Exception
lblResult.Text = ex.Message
Finally
shdr.Close()
End Try
End Sub
Private Sub OnSqlRowsCopied(ByVal sender As Object, ByVal args As SqlRowsCopiedEventArgs)
'由於ntbcp.NotifyAfter的關係，每1000筆觸發一次
lblCounter.Text += args.RowsCopied.ToString() + " rows are copied.
"
End Sub
End Class
我新增的網頁名稱為「sqlBulkCopy.aspx」，所以產生了「Partial Class sqlBulkCopy」(s小寫)，所以在程式中引用到自己(Web Form)的Class，而不是System.Data.SqlClient中SqlBulkCopy(S大寫)類別，所以當然有問題。
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'以下範例程式，未使用import System.Data.SqlClient
'原始：Data Source=.\SQLEXPRESS;Initial Catalog=Northwind;User ID=bruce;Password=123456789
'以下使用SqlConnectionStringBuilder類別來建立ConnectionString
Dim CSBuilder As New System.Data.SqlClient.SqlConnectionStringBuilder
CSBuilder.DataSource = ".\SQLEXPRESS"
CSBuilder.InitialCatalog = "Northwind"
CSBuilder.UserID = "bruce"
CSBuilder.Password = "123456789"
CSBuilder.PersistSecurityInfo = True
'CSBuilder.ConnectionString取得連線字串，建立SqlConnection
Dim conn As New System.Data.SqlClient.SqlConnection(CSBuilder.ConnectionString)
'Other Code
End Sub
Visual Studio International Feature Pack 2.0 擴充了先前 1.0 版的功能, 它提供了一組控制項和類別庫以幫助.NET開發人員建立符合國際化需求的應用程式。跟我們之前介紹使用資源檔的方式不同，它提供的是控制項(Controls)和類別庫(Class Library)來幫助.NET開發人員處理各種亞洲語系上的的文字、字串處理工作。
Traditional Chinese to Simplified Chinese Conversion Library and Add-In Tool (中文繁簡轉換類別庫 及Visual Studio Add-In Tool工具)：提供了一組類別庫以幫助程式開發人員在應用程式中轉換將中文繁體至中文簡體(或是中文簡體至中文繁體). 此轉換機制使用的內建於 Microsoft office 2007 的程式, 它的以進行詞對詞的轉換, 讓轉換的品質更好. 若使用者的系統中沒有安裝Microsoft office 2007 , 此類別庫將使用傳統的字對字轉換. 除此之外, 此元件也包括了一個 Visual Studio Add-In Tool 工具可以讓使用都直接轉換存在於資源檔中的中文字串.安裝後，將「C:\Program Files\Microsoft Visual Studio International Pack\Traditional Chinese to Simplified Chinese Conversion Library and Add-In Tool」之下的「ChineseConverter.dll」參考或複製到「Bin」目錄之下即可。
<form id="form1" runat="server"> <div> <asp:textbox id="tbxTCtoSC" runat="server"></asp:textbox> <asp:button id="btnTCtoSC" runat="server" text="繁體轉簡體"> <asp:label id="lblTCtoSC" runat="server"></asp:label> <asp:textbox id="tbxSCtoTC" runat="server"></asp:textbox> <asp:button id="btnSCtoTC" runat="server" text="簡體轉繁體"> <asp:label id="lblSCtoTC" runat="server"></asp:label> </asp:button></asp:button> </div> </form>
'繁簡轉換命名空間
Imports Microsoft.International.Converters.TraditionalChineseToSimplifiedConverter
Partial Class Test_TCtoSC
Inherits System.Web.UI.Page
Protected Sub btnTCtoSC_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnTCtoSC.Click
If Me.tbxTCtoSC.Text.Length > 0 Then
Dim TWString As String = Me.tbxTCtoSC.Text
'使用ChineseConverter.Convert方法
'第一個參數是你要轉換的字串
'第二個參考是你要轉換目的語言
'TraditionalToSimplified是繁體轉換成簡體
Me.lblTCtoSC.Text = ChineseConverter.Convert(TWString, ChineseConversionDirection.TraditionalToSimplified)
End If
End Sub
Protected Sub btnSCtoTC_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSCtoTC.Click
If Me.tbxSCtoTC.Text.Length > 0 Then
Dim SCString As String = Me.tbxSCtoTC.Text
'使用ChineseConverter.Convert方法
'第一個參數是你要轉換的字串
'第二個參考是你要轉換目的語言
'SimplifiedToTraditional是簡體轉換成繁體
Me.lblSCtoTC.Text = ChineseConverter.Convert(SCString, ChineseConversionDirection.SimplifiedToTraditional)
End If
End Sub
End Class
East Asia Numeric Formatting Library (亞洲語系的數值字串格式化類別庫)：East Asia Numeric Formatting Library 提供了一組類別庫以幫助程式開發人員將數值資料格式化成亞洲語系的數值字串. 支援的亞洲語系包括了繁體中文, 簡體中文, 日文以及韓文.
<form id="form1" runat="server"> <div> <asp:textbox id="tbxNumber" runat="server" tooltip="請輸入整數，例如：12345"></asp:textbox> <asp:button id="btnNumToChinese" runat="server" text="數字轉中文"> <asp:label id="lblNumtoChinese" runat="server"></asp:label> <asp:label id="lblNumtoJP" runat="server"></asp:label> </asp:button> </div> </form>
'亞洲數字格式命名空間
Imports Microsoft.International.Formatters
'為了設定日文需要使用CultureInfo("ja")
Imports System.Globalization
Partial Class Test_EastAsiaNumericFormatting
Inherits System.Web.UI.Page
Protected Sub btnTCtoNum_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnNumToChinese.Click
If Me.tbxNumber.Text.Length > 0 Then
Dim ChangeNumber As Integer = Convert.ToInt32(Me.tbxNumber.Text)
Try
'會依瀏灠器做CultureInfo的選擇，如簡體瀏灠器則出現簡體中文的數字
Me.lblNumtoChinese.Text = String.Format(New EastAsiaNumericFormatter(), "數字的中文是：{0:L}", ChangeNumber)
'指定轉換的文字
'Me.lblNumtoJP.Text = "數字的日文是：" & EastAsiaNumericFormatter.FormatWithCulture("L", ChangeNumber, Nothing, New CultureInfo("ja"))
'FormatWithCulture(String, Object, IFormatProvider, CultureInfo)
Me.lblNumtoJP.Text = String.Format("數字的日文是：{0}", EastAsiaNumericFormatter.FormatWithCulture("L", ChangeNumber, Nothing, New CultureInfo("ja")))
Catch ex As Exception
Me.lblNumtoChinese.Text = "錯誤：" & ex.Message
End Try
End If
End Sub
End Class
IF FileUpload1.HasFile Then
try
IF FileUpload1.PostedFile.ContentType = "application/x-zip-compressed" Then
'Code
End IF
'...
End IF
<meta id="metaName" runat="server" />
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
metaName.Attributes("name") = "author"
metaName.Attributes("Content") = "Bruce"
End Sub
<form id="form1" runat="server">
<div>
<asp:label associatedcontrolid="tbxDate" id="lblBirthday" runat="server" text="生日：">
<asp:textbox id="tbxDate" runat="server">
<img alt="選擇日期" id="ibnt" src="Calendar.png" />
</div>
<asp:calendar backcolor="White" bordercolor="#999999" cellpadding="4" daynameformat="Shortest" font-names="Verdana" font-size="8pt" forecolor="Black" height="180px" id="cal" runat="server" width="200px">
<selecteddaystyle backcolor="#666666" font-bold="True" forecolor="White">
<selectorstyle backcolor="#CCCCCC">
<weekenddaystyle backcolor="#FFFFCC">
<todaydaystyle backcolor="#CCCCCC" forecolor="Black">
<othermonthdaystyle forecolor="#808080">
<nextprevstyle verticalalign="Bottom">
<dayheaderstyle backcolor="#CCCCCC" font-bold="True" font-size="7pt">
<titlestyle backcolor="#999999" bordercolor="Black" font-bold="True"> </titlestyle></dayheaderstyle></nextprevstyle></othermonthdaystyle></todaydaystyle></weekenddaystyle></selectorstyle></selecteddaystyle></asp:calendar>
</form>
Protected Sub cal_DayRender(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DayRenderEventArgs) Handles cal.DayRender
'生日不會大於今天，所以把大於今天的日期選取功能取消
If e.Day.Date > DateTime.Now Then
e.Day.IsSelectable = False
End If
End Sub
Protected Sub cal_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cal.SelectionChanged
Me.tbxDate.Text = Me.cal.SelectedDate.ToShortDateString
End Sub
$(function() {
//先隱藏Calendar
$("#cal").hide();
//<img>的click事件
$("#ibnt").click(function() {
var p = $("#ibnt");
//可使用position或offset來取得<img>的top及left座標
//var position = p.position();
//$("#cal").css({ "position": "relative", "top": position.top, "left": position.left });
var offset = p.offset();
//設定相對位置
$("#cal").css({ "position": "relative", "top": offset.top, "left": offset.left });
$("#cal").toggle();
});
//讓TextBox也能有<img>一樣的效果
$("#tbxDate").click(function() {
var p = $("#tbxDate");
var position = p.position();
$("#cal").css({ "position": "relative", "top": position.top, "left": position.left });
//var offset = p.offset();
//$("#cal").css({ "position": "relative", "top": offset.top, "left": offset.left });
$("#cal").toggle();
});
});