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

自己動手寫的版本 ---- 網站的 Detail程式 (DataReader),中國大陸稱為「主細表」

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

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







本文出處 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 約 135hr)  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.主講   事先錄好的影片,並非上課側錄!   觀看時,有如「一對一」面對面講課