曾老師程式設計館

原始碼程式範例

好站相報

技術論壇

易尋網

原始程式碼

<%@ Page Language="VB" MasterPageFile="~/MasterPage.master" Title="Untitled Page" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        NameLabel.Text = Session("member")
End Sub

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        If TextBox1.Text = "" Then
            Label1.Text = "請填寫主旨"
            Exit Sub
        End If
        
        If TextBox2.Text = "" Then
            Label2.Text = "請填寫內容"
            Exit Sub
        End If
        
        Dim objConn As New OleDbConnection
        
        objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("~/App_Data/board.mdb")
        
        objConn.Open()

Dim SQL = "Insert Into subject (board_id, subject, content, create_time) Values ('networkng', '" & TextBox1.Text & "','" & TextBox2.Text & "',#" & date24(Now()) & "#)"
        'Dim SQL = "Insert Into ss (board_id, subject, content) Values ('networkng', '1','2')"
        
        Dim objCmd As New OleDbCommand(SQL, objConn)
        objCmd.ExecuteNonQuery()

objConn.Close()
        
        Response.Redirect("~/board.aspx")
    End Sub
    
    Protected Function date24(ByVal NDate As String)
        Dim temp As String
        If NDate <> "" Then
            temp = Year(NDate) & "/"
            If Month(NDate) < 10 Then temp = temp & "0"
            temp = temp & Month(NDate) & "/"
            If Day(NDate) < 10 Then temp = temp & "0"
            temp = temp & Day(NDate) & " "
            If Hour(NDate) < 10 Then temp = temp & "0"
            temp = temp & Hour(NDate) & ":"
            If Minute(NDate) < 10 Then temp = temp & "0"
            temp = temp & Minute(NDate) & ":"
            If Second(NDate) < 10 Then temp = temp & "0"
            temp = temp & Second(NDate)
            If temp = "// ::" Then
                date24 = "????"
            Else
                date24 = temp
            End If
        End If
    End Function
</script>

<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
    <table width="100%">
        <tr>
            <td>
                會員名稱：<asp:Label ID="NameLabel" runat="server" Text="Label"></asp:Label></td>
        </tr>
        <tr>
            <td>
                主題：<asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
                <asp:Label ID="Label1" runat="server" Text="Label"></asp:Label></td>
        </tr>
        <tr>
            <td style="height: 27px">
                內容：<asp:TextBox ID="TextBox2" runat="server" MaxLength="60" Rows="5" TextMode="MultiLine" Width="390px"></asp:TextBox></td>
        </tr>
        <tr>
            <td style="height: 27px">
                <asp:Button ID="Button1" runat="server" Text="新增留言" OnClick="Button1_Click" />
                <asp:Label ID="Label2" runat="server" Text="Label"></asp:Label></td>
        </tr>
    </table>
</asp:Content>

	1. 請點選此處複製以上資料
	2. 請按ctrl-c複製到剪貼簿
	3. 切換到ASP的原始內碼區
	4. 請按ctrl-v貼上所有資料