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.SqlClient 
12Imports System.Data.OleDb 
13
14Public Partial Class add_picClass add_pic 
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
22        Try 
23                        
24            Using oleconn As New OleDbConnection() 
25                oleconn.ConnectionString = ConfigurationManager.ConnectionStrings("oleConnectionString").ConnectionString 
26                oleconn.Open() 
27                Dim adapter As New OleDbDataAdapter() 
28                adapter.SelectCommand = New OleDbCommand("select * from picclass", oleconn) 
29                Dim DataSet1 As New System.Data.DataSet() 
30                adapter.Fill(DataSet1, "picclass") 
31                DropDownList1.DataSource = DataSet1.Tables("picclass").DefaultView 
32                DropDownList1.DataTextField = "pic_class" 
33                DropDownList1.DataValueField = "pic_class" 
34                DropDownList1.DataBind() 
35                                
36                oleconn.Close() 
37                                    
38                oleconn.Dispose() 
39            End Using 
40            Catch err As Exception 
41            Dim str As String = err.Message.Replace("'", "") 
42            Response.Write("<script>alert('" + str + "');</script>") 
43        End Try 
44    End Sub 
45
46    Protected Sub Button1_Click()Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) 
47        If Session("loginname") Is Nothing OrElse Session("loginname").ToString() = "" Then 
48            Response.Write("<script>alert('用户登录时间超时,请重新登录');document.location='admin.aspx'</script>") 
49            Response.[End]() 
50        End If 
51        Try 
52            Dim user_name1 As String = "" 
53            Dim user_title1 As String = "" 
54            Dim user_text1 As String = "" 
55                    
56            Using oleconn As New OleDbConnection() 
57                oleconn.ConnectionString = ConfigurationManager.ConnectionStrings("oleConnectionString").ConnectionString 
58                oleconn.Open() 
59                            
60                Dim strSQL As String = "Insert INTO pic(pic_name,pic_type,pic_class,pic_text,pic_url,pic_lurl) Values('" + pic_name.Text + "','" + pic_type.Text + "','" + DropDownList1.SelectedValue + "','" + pic_text.Text + "','" + pic_url.Text + "','" + pic_lurl.Text + "')" 
61                Dim command As New OleDbCommand(strSQL, oleconn) 
62                command.ExecuteNonQuery() 
63                            
64                oleconn.Close() 
65                oleconn.Dispose() 
66                Response.Write("<script language='javascript'>window.confirm('产品已经成功添加！！');</script>") 
67                Response.Write("<script language='javascript'>parent.window.history.go(-1);</script>") 
68            End Using 
69
70            Catch err As Exception 
71            Dim str As String = err.Message.Replace("'", "") 
72            Response.Write("<script>alert('" + str + "');</script>") 
73        End Try 
74            
75    End Sub 
76End Class