'MD5加密取得的值apass=md5(apass)'在数据库 [admin] 表中查找 用户名 = 变量'aname'; 密码 = 变量'apass' 用户dim sql,rssql="select a_name,a_pass,a_flag from admin where a_name='"&aname&"' and a_pass='"&apass&"'"set rs=("") sql,conn,1,1’如果记录集rs为空,则表示没有此记录,表中没有这个用户信息,登陆失败if and then ErrMsg="用户名或是密码错误!" Call LoginError(ErrMsg) '关闭记录集set rs=Nothing '清空记录集 '关闭数据库连接set conn=Nothing '清空数据库连接 Not( or ) then '如果查询结果不为空,则表示记录存在,将用户信息写入session session("aname")=rs("a_name") '用户名写入sessionsession("admin_flag")="into" '用户权限写入sessionsession("admin_sys")=rs("a_flag")("") '跳转到用户中心页面,用户登陆成功 '关闭记录集set rs=Nothing '清空记录集 '关闭数据库连接set conn=Nothing '清空数据库连接