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 mod_pwdClass mod_pwd 
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        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        Using oleconn As New OleDbConnection() 
28            oleconn.ConnectionString = ConfigurationManager.ConnectionStrings("oleConnectionString").ConnectionString 
29            oleconn.Open() 
30            Dim strSQL As String = "update admin set admin_pwd='" + admin_pwd.Text + "'" 
31            Dim command As New OleDbCommand(strSQL, oleconn) 
32            command.ExecuteNonQuery() 
33                        
34            oleconn.Close() 
35            oleconn.Dispose() 
36                            
37            Response.Write("<script language='javascript'>window.confirm('已经成功修改密码！！');</script>") 
38        End Using 
39    End Sub 
40End Class