select @@Max_Connections
select * from customers
response.write("...")
response.end
if request("Debug") = true then
response.write("...")
response.end
end if
Sysinternals 的另一個首開先例：這個程式會攔截分別由 DbgPrint 利用裝置驅動程式，和 OutputDebugString 利用 Win32 程式所做的呼叫。它能夠在您的本機上或跨網際網路，在不需要作用中的偵錯工具情況下，檢視和錄製偵錯工作階段輸出。
Imports System.Diagnostics
Partial Class DebugView
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Debug.Write("Bruce: This is From Debug.Write message, 請查看你的DebugView工具")
End Sub
End Class
--使用dateadd設定為現在日期的1個月後 select dateadd(month,1,getdate()) "1個月後是" go --以字串char(7)來取得年與月，2010/01 --並在尾端加上'/1'，使字串成為2010/01/1 select convert(char(7),dateadd(month,1,getdate()),111)+'/1' "下個月1日的日期" go --將字串轉換為日期格式 select convert(datetime,(convert(char(7),dateadd(month,1,getdate()),111)+'/1')) "日期格式" --下個月初減一日，就是這個月底 select DATEADD(day, -1, convert(datetime,(convert(char(7),dateadd(month,1,getdate()),111)+'/1'))) "月底日期"
select CONVERT(char,getdate(),111) "日期", CONVERT(char,GETDATE(),120) "日期時間"
<script src="http://ajax.microsoft.com/ajax/jquery/jquery-1.3.2.min.js" type="text/javascript"></script> <script src="http://ajax.microsoft.com/ajax/jQuery/jquery-1.3.2-vsdoc.js" type="text/javascript"></script>
''' <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();
});
});
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load '由資源檔Resource讀取PageTitle的值 Page.Title = Resources.Resource.PageTitle End Sub
Insert into orders values ('2009/10/29', 1010, NULL)或Insert into orders(order_num, cust_num, order_date) values (200, 1010, '2009/10/29')
Insert into [kk].[dbo].[orders] (order_num, order_date, customerid) Select order_num, order_date, cust_num from orders
Update products set phone='035678901' where cust_num=1010或
Update product set unit_price=unit_price * 1.05
update items set unit_price=products.unit_price from products where items.prod_num=products.prod_num and items.supp_code=products.supp_code and order_num>888
margin : 0; /*一個值：代表上、下、左、右。margin : 0 0 0 0;的簡寫。*/ margin : 5 10; /*二個值：值1：上下、值2：左右。margin : 5 10 5 10;的簡寫。*/ margin : 5 10 15; /*三個值：值1：上、值2：左右、值3：下。margin : 5 10 15 10;的簡寫。*/ margin: 1 10 5 15; /*四個值：值1：上、值2：右、值3：下、值4：左。*/
/*方法一*/ margin-left : auto; margin-right: auto; /*方法二*/ margin : auto; /*方法三*/ margin : 上下 auto; margin : 0 auto; /*方法四*/ margin : 上 auto 下; margin : 0 auto 0;
<!--巡覽列-->
<div id="navigation">
<div id="container">
<ul id="firstul">
<li id="home" class="active"><a href="#" title="Home">首頁</a></li>
<li id="news"><a href="#" title="讀書心得" id="mynews">讀書心得</a></li>
<li id="about"><a href="#" title="有關我" id="about_us">有關我</a></li>
</ul>
<div id="mypage" style="display: none" align="center">
</div>
</div>
</div>
<!-- 文章：預設只顯示標題 -->
<div id="content">
<span id="title01">數位式競爭--讀書心得</span><br>
<div id="title01_content" style="display: none;">
這本書為民國89年出版，已經在我書架上很多了年，是我讀大學時的教科書，老師花了一個學期就只上這本書，當時讀起來沒什麼感覺，頂多只是為了交報告而讀，但很奇怪，它就是一直在我的書架上，雖然十多年來，書架上的書已經換了好幾回，尤其是資訊類的書，換的速度之快連我都怕，不過一本好書一定有存在的價值，不會因為時間的變動而有任何改變。我每天可以說都在與技術文件為「舞」，只是不知是我看它跳還是它看我跳。就這樣有一天，不知為何，好像「它」在跟我招手，然後說，來看看我吧，離上次你讀我已經是九年多前的事了，我能給你一些「明牌」！古人說：「不經一事，不長一知。」你沒有經歷過的事，說再多感受就是有限。但九年後的今天重讀本書，真是感受良多，這本書應該是十年前版的「由A到A+」。我一直很佩服國外的研究學者，能花那麼多時間、精神來研究出原本為「隱性」的知識，讓想要更上一層樓的人可以有方法可循。看完這本書後，讓我心有戚戚，十多年前的故事，現在每天還是在不斷重覆發生，不管是成功的故事，還是失敗的故事。我想這可能是知識的傳遞、了解到最後的落實還有很大一段差距。如果你從事軟體相關產業，而還沒有看過這本書，我非常建議你買來看看（我不知道還買不買的到)。
</div>
<span id="title02">The Last Lecture -- 讀書心得</span><br>
<div id="title02_content" style="display: none;">
「最後的演講」，是一位父親留給孩子的遺言。沒錯，是遺言。聽起來是個不好的消息，但也因為是遺言，所以他必須認真思考要留下什麼給他的孩子們，他晚婚，他小孩都還小，他有成就，他患癌。最後的演講分為兩個部分，一是演講影片，二是書本。我是先看書再看影片，影片的部份，你可以搜尋「朱學恆」在他的部落格裡有影片檔和中文字幕，影片是免費的。這場演講為什麼會是全世界轟動？我想，除了是作者蘭迪．鮑許（Randy
Pausch）本身在面對癌症時還能散發不可思義的"樂觀"魅力，還有一種「人之將死，其言也善。」的人生智慧在裡面。人生有方向，是多麼重要及快樂的一件事，首先，是完成自我的夢想，然後是啟發他人的夢想，還可以進一步幫助他人完成夢想。這是Randy教授最後想跟我們說的話。反之，也就是人生一定要有「目標」、要有「方向」，要知道你自己的「路」在那裡。這或許是我喜歡讀些哲學類的書籍關係，思考一件的事的角度之多，或許不是你能想像的，提高看事的高度，提高做事的層度，努力的成就自己，但也不要忘了幫助別人，造成一個良性循環的社會。
</div>
<span id="title03">Word of Mouth Marketing--讀書心得</span><br>
<div id="title03_content" style="display: none;">
我的信箱中有許多的電子報，每天上班第一件事就開打開信箱，確認一下有沒有重要人士的信件，看看Log信件，看看電子報，其實訂了那怎多的電子報，絕大部份都在1-10秒內被我的食指結束生命，快快的按下那Delete鍵，然後Next。而某天的一封電子報裡刊載的標題讓我有興趣「掃」一下，看完後(很少有認真看完全部)，內容簡潔但又不失內容，後來又收到幾期的內容，一樣，都是很直接也實用的內容，文筆也不會看了想睡覺。這些電子報其實也是行銷手腕的一種，精選幾段精彩的內容，吸引你的注意，如果你也確實被吸引，但因為你只是看到部份的片面，這時就要看這些精彩的內容是否有足夠的吸引內，讓你採取行動，拿出新台幣去換一本有完整內容的書本。而我，被打動了。雖然我不是行銷人員，但我對行銷、管理方面的知識算很有興趣，一樣是動腦的工作，但行銷、管理和程式就是不同。而作者除了提供大量免費實用的做法外，也提供簡單的5個步驟打造好的「口碑」。
</div>
</div>
/*ul元素設定*/
#navigation ul
{
list-style-type : none ;
margin : 0 auto; /*置中*/
padding : 0;
width : 850px;
}
/*讓li"浮"起來，變成"橫向列"*/
#navigation li
{
float : left ;
}
/*Menu中a元素設定*/
#navigation a
{
float : left ;
display : block ; /*以「區塊」元素方式顯示*/
color : rgb(197,197,197);
padding : 5px 8px;
margin-top : 10px;
border-bottom-width : 0;
}
/*li中類別為active的a元素設定*/
#navigation li.active a
{
color : rgb(255,204,0);
background-color : rgb(153,153,153);
}
/*Menu中a元素:hover及:active設定 */
#navigation a:hover, #navigation a:active
{
color : rgb(204,204,255);
background-color : rgb(100,90,125);
}
/*文章區塊，<div id="content">設定 */
#content
{
clear : both ;
width : 850px;
margin : 0 auto; /*置中*/
padding : 0;
background-color : rgb(193,189,204);
}
/* 文章標題，讓jQuery動態加入 */
.newstitle
{
color :Black ;
border-bottom : 1px dotted gray;
}
/* 文章內容，由jQuery動態控制 */
.newscontent
{
width : 50%;
color : Black ;
background-color : rgb(255,153,51);
border : 1px dotted gray;
padding : 7px 30px 10px 25px;
}
$(function() {
$("#firstul li:eq(0)").removeClass("active"); //先將"首頁"的類別移除
$("#firstul li:eq(1)").addClass("active"); // 將"讀書心得"設定.active類別
$("span[id]").addClass("newstitle"); // 文章標題設定
$("#title01").click(function() { //點擊標題時，
//文章內容加入.newscontent類別設定
$("#title01_content").addClass("newscontent").toggle("slow");
//其他非title01的內容，全部hide()
$("div[id^=title]:not(#title01_content)").hide("slow");
});
$("#title02").click(function() {
$("#title02_content").addClass("newscontent").toggle("slow");
$("div[id^=title]:not(#title02_content)").hide("slow");
});
$("#title03").click(function() {
$("#title03_content").addClass("newscontent").toggle("slow");
$("div[id^=title]:not(#title03_content)").hide("slow");
});
});
<div id="myform"> Name:<input /> Email:<input /> </div>
$(document).keydown(function(e){
//keyCode為ESC
if (e.keyCode == 27) {
$("#myform").hide("slow");
}
});
function keyText(e) {
// e.which 取得keyCode的數字
// String.fromCharCode將keyCode轉換成對應的文字
if (window.event) // IE
{
keynum = e.keyCode
}
else if (e.which) // Netscape/Firefox/Opera
{
keynum = e.which
}
alert(String.fromCharCode(keynum) + ":按鍵被按下了");
return true;
}
document.onkeydown = keyText;
$(document).keydown(function(e) {
alert(String.fromCharCode(e.keyCode) + ":按鍵被按下了");
//27為ESC
if (e.keyCode == 27) {
$("#myform").hide("slow");
}
});