login.asp

ASP+ACCESS 产品报价系统 开发环境简单 主要是周杰伦FANs的交互活动

<!--#include file="top.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%>
<link href="img/style.css" rel="stylesheet" type="text/css">


<title>系统提示</title><p><font color="#FFFFFF"><strong>错误！！</strong></font></p>
<TABLE 
                  width=310 border=0 align="center" cellPadding=5 cellSpacing=1 bgColor=#999999>
  <TBODY>
    <TR> 
      <TD align=middle bgColor=#fff2d5><div align="center"><font color="#990000"><strong>系统提示！</strong></font></div></TD>
    </TR>
    <TR> 
      <TD align=middle 
                bgColor=#ffffff><div align="center"><a href="javascript:history.go(-1)"><font color="#666666">你输入的用户名和密码错误，请重新登陆</font></a></div></TD>
    </TR>
  </TBODY>
</TABLE>