UC知道请教这段代码asp
来源：百度知道 编辑：UC知道 时间：2024/07/03 13:59:18
用户的登陆和编辑
Sub LoadUser
Sql="select * from Users where UserName='" & SqlShow(User_ID) & "'"
OpenRs(Sql)
Form_UserName=User_ID
Form_Password="88888888"
Form_Sex=Rs("Sex")
Form_Email=Rs("Email")
Rs.Close
End Sub
Sub EditUser
Form_Password=Request.Form("userpass")
Form_Sex=Request.Form("sex")
Form_Email=Request.Form("email")
If Form_Sex<>"男" And Form_Sex<>"女" Then
Form_Sex=""
End If
Sql="select * from Users where UserName='" & SqlShow(User_ID) & "'"
OpenRs(Sql)
If Form_Password<>"88888888" Then
Rs("UserPass")=MD5(Form_Password)
End If
Rs("Sex")=Form_Sex
Rs("Email")=Form_Email
Rs.Update
Rs.Close
Act="Save"
TurnTo &quo
Sub LoadUser
Sql="select * from Users where UserName='" & SqlShow(User_ID) & "'"
OpenRs(Sql)
Form_UserName=User_ID
Form_Password="88888888"
Form_Sex=Rs("Sex")
Form_Email=Rs("Email")
Rs.Close
End Sub
Sub EditUser
Form_Password=Request.Form("userpass")
Form_Sex=Request.Form("sex")
Form_Email=Request.Form("email")
If Form_Sex<>"男" And Form_Sex<>"女" Then
Form_Sex=""
End If
Sql="select * from Users where UserName='" & SqlShow(User_ID) & "'"
OpenRs(Sql)
If Form_Password<>"88888888" Then
Rs("UserPass")=MD5(Form_Password)
End If
Rs("Sex")=Form_Sex
Rs("Email")=Form_Email
Rs.Update
Rs.Close
Act="Save"
TurnTo &quo
If Form_Password<>"88888888" Then
......
end if
假如 ：密码 不等于 88888888 然后
就用MD5函数 对密码进行加密
========================================
不是密码初始化成88888888，只是一个判断，估计没有人这样写程序。
这个应是写来做MD5测试用的，
回答者： hnt8 说的对：估计没有人这样写程序。
密码固定了，不能修改，作用不大