MIS2000 Lab. 的 ASP.NET專題實務/教學與分享

這一篇文章，將介紹 Web Service來作簡單的資料庫存取（ADO.NET），需要一些基本的認知，

關於 Web Server，建議看過下面的三篇文章後，才能具備基礎知識：

• Web Service入門 #1，透過VS 2005/2008 撰寫一個Web Service
• Web Service入門 #2，呼叫現成的Web Service 給我的程式來用
• Web Service入門 #3

關於ADO.NET的 DataReader作法，請看過下列文章，才能具備基本知識：

• 初探ADO.NET #1，程式與資料庫互動的四大步驟
• DataReader的標準範例 for ASP.NET 2.0 / 3.5

如果讀者尚未具備上述兩大知識，貿然看下去，可能會消化不良。

萬丈高樓平地起。        總要先學會走路，才來練習跑步、跳遠、跳高.....對嗎？

 =====================================================================================

第一，撰寫 Web Server

大部分的 Web Server程式、宣告，都是VS 2008幫我們自動完成的。 

有了VS 2005/2008這麼強的開發工具，寫程式已經很簡單囉！

01 Imports System.Web
02 Imports System.Web.Services
03 Imports System.Web.Services.Protocols
04
05 ' 若要允許使用 ASP.NET AJAX 從指令碼呼叫此 Web 服務，請取消註解下一行。
06 ' <System.Web.Script.Services.ScriptService()> _
07 <WebService(Namespace:="http://tempuri.org/")> _
08 <WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
09 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
10 Public Class Service_3
11      Inherits System.Web.Services.WebService
12
13     <WebMethod()> _
14     Public Function 函數名稱（輸入值1）as 傳回值
15     
16     End Function
17
18 End Class

真正的程式如下！這邊將會使用 ADO.NET的程式 (for DataReader)，全部自己動手寫。

採用的 test資料表，就是本書提供的範例。

01 Imports ...System.Web
02 Imports System.Web.Services
03 Imports System.Web.Services.Protocols
04
05 '----自己寫的----
06 Imports System
07 Imports System.Data
08 Imports System.Data.SqlClient
09 '----自己寫的----
10
11 ' 若要允許使用 ASP.NET AJAX 從指令碼呼叫此 Web 服務，請取消註解下一行。
12 ' <System.Web.Script.Services.ScriptService()> _
13 <WebService(Namespace:="http://tempuri.org/")> _
14 <WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
15 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
16 Public Class Service_3
17      Inherits System.Web.Services.WebService
18
19     <WebMethod()> _
20     Public Function Get_Title() Function Get_Title(ByVal u_id As Integer) As String
21
22         Dim Conn As SqlConnection = New SqlConnection
23         Conn.ConnectionString = "Data Source=ACER_4105NB;Initial Catalog=test;Persist Security Info=True;User ID=test;Password=test"
24
25         Dim dr As SqlDataReader = Nothing
26
27         Dim cmd As SqlCommand = New SqlCommand("select title from test where id = " & u_id, Conn)
28
29         Dim u_Title As String
30
31         Try
32             Conn.Open()   '---- 1. 連結DB
33             dr = cmd.ExecuteReader()   '---- 2. 執行SQL指令，取出資料
34
35             dr.Read()
36             u_Title = dr.Item("title").ToString
37
38         Catch ex As Exception
39             u_Title = "Exception(錯誤訊息)----   " + ex.ToString()
40         Finally
41             '---- Always call Close when done reading.
42             If Not (dr Is Nothing) Then
43                 cmd.Cancel()
44                 dr.Close()
45             End If
46
47             '---- Close the connection when done with it.
48             If (Conn.State = ConnectionState.Open) Then
49                 Conn.Close()
50                 Conn.Dispose()  
51             End If
52         End Try
53
54
55         Return u_Title  '---- 傳回值
56     End Function
57
58 End Class

第二，加入「Web參考」 ，名為 localhost.Service_3。

           這部份不再贅述，請看上方的第二篇文章 ---- Web Server #2

第三，撰寫一支 ASP.NET程式，「呼叫」Web Service來用。

HTML畫面很簡單，只有一個 TextBox、 Button與 Label控制項。

HTML畫面的原始碼如下：

01     <form id="form1" runat="server">
02     <p>
03         您想看哪一篇文章，請輸入文章ID編號 :
04         <asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
05         &nbsp;&nbsp;
06         <asp:Button ID="Button1" runat="server" Text="輸  入" />
07     </p>
08     <div>
09     
10         文章標題（Title）：  
11         <asp:Label ID="Label1" runat="server" style="color: #FF0000"></asp:Label>
12     
13     </div>
14     </form>

  =====================================================================================

後置程式碼（Code Behind）如下：

   Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim ws As New localhost.Service_3

            Dim input_int As Integer = CType(TextBox1.Text, Integer)

                      Label1.Text = ws.Get_Title(input_int)

    End Sub

 =====================================================================================

 執行成果：

這是一個很簡單的程式，

把舊有的功能，加上「Web Service」的新方法來實作。

是不是更能瞭解 Web Service帶來什麼改變呢？

如果我把上面的 Web Service開放出來，那麼全世界的程式設計師都能使用我這個Function來獲得結果。

這就是 Web Service有趣、有用的地方！

=====  廣  告 =====================================

我寫文章，向來以「簡單」、「好用」為主。

     圖片 多一點！初學者才跟得上............

這些 Web Service的內容，原本打算當成書本「下集」來出版。

但出版社不接受我的計畫，我就把這些東西分享給大家看看......

買書還有售後服務的，真是比全國電子還「感心」

如果您能接受我的方式，請您購買本書，把基礎打好 ---- [置頂]新書上市-- ASP.NET專題實務（文魁出版）

================================================

看了這三篇文章，我們以「實作」代替繁雜的理論，

從完全不會，到現在寫程式，不就是一下子的時間而已嗎？

不要給自己那麼多藉口，說什麼「我數學不好、我邏輯不好，所以我不可能學會寫程式！」

說真的，程式寫不好，是你運氣不好而已............

可能是遇見了不適合自己的「書本」、遇上了教學方法不適合自己的「老師」，

千萬不要對自己失望！不要放棄！

多給自己一次機會，每個人都可以當程式設計師，領一份不錯的薪資！

只要努力、多練習、多看書（看別人的範例）...........肯認真練習！假以時日，就會成為武林高手

---------------------------------------------------------------------------------------------------------------------------------------------------

 關於本網站的 Web Service，已經發表一系列文章，

請看：http://www.dotblogs.com.tw/mis2000lab/Tags/Web%20Service/default.aspx

2009/11/10補充：  本系列 Web Service文章已經延伸許多範例與程式，並撰寫成書本裡面的一章，

      將會發表在這一本書裡面，請看：[預告]ASP.NET專題實務（下集）-- 範例集與.NET 4.0新功能

 今日值班正妹，張虹（個人專訪：www.carsfans.com/display.asp?keyno=589）

......  寄信給我    mis2000lab (at) 雅虎.com.台灣 ................................................................................................................
ASP.NET專題實務  （文魁出版，VB版 P8187 / C#版P09027）

              下集已經出版囉～～～ASP.NET專題實務II：範例應用與4.0新功能

.............................................................................................................. 寄信給我    mis2000lab (at) 雅虎.com.台灣 ........