高端别墅装饰设计:帮帮忙解释以下MD5代码的意思吧~~

<%
Dim login__strUserID '声明变量
login__strUserID = "x" '设置变量默认值为"X"
if (Request.Form("UserID") <> "") then login__strUserID = Request.Form("UserID")' '用户名设置:如果表单提交的值为空则设置变量为X
%> <%
Dim login__strPassword
login__strPassword = "1" '默认密码设置为字符串"1"
if (Request.Form("Password") <> "") then login__strPassword = Request.Form("Password") '密码设置,同上.
%> <%
set login = Server.CreateObject("ADODB.Recordset")
login.ActiveConnection = MM_qwqw_STRING
login.Source = "SELECT * FROM Reg WHERE User = '" + Replace(login__strUserID, "'", "''") + "' AND Pass = '" + md5(trim(replace(login__strPassword, "'", "''"))) + "'" '打开数据库,其中数据库中密码PASSWORD原来是用MD5加密的,所以用到MD5函数才能匹配字符串
login.CursorType = 0
login.CursorLocation = 2
login.LockType = 3
login.Open() '打开记录集
login_numRows = 0'这应是分页程序的一个变量名称
%>

<%
if(Request.Form("Pass") <> "") then Command_pass = md5(Request.Form("Pass"))
%>
<%
set Command = Server.CreateObject("ADODB.Command")
Command.ActiveConnection = MM_qwqw_STRING
Command.CommandText = "INSERT INTO Reg (User, Pass) VALUES ('" + Replace(Command_User, "'", "''") + "','" + Replace(Command_pass, "'", "''") + "') " '基本同上为打开数据库程序
Command.CommandType = 1
Command.CommandTimeout = 0
Command.Prepared = true
Command.Execute() '以上为记录集的一些参数
'这行应有错误,没有IF语句.可能是"if Command.eof then"
Response.Redirect "ok.asp" '如果有匹配记录就转向OK.ASP(一般是登陆成功提示)这个页面.
else
Response.Redirect "error.asp" '否则转向操作失败页面
End If
%>

MD5是一种加密算法,就是把你的密码加密以后寸入数据库,它是单向的也就是说不可反向解密的,登陆时就要再加密一次和你数据库里寸的已经加密的密码进行比较来验证.

MD5加密啊！