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