Question

asp.net代码求每行都翻译一下，非常感谢，急

if FoundErr<>True then
If UserType = "管理员" Then
AdminPsw=md5(AdminPsw)
sql="select * From zl_admin where AdminPsw='"&AdminPsw&"' and AdminName='"&AdminName&"'"
rs.open sql,conn,3,2
if rs.bof and rs.eof then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>用户名或密码错误！！！</li>"
else
if AdminPsw<>rs("AdminPsw") then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>用户名或密码错误！！！</li>"
else
rs("LastIP")=Request.ServerVariables("REMOTE_ADDR")
rs("LastLogin")=now()
rs("LoginCount")=rs("LoginCount")+1
rs.update
session.Timeout=60
session("AdminName__")=rs("AdminName")
session("Flag__")=rs("Flag")
session("usertype")="管理员"
rs.close
set rs=nothing
Response.Redirect "Default.asp"
end if
end if
Else
sql="select * From zl_teacher where Password='"&AdminPsw&"' and UserName='"&AdminName&"'"
rs.open sql,conn,3,2
if rs.bof and rs.eof then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>用户名或密码错误！！！</li>"
else
if AdminPsw<>rs("Password") then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>用户名或密码错误！！！</li>"
else
rs.update
session.Timeout=60
session("AdminName__")=rs("UserName")
session("Flag__")=1
session("usertype")="教师"
rs.close
set rs=nothing
Response.Redirect "Default.asp"
end if
end if
End If
rs.close
set rs=nothing
end if
if FoundErr=True then
call WriteErrMsg()
end if
End Function

Answer 1

//FoundErr这个变不等于true时进入if
If FoundErr <> True Then
// 如果UserType是管理员
If UserType = "管理员" Then
// 对管理员的登录密码进行MD5加密
AdminPsw = md5(AdminPsw)
// 用MD5加密后的管理员密码与账号拼接数据库查询的SQL语句
sql = "select * From zl_admin where AdminPsw='" & AdminPsw & "' and AdminName='" & AdminName & "'"
// 使用conn这个数据库连接，sql这条语句，获取一个数据集（rs即是RecordSet：是一个数据集），语法：语法 recordset.Open Source, ActiveConnection, CursorType, LockType, Options 其中：3表示： AdOpenStatic 静态游标，2表示：adLockPessimistic 保守式锁定

rs.open sql,conn,3,2
// bof表示在第一条记录之前（即空记录），eof表示最后一条记录之后（也是空记录）。当一个数据集是空的时候，是rs.bof，也是rs.eof，
If rs.bof And rs.eof Then
// 设置FoundErr为true
FoundErr = True
// 并输出错误信息
ErrMsg = ErrMsg & "<br><li>用户名或密码错误！！！</li>"
Else
// 获取记录集中的管理员密码（MD5加密后）与用户输入的密码（MD5加密后）如果不相等，即登录失败
If AdminPsw <> rs("AdminPsw") Then
// 设置FoundErr为true
FoundErr = True
// 输入登录失败的错误信息
ErrMsg = ErrMsg & "<br><li>用户名或密码错误！！！</li>"
Else
// 密码相同，登录成功，设置数据集中用户最后一次登录的IP即本次登录的IP，Request.ServerVariables("REMOTE_ADDR")获取IP地址
rs("LastIP") = Request.ServerVariables("REMOTE_ADDR")
// 设置数据集中登录时间
rs("LastLogin") = Now()
// 设置数据集中登录次数+1
rs("LoginCount") = rs("LoginCount") + 1
// 将最的数据集数据更新提交到数据库保存
rs.update
// 设置Session超时时间，即如果60分钟内页面无任何动作，则自动退出登录
Session.Timeout = 60
// 在Session中保存用户登录名
Session("AdminName__") = rs("AdminName")
// 在session中保存用户登录的标记
Session("Flag__") = rs("Flag")
// 在session中保存用户类型
Session("usertype") = "管理员"
// 关闭记录集
rs.Close
// 显式声明该变量为空，期望占用的内存能回收
Set rs = Nothing
// 登录成功，重写向到Default.asp
Response.Redirect "Default.asp"
End If

End If
//FoundErr这个变等于true时
Else
// 这个else里面的跟上面的If是一样的内容
sql = "select * From zl_teacher where Password='" & AdminPsw & "' and UserName='" & AdminName & "'"
rs.open sql,conn,3,2

If rs.bof And rs.eof Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>用户名或密码错误！！！</li>"
Else

If AdminPsw <> rs("Password") Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>用户名或密码错误！！！</li>"
Else
rs.update
Session.Timeout = 60
Session("AdminName__") = rs("UserName")
Session("Flag__") = 1
Session("usertype") = "教师"
rs.Close
Set rs = Nothing
Response.Redirect "Default.asp"
End If

End If

End If

rs.Close
Set rs = Nothing
End If

If FoundErr = True Then
// 如果登录失败，即FoundErr等于true则调用WriteErrMsg方法，写入错误信息
Call WriteErrMsg()
End If

End Function

Answer 2

这是asp的.
不是asp.net

追问

请问能告诉我每行代码的意思吗？