<% dim user,pwd,rs,msg user=Trim(Request.Form("username")) pwd=Trim(Request.Form("password")) user=replace(user,"'","''") pwd=replace(pwd,"'","''") msg="" set rs=conn.execute("select * from PSLogins where LoginID='" & user & "' and [password]='" & pwd & "'") if rs.eof then msg = "用户名或密码输入错误!请重新输入" else session("ok")=user session("idno")=rs("id") session("id") = rs("LoginID") Session("Name") = rs("userName") Session("Password") = rs("Password") Session("IsSystemManager")=rs("IsSystemManager") if rs("IsSystemManager")=1 then session("is_admin")=1 else session("is_admin")=0 end if if rs("IsSystemManager")=0 then response.Write "" end if if rs("IsSystemManager")=1 then response.Write "" end if end if rs.close %>
会员登录

IE6用户请注意:

问题:登录时,为何提示用户不存在或密码错误?

回答:若确认主机存在且密码为正确的,则可能为浏览器cookie设置问题(通常IE6.0方可能出现该问题)。IE6.0设置方式:工具—Internet选项—隐私—高级,“覆盖自动cookie处理(0)”选项前打勾;第一方及第三方Cookie均选择“接受”。

设为首页  收藏本站  鹭燕主页


<%if msg<>"" then%>
<%response.write msg end if%>