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