?? particular.aspx.vb
字號:
Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports nsAddress
Public Class Particular: Inherits Page
Public message As Label
Sub Page_Load(Sender As Object, E As EventArgs)
'建立一個DataUser對象實例
Dim du As New DataUser("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("address.mdb"),Request.QueryString("id"))
'下面利用屬性返回記錄信息,并顯示出來
message.Text = "姓名:" & du.name
message.Text &= "<br>電話:" & du.tel
message.Text &= "<br>email:<a href='mailto:" & du.email & "' target='_blank'>" & du.email & "</a>"
message.Text &= "<br>簡介:" & du.intro
message.Text &= "<br>提交時間:" & du.submit_date
End Sub
End Class
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -