1Imports System 
 2Imports System.Data 
 3Imports System.Configuration 
 4Imports System.Collections 
 5Imports System.Web 
 6Imports System.Web.Security 
 7Imports System.Web.UI 
 8Imports System.Web.UI.WebControls 
 9Imports System.Web.UI.WebControls.WebParts 
10Imports System.Web.UI.HtmlControls 
11Imports System.Data.OleDb 
12
13Public Partial Class guestbookClass guestbook 
14    Inherits System.Web.UI.Page 
15    Protected Sub Page_Load()Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) 
16        
17    End Sub 
18    Protected Sub Button1_Click()Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) 
19        Try 
20            Dim user_name1 As String = "" 
21            Dim user_title1 As String = "" 
22            Dim user_text1 As String = "" 
23                        
24            Using oleconn As New OleDbConnection() 
25                oleconn.ConnectionString = ConfigurationManager.ConnectionStrings("oleConnectionString").ConnectionString 
26                oleconn.Open() 
27                If user_name.Text IsNot Nothing AndAlso user_name.Text <> "" Then 
28                    user_name1 = user_name.Text 
29                End If 
30                If user_title.Text IsNot Nothing AndAlso user_title.Text <> "" Then 
31                    user_title1 = user_title.Text 
32                End If 
33                If user_text.Text IsNot Nothing AndAlso user_text.Text <> "" Then 
34                    user_text1 = user_text.Text 
35                End If 
36                                
37                Dim strSQL As String = "Insert INTO guestbook(user_title,user_text,user_name) Values('" + user_title1 + "','" + user_text1 + "','" + user_name1 + "')" 
38                Dim command As New OleDbCommand(strSQL, oleconn) 
39                command.ExecuteNonQuery() 
40                                
41                oleconn.Close() 
42                oleconn.Dispose() 
43                Response.Write("<script language='javascript'>window.confirm('您的留言已经成功添加！！');</script>") 
44                Response.Write("<script language='javascript'>parent.window.history.go(-1);</script>") 
45            End Using 
46            Catch err As Exception 
47                Dim str As String = err.Message.Replace("'", "") 
48                Response.Write("<script>alert('" + str + "');</script>") 
49        End Try 
50    End Sub 
51End Class