index.aspx.vb

一个WML和ASP+ACCESS写的留言版程序,对于初学者有着很好的重要性

Imports System.Data
Imports System.Data.OleDb
Public Class MobileWebForm1
    Inherits System.Web.UI.MobileControls.MobilePage

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

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

    End Sub
    Protected WithEvents Link1 As System.Web.UI.MobileControls.Link
    Protected WithEvents FrmMain As System.Web.UI.MobileControls.Form
    Protected WithEvents Link3 As System.Web.UI.MobileControls.Link
    Protected WithEvents NewList As System.Web.UI.MobileControls.List
    Protected WithEvents FrmMessageView As System.Web.UI.MobileControls.Form
    Protected WithEvents LabMessageTitle As System.Web.UI.MobileControls.Label
    Protected WithEvents LabMessageContent As System.Web.UI.MobileControls.Label
    Protected WithEvents LabAddTime As System.Web.UI.MobileControls.Label
    Protected WithEvents LabEmail As System.Web.UI.MobileControls.Label
    Protected WithEvents LabPersonName As System.Web.UI.MobileControls.Label
    Protected WithEvents FrmNewMessage As System.Web.UI.MobileControls.Form
    Protected WithEvents Label1 As System.Web.UI.MobileControls.Label
    Protected WithEvents Label2 As System.Web.UI.MobileControls.Label
    Protected WithEvents TxtMessageTitle As System.Web.UI.MobileControls.TextBox
    Protected WithEvents TxtEmail As System.Web.UI.MobileControls.TextBox
    Protected WithEvents Label3 As System.Web.UI.MobileControls.Label
    Protected WithEvents TxtMessageContent As System.Web.UI.MobileControls.TextBox
    Protected WithEvents Label4 As System.Web.UI.MobileControls.Label
    Protected WithEvents TxtPersonName As System.Web.UI.MobileControls.TextBox
    Protected WithEvents CmdSubmit As System.Web.UI.MobileControls.Command
    Protected WithEvents Link2 As System.Web.UI.MobileControls.Link
    Protected WithEvents Link4 As System.Web.UI.MobileControls.Link
    Protected WithEvents Link5 As System.Web.UI.MobileControls.Link
    Protected WithEvents RFVMessageTitle As System.Web.UI.MobileControls.RequiredFieldValidator
    Protected WithEvents RFVMessageContent As System.Web.UI.MobileControls.RequiredFieldValidator
    Protected WithEvents RFVPersonName As System.Web.UI.MobileControls.RequiredFieldValidator
    Protected WithEvents RegularExpressionValidator1 As System.Web.UI.MobileControls.RegularExpressionValidator
    Protected WithEvents FrmSuccess As System.Web.UI.MobileControls.Form
    Protected WithEvents Label5 As System.Web.UI.MobileControls.Label
    Protected WithEvents Link6 As System.Web.UI.MobileControls.Link
    Protected WithEvents Link7 As System.Web.UI.MobileControls.Link
    Protected WithEvents Image1 As System.Web.UI.MobileControls.Image
    Protected WithEvents ImageLogo As System.Web.UI.MobileControls.Image

    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 m_WapShow As New BikeWap
        Dim m_Url As String
        m_Url = Request.ServerVariables("APPL_PHYSICAL_PATH") & "\mydatabase\#bikewap.mdb"
        Dim m_Dr As OleDbDataReader = m_WapShow.GetData(m_Url, "select * from guestbook order by AddTime desc")
        NewList.DataSource = m_Dr
        NewList.DataTextField = "MessageTitle"
        NewList.DataValueField = "MessageID"
        NewList.DataBind()
    End Sub

    Public Sub OnItemSelection(ByVal sender As System.Object, ByVal e As System.Web.UI.MobileControls.ListCommandEventArgs)
        Dim m_WapShow As New BikeWap
        Dim m_Url As String
        '取得数据库路径
        m_Url = Request.ServerVariables("APPL_PHYSICAL_PATH") & "\mydatabase\#bikewap.mdb"
        Dim strSQL As String = "select * from guestbook where MessageId =" & e.ListItem.Value
        Dim m_Dr As OleDbDataReader = m_WapShow.GetData(m_Url, strSQL)
        While m_Dr.Read
            LabMessageTitle.Text = "标题:" & m_Dr("MessageTitle")
            LabMessageContent.Text = "内容:" & m_Dr("MessageContent")
            LabPersonName.Text = "留言人:" & m_Dr("PersonName")
            LabEmail.Text = "Email:" & m_Dr("Email")
            LabAddTime.Text = "时间:" & m_Dr("AddTime")
        End While
        '将FrmMessageView设置为活动窗体
        ActiveForm = FrmMessageView
    End Sub

    Private Sub CmdSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdSubmit.Click
        Dim m_WapShow As New BikeWap
        Dim m_Url As String
        '取得数据库路径
        m_Url = Request.ServerVariables("APPL_PHYSICAL_PATH") & "\mydatabase\#bikewap.mdb"
        '下边为获取填写的信息,并将特殊字符去掉
        Dim m_MessageTitle, m_MessageContent, m_PersonName, m_Email As String
        m_MessageTitle = m_WapShow.ReplaceSpecficChar(TxtMessageTitle.Text.ToString)
        m_MessageContent = m_WapShow.ReplaceSpecficChar(TxtMessageContent.Text.ToString)
        m_PersonName = m_WapShow.ReplaceSpecficChar(TxtPersonName.Text.ToString)
        m_Email = m_WapShow.ReplaceSpecficChar(TxtEmail.Text.ToString)
        Dim strSQL As String
        strSQL = "insert into GuestBook (MessageTitle,MessageContent,PersonName,Email) values ('" & m_MessageTitle & "','" & m_MessageContent & "','" & m_PersonName & "','" & m_Email & "')"
        '写入数据库
        m_WapShow.InsertInfo(m_Url, strSQL)
        '转向成功页面
        ActiveForm = FrmSuccess
    End Sub
End Class