intro.aspx.vb

这是一个电子商务入门级的代码。 其中包括用户注册

Imports System.Data
Imports System.Data.OleDb
Public Class intro
    Inherits System.Web.UI.Page
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents Button1 As System.Web.UI.WebControls.Button
    Protected WithEvents Label2 As System.Web.UI.WebControls.Label

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim conn As New OleDbConnection()
        Dim cmd As New OleDbCommand()
        Dim rd As OleDbDataReader
        conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("OnLineSale.mdb")
        conn.Open()
        cmd.Connection = conn



        Dim typeStr As String
        Dim sqlstr
        sqlstr = "select * from goods where gID=" & Request.QueryString("para")
        cmd.CommandText = sqlstr
        rd = cmd.ExecuteReader
        Dim myBool
        myBool = rd.Read

        If myBool Then
            Label2.Text = "<table width=""500"" border=""1"">" & _
                             "<tr><td width=""16%"" align=""right"">商品名称</td>" & _
                                 "<td width=""35%"">" & rd("gName") & "</td>" & _
                                 "<td width=""15%"" align=""right"">商品类型</td>" & _
                                 "<td width=""34%"">" & rd("gType") & "</td></tr>" & _
                             "<tr><td align=""right"">单价</td>" & _
                                 "<td>" & rd("gPrice") & "(元)</td>" & _
                                 "<td align=""right"">现在货量</td>" & _
                                 "<td>" & rd("gAccessNum") & "</td></tr>" & _
                             "<tr><td height=""56"" align=""right"" valign=""top"">商品介绍</td>" & _
                             "<td colspan=""3"" valign=""top"">" & rd("gIntro") & "</td></tr></table>"
        Else
            Label2.Text = "此商品信息不存在!"
        End If
        rd.Close()
        conn.Close()
        conn = Nothing

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Response.Redirect("buy.aspx")
        Response.Write("<script language=vbscript>history.go(-2)</script>")
    End Sub
End Class