Question

请高手翻译一下ASP代码 谢谢

<%
if NOT isempty(request("LoginSubmit")) then
dim admin,password
admin=replace(trim(request("Name")),"'","")
password=replace(trim(request("Pws")),"'","")
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from [admin] where admin='"&admin&"' and password='"&password&"' " ,conn,1,1
if not(rs.bof and rs.eof) then
if password=rs("password") then
session("admin")=trim(rs("admin"))
session("rank")=int(rs("rank"))
session.Timeout=sessionLife
rs.Close
set rs=nothing
response.Redirect "mpro.asp"
else
call MsgBox("登录失败！","Back","None")

end if
else
call MsgBox("非法登陆！","Back","None")
end if
end if
%>

Answer 1

登录验证。
读表单（request），读数据库（rs），比较之，若非法则请出，若正确，写入session。