Imports System.Data
Imports System.Data.OleDb
Imports System.Web.Security
Partial Class password
Inherits System.Web.UI.Page
Dim userid As String
Dim wt As String
Dim da As String Private mystr As String, mysql As String, rs As String
Private upd As New OleDb.OleDbDataAdapter
Private myconn As New OleDbConnection()
Private mycmd As New OleDbCommand()
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
mystr = "Provider = Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =" & Server.MapPath("~\\App_data\\library.mdb")
myconn.ConnectionString = mystr
myconn.Open()
End Sub Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
mysql = "SELECT * FROM [stu]" 'where [user]= ' " & Trim(user.Text) & "'" AND 'where [问题]= ' " & Trim(wenti.Text) & "'"AND 'where [答案]= ' " & Trim(daan.Text) & "'"
rs = ("update [stu] set [code]=' " & Trim(newcode.Text) & "' where 用户名='" & Trim(user.Text) & "'")
upd.Update = rs
mycmd.CommandText = mysql
mycmd.Connection = myconn
Dim myreader As OleDbDataReader = mycmd.ExecuteReader()
If user.Text = "" Then
message.Text = "请输入用户名!"
Else
If code.Text = "" Or newcode.Text = "" Then
message.Text = "请输入新密码!"
Else
If wenti.Text = "" Or daan.Text = "" Then
message.Text = "请输入解密问题和答案!"
Else
While myreader.Read()
userid = myreader.Item(1)
wt = myreader.Item(3)
da = myreader.Item(4)
End While
If user.Text <> userid Then
message.Text = "用户名不对,请重新输入!"
user.Text = ""
code.Text = ""
newcode.Text = ""
wenti.Text = ""
daan.Text = ""
Else
If wenti.Text <> wt Or daan.Text <> da Then
message.Text = "问题或答案不对,请重新输入!"
code.Text = ""
newcode.Text = ""
wenti.Text = ""
daan.Text = ""
Else
'passward.Text = FormsAuthentication.HashPasswordForStoringInConfigFile(passward.Text, "MD5")
If code.Text <> newcode.Text Then
message.Text = "两个密码不相同!请重新输入!"
code.Text = ""
newcode.Text = ""
wenti.Text = ""
daan.Text = ""
Else Session("user") = "administrator"
rs = ("update [stu] set [code]='" & newcode.Text & "' where 用户名='" & user.Text & "'")
message.Text = "密码修改成功!请返回上一页面重新登录"
End If
End If
End If
End If
End If
End If
End Sub
Imports System.Data.OleDb
Imports System.Web.Security
Partial Class password
Inherits System.Web.UI.Page
Dim userid As String
Dim wt As String
Dim da As String Private mystr As String, mysql As String, rs As String
Private upd As New OleDb.OleDbDataAdapter
Private myconn As New OleDbConnection()
Private mycmd As New OleDbCommand()
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
mystr = "Provider = Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =" & Server.MapPath("~\\App_data\\library.mdb")
myconn.ConnectionString = mystr
myconn.Open()
End Sub Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
mysql = "SELECT * FROM [stu]" 'where [user]= ' " & Trim(user.Text) & "'" AND 'where [问题]= ' " & Trim(wenti.Text) & "'"AND 'where [答案]= ' " & Trim(daan.Text) & "'"
rs = ("update [stu] set [code]=' " & Trim(newcode.Text) & "' where 用户名='" & Trim(user.Text) & "'")
upd.Update = rs
mycmd.CommandText = mysql
mycmd.Connection = myconn
Dim myreader As OleDbDataReader = mycmd.ExecuteReader()
If user.Text = "" Then
message.Text = "请输入用户名!"
Else
If code.Text = "" Or newcode.Text = "" Then
message.Text = "请输入新密码!"
Else
If wenti.Text = "" Or daan.Text = "" Then
message.Text = "请输入解密问题和答案!"
Else
While myreader.Read()
userid = myreader.Item(1)
wt = myreader.Item(3)
da = myreader.Item(4)
End While
If user.Text <> userid Then
message.Text = "用户名不对,请重新输入!"
user.Text = ""
code.Text = ""
newcode.Text = ""
wenti.Text = ""
daan.Text = ""
Else
If wenti.Text <> wt Or daan.Text <> da Then
message.Text = "问题或答案不对,请重新输入!"
code.Text = ""
newcode.Text = ""
wenti.Text = ""
daan.Text = ""
Else
'passward.Text = FormsAuthentication.HashPasswordForStoringInConfigFile(passward.Text, "MD5")
If code.Text <> newcode.Text Then
message.Text = "两个密码不相同!请重新输入!"
code.Text = ""
newcode.Text = ""
wenti.Text = ""
daan.Text = ""
Else Session("user") = "administrator"
rs = ("update [stu] set [code]='" & newcode.Text & "' where 用户名='" & user.Text & "'")
message.Text = "密码修改成功!请返回上一页面重新登录"
End If
End If
End If
End If
End If
End If
End Sub
解决方案 »
- NeatUpload 上传完成事件
- 如何通过IP获得访问机所在地址
- ASP.net中如何移动控件
- UrlRewriter重写功能在VS2008中运行成功,但在IIS出现(iis是5.0的)
- 各位大侠帮帮忙呀,这个问题我已经问了很多人了,没有人知道
- VS 2005 没有组建类的概念了?
- 图片文件夹中文件过多,是否影响图片访问速度
- 投票系统:我做了IP限制(一个IP只能投一次),可是我发现用户通过修改IP投票,(头痛)
- 如何让一个dropdownlist里面绑定的数据有一个我指定的默认值
- C# 操作word时,使用Microsoft.office.interop.word .运行到add方法时,报word无法读取此文档,文档可能已经损坏错误
- C# IIS服务器无法获取远程客户端外网IP
- asp.net mvc4中如何获取所有EF或DataSet中的表或查询情况
upd.Update = rs
mycmd.CommandText = mysql
mycmd.Connection = myconn
Dim myreader As OleDbDataReader = mycmd.ExecuteReader()
If user.Text = "" Then
message.Text = "请输入用户名!"
Else
If code.Text = "" Or newcode.Text = "" Then
message.Text = "请输入新密码!"
没有指定连接你能UPdate?为什么这里UP了下面又executeReader
你是run还是Read?如果是Read你Read的数据呢?
另外说点这几行中其它的问题
code.text和newcode.text用or能判断为都是新密码没有输入?
.................
这一整片全都重写吧,这没有办法执行的,一堆烂码!参考一下历史贴
http://bbs.csdn.net/topics/392131988
End If
End If
End If
End If
End If
End If
这么多层导致出现BUG的可能性增大和找出BUG的难度变高.
mysql这样的关键字不要用作变量,
注意一下编程规范,缩进什么的都在意一下,.....