?? particular.aspx.vb
字號:
Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Data
Imports System.Data.OleDb
Public Class Particular: Inherits Page
Public message As Label
Sub Page_Load(Sender As Object, E As EventArgs)
Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("address.mdb")) '建立Connection對象
'建立SQL語句,請注意要獲取傳遞過來的id的值
Dim strSql As String
strSql="Select * From users Where id=" & Request.QueryString("id")
Dim cmd As New OleDbCommand(strSql, conn) '建立Command對象
conn.Open()
Dim dr As OleDbDataReader = cmd.ExecuteReader() '建立DataReader對象
'下面開始顯示數據
dr.Read() 'dr.Read()就會讀取當前記錄
message.Text = "姓名:" & dr.Item("name")
message.Text &= "<br>電話:" & dr.Item("tel")
message.Text &= "<br>email:<a href='mailto:" & dr.Item("email") & "' target='_blank'>" & dr.Item("email") & "</a>"
message.Text &= "<br>簡介:" & dr.Item("intro")
message.Text &= "<br>提交時間:" & dr.Item("submit_date")
conn.Close()
End Sub
End Class
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -