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
13
14Public Partial Class del_picClass del_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        Try 
22                    
23        Using oleconn As New OleDbConnection() 
24            oleconn.ConnectionString = ConfigurationManager.ConnectionStrings("oleConnectionString").ConnectionString 
25            oleconn.Open() 
26            Dim strSQL As String = "delete from pic where id=" + Request("id")
27            Dim command As New OleDbCommand(strSQL, oleconn) 
28            command.ExecuteNonQuery() 
29                            
30            oleconn.Close() 
31            oleconn.Dispose() 
32            Response.Write("<script language='javascript'>window.confirm('图片已经成功删除！！');</script>") 
33            Response.Write("<script language='javascript'>document.location='manager_pic.aspx';</script>") 
34        End Using 
35        Catch err As Exception 
36            Dim str As String = err.Message.Replace("'", "") 
37            Response.Write("<script>alert('" + str + "');</script>") 
38        End Try 
39    End Sub 
40End Class