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

http://www.dotblogs.com.tw/mis2000lab/archive/2008/04/24/3444.aspx

 

 

 

自己动手写的版本 ---- 网站的 Master程序 (DataReader)，中国大陆称为「主细表」 

 Master的程序http://www.taconet.com.tw/mis2000_aspnet/vs2005_case.htm#333
相当于购物网站的首页

 

Detail的程序http://www.taconet.com.tw/mis2000_aspnet/vs2005_case.htm#222
点选任何一个产品，就会看见这个产品的明细、内容、价格....等等 

这种功能，很常见、写程序的人都该学会～

 

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

 

    

Master的程序 http://www.taconet.com.tw/mis2000_aspnet/vs2005_case.htm#333
相当于购物网站的首页

 

 后置程序代码，如下：

 

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

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 = "Select * From test"
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 
    While dr.Read()
        Response.Write("★    ")
        Response.Write("<a href=test_disp.aspx?id=" & dr.Item("id") & ">" & dr.Item("title") & "</a><br>")
        Response.Write("<hr>")
    End While
     cmd.Cancel()
     dr.Close() 
End If
'第四，关闭联机
Conn.Close()
End Sub

 

 

 

 

2009/10月补充：

     关于本文的范例，我写了一篇文章，以PDF档分享给大家。当作本书的后续补充章节。

     请看： [习题] 补充本书第14章 的范例--自己撰写ADO.NET程序 / 网站的首页