login.asp

自做的购物网站

<!--#include file="conn.asp"-->
 <%dim rs,sql
          set rs=server.createobject("adodb.recordset")
          sql="select * from sort"
          rs.open sql,conn,3,3
          if rs.eof then
          response.write ""
          end if
          do while not rs.eof
          %>
            <%rs.movenext
          loop
          rs.close%>
    <%
    if session("user_name")="" then
    user_name=trim(request("user_name"))
    user_pass=trim(request("user_pass"))
    if user_name="" or user_pass="" then
        errmsg=errmsg+"<br>"+"<li>用户名和用户密码不能为空!"
        founderr=true
    end if
    sql="select * from member where user_name='"&user_name&"'"
    rs.open sql,conn,3,3
    if rs.eof then
        errmsg=errmsg+"<br>"+"<li>你输入的用户不存在!"
        founderr=true
    elseif user_pass=rs("user_pass") then
        session("user_name")=rs("user_name")
  	    session("user_type")=rs("user_type")
        rs("user_lasttime")=now()
        rs("user_lastip")=request.servervariables("remote_addr")
        rs.update
    else
        errmsg=errmsg+"<br>"+"<li>你输入的密码错误!"
        founderr=true
    end if
    rs.close
    if founderr=true then
    %>
<%else%>
      <%
response.redirect "index.asp"
%>
<%end if
else
response.redirect "index.asp"
end if%>

<p><font color="#FFFFFF"><strong>错误！！！</strong></font></p>
<p><a href="javascript:history.go(-1)">重新登陆</a></p>