UC知道ASP代码解释，越详细越好，马上论文答辩上要用
来源：百度知道 编辑：UC知道 时间：2024/09/22 23:39:36
其中“进入”按钮的代码设计如下：
apass=md5(apass)
dim sql,rs
sql="select a_name,a_pass,a_flag from admin where a_name='"&aname&"' and a_pass='"&apass&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.BOF and rs.EOF then
ErrMsg="用户名或是密码错误！"
Call LoginError(ErrMsg)
rs.close
set rs=Nothing
conn.close
set conn=Nothing
response.End
elseif Not(rs.BOF or rs.EOF) then
session("aname")=rs("a_name")
session("admin_flag")="into"
session("admin_sys")=rs("a_flag")
response.Redirect("useradmin.asp")
rs.close
set rs=Nothing
conn.close
set conn=Nothing
response.End
以上代码在语句的作用，及意思，，，谢谢，，
apass=md5(apass)
dim sql,rs
sql="select a_name,a_pass,a_flag from admin where a_name='"&aname&"' and a_pass='"&apass&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.BOF and rs.EOF then
ErrMsg="用户名或是密码错误！"
Call LoginError(ErrMsg)
rs.close
set rs=Nothing
conn.close
set conn=Nothing
response.End
elseif Not(rs.BOF or rs.EOF) then
session("aname")=rs("a_name")
session("admin_flag")="into"
session("admin_sys")=rs("a_flag")
response.Redirect("useradmin.asp")
rs.close
set rs=Nothing
conn.close
set conn=Nothing
response.End
以上代码在语句的作用，及意思，，，谢谢，，
'MD5加密取得的值
apass=md5(apass)
'在数据库 [admin] 表中查找 用户名 = 变量'aname'； 密码 = 变量'apass' 用户
dim sql,rs
sql="select a_name,a_pass,a_flag from admin where a_name='"&aname&"' and a_pass='"&apass&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
’如果记录集rs为空，则表示没有此记录，表中没有这个用户信息，登陆失败
if rs.BOF and rs.EOF then
ErrMsg="用户名或是密码错误！"
Call LoginError(ErrMsg)
rs.close '关闭记录集
set rs=Nothing '清空记录集
conn.close '关闭数据库连接
set conn=Nothing '清空数据库连接
response.End
elseif Not(rs.BOF or rs.EOF) then '如果查询结果不为空，则表示记录存在，将用户信息写入session
session("aname")=rs("a_name") '用户名写入session
session("admin_flag")="into" '用户权限写入session
session("admin_sys")=rs("a_flag")
response.Redirect("useradmin.asp") '跳