ASP.NET專題實務 WebForm + MVC線上教學影片 -- MIS2000Lab.

 自己動手寫的版本 ---- 網站的 Detail程式 (DataReader)

本文出處 http://www.taconet.com.tw/mis2000_aspnet

 

Detail的程式 http://www.taconet.com.tw/mis2000_aspnet/vs2005_case.htm#222
點選任何一個產品，就會看見這個產品的明細、內容、價格....等等

 

'----自己寫的------------------------------
Imports System.Data
Imports System.Data.SqlClient
'----自己寫的-----------------------------

Partial Class _2003_Book_Ch11_Ch13_Ch12_test_disp   '----這一行不要照抄，VS 2005會依照實際狀況改變

Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

'ASP.NET程式的四大步驟。把資料庫的資料，呈現在畫面上！
'第一，連接資料庫
'----自己手寫一段「資料庫連線字串」，如下：
Dim Conn As SqlConnection = New SqlConnection("Server=localhost;uid=test;pwd=test;database=test")
Conn.Open()

'第二，執行SQL指令
Dim SQLstr As String = Nothing
'---- 在VS 2005/2008裡面，設定變數都要有一個「啟始值」、「定義值」，不然的話，就會出現警告訊息。
'---- 雖然不會執行錯誤，但畫面上會出現綠色曲線，作為警告。所以我們只好設定為 = Nothing

If Request("id") = "" Then
    SQLstr = "select * from test where id = 1"
Else
    SQLstr = "select * from test where id =" & Request("id")
End If

Dim cmd As New SqlCommand(SQLstr, Conn)
Dim dr As SqlDataReader = cmd.ExecuteReader() '---- 執行SQL指令

'第三，自由發揮
If Not dr.READ() Then

Response.Write("抱歉！找不到資料！")
cmd.Cancel()
dr.Close()

Else

Response.Write("文章標題：<h3>" & dr.Item("title") & "</h3><hr>")
Response.Write("發表日期：<font color=red>" & dr.Item("test_time") & "</font><br>")
Response.Write("文章摘要：<font color=gray>" & dr.Item("summary") & "</font><hr>")

'---- 下面這一段，是「按下Enter鍵」作文章換行 --------- start
Dim u_command As String
u_command = Replace(dr.Item("article"), vbCrLf, "<br>")
u_command = Replace(u_command, "<", "&lt;")
u_command = Replace(u_command, "&lt;br>", "<br>")
Response.Write("文章內容：<br>" & u_command)
'----------------------------------------------------------------------------------- end

Response.Write("<p align=right>作者：" & dr.Item("author") & ".....文章點閱率：" & dr.Item("hit_no") & "</p>")

Dim hit_no As Integer = CInt(dr.Item("hit_no"))

cmd.Cancel()
dr.Close() '---- 必須先關閉「已經使用中」的DataReader，才能使用 第二個DataReader。

'---- 下面這一段，是有人看這篇文章，就「增加點閱率」 --------- start
If Not Request("id") = "" Then
    Dim SQLstr2 As String = "Update test set hit_no =" & (hit_no + 1) & " where id =" & Request("id")
    Dim cmd2 As New SqlCommand(SQLstr2, Conn)
    cmd2.ExecuteNonQuery()
    cmd2.Cancel()
End If
'------------------------------------------------------------------------------------------------ end

End If

'第四，關閉連線
Conn.Close()

End Sub
End Class

 

這種功能，很常見、寫程式的人都該學會～本文出處 http://www.taconet.com.tw/mis2000_aspnet

 

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

如果上面的 DataReader，您要使用「參數」來作，以避免初步的SQL Injection（資料隱碼）攻擊

請稍作修改如下：

            '**** 重 點！*************************************************
            '**** 改用 SqlCommand的 ＠參數來作
            Dim cmd As New SqlCommand("select * from test where id = @id", Conn)

            cmd.Parameters.Add("@id", SqlDbType.Int)
            cmd.Parameters("@id").Value = CType(Request("id"), Integer)

            '== 參考網址  http://msdn.microsoft.com/zh-tw/library/system.data.sqlclient.sqlcommand.parameters.aspx
            '************************************************************

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

 

2009/10月補充：

     關於本文的範例，我寫了一篇文章，以PDF檔分享給大家。當作本書的後續補充章節。

     請看： [習題] 補充本書第14章 的範例--自己撰寫ADO.NET程式 / 網站的首頁

     本範例已經收錄在「下集」，並且集結出書       ASP.NET專題實務 II -- 範例集與 4.0新功能

 

我將思想傳授他人， 他人之所得，亦無損於我之所有；

猶如一人以我的燭火點燭，光亮與他同在，我卻不因此身處黑暗。----Thomas Jefferson

線上課程教學，遠距教學 (Web Form 約 51hr)  https://dotblogs.com.tw/mis2000lab/2016/02/01/aspnet_online_learning_distance_education_VS2015

線上課程教學，遠距教學 (ASP.NET MVC 約 140hr)  https://dotblogs.com.tw/mis2000lab/2018/08/14/ASPnet_MVC_Online_Learning_MIS2000Lab

 

寫信給我，不要私訊 --  mis2000lab (at) yahoo.com.tw  或  school (at) mis2000lab.net

 (1) 第一天 ASP.NET MVC5 完整影片（5.5小時 / .NET 4.x版）免費試聽。影片 https://youtu.be/9spaHik87-A 

 (2) 第一天 ASP.NET Core MVC 完整影片（3小時 / .NET Core 6.0~8.0）免費試聽。影片 https://youtu.be/TSmwpT-Bx4I 

[學員感言] mis2000lab課程評價 - ASP.NET MVC , WebForm  。 https://mis2000lab.medium.com/%E5%AD%B8%E5%93%A1%E6%84%9F%E8%A8%80-mis2000lab%E8%AA%B2%E7%A8%8B%E8%A9%95%E5%83%B9-asp-net-mvc-webform-77903ce9680b  

ASP.NET遠距教學、線上課程（Web Form + MVC）。 第一天課程， "完整" 試聽。 

.........   facebook社團   https://www.facebook.com/mis2000lab   ......................

.........  YouTube (ASP.NET) 線上教學影片  https://www.youtube.com/channel/UC6IPPf6tvsNG8zX3u1LddvA/

 

Blog文章 "附的範例" 無法下載，請看 https://dotblogs.com.tw/mis2000lab/2016/03/14/2008_2015_mis2000lab_sample_download

請看我們的「售後服務」範圍（嚴格認定）。

...................................................................................................................................................... 

ASP.NET MVC  => .NET Core MVC 線上教學  ...... 第一天課程 完整內容 "免費"讓您評估 / 試聽

[遠距教學、教學影片] ASP.NET (Web Form) 課程 上線了！MIS2000Lab.主講   事先錄好的影片，並非上課側錄！   觀看時，有如「一對一」面對面講課。