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'5_1_a_s_p_x.c_o_m
13
14Public Partial Class top_addClass top_add 
15    Inherits System.Web.UI.Page 
16    Protected Sub Page_Load()Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) 
17        If Session("loginname") Is Nothing OrElse Session("loginname").ToString() = "" Then 
18            Response.Write("<script>alert('用户登录时间超时,请重新登录');document.location='/admin.aspx'</script>") 
19            Response.[End]() 
20        End If 
21    End Sub 
22    Protected Sub Button1_Click()Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) 
23        If Session("loginname") Is Nothing OrElse Session("loginname").ToString() = "" Then 
24            Response.Write("<script>alert('用户登录时间超时,请重新登录');document.location='/admin.aspx'</script>") 
25            Response.[End]() 
26        End If 
27
28        Try 
29            Using oleconn As New OleDbConnection() 
30                oleconn.ConnectionString = ConfigurationManager.ConnectionStrings("oleConnectionString").ConnectionString 
31                oleconn.Open() 
32                                
33                Dim strSQL As String = "Insert INTO data([name],neirong) Values('" + titlename.Text + "','" + neirong.Text + "')" 
34                Dim command As New OleDbCommand(strSQL, oleconn) 
35                command.ExecuteNonQuery() 
36                                
37                oleconn.Close() 
38                oleconn.Dispose() 
39                Response.Write("<script language='javascript'>window.confirm('已经成功添加！！');</script>") 
40                Response.Write("<script language='javascript'>document.location='add.aspx';</script>") 
41            End Using 
42            Catch err As Exception 
43                Dim str As String = err.Message.Replace("'", "") 
44                Response.Write("<script>alert('" + str + "');</script>") 
45        End Try 
46    End Sub 
47End Class