login.asp

网络购物

<%
'=========================================
'
'         凡人网络购物系统V4.0免费版
'    FreeDown.Net [e-mail] 
'            www.freedown.net
'     版权所有·免费版仅供研究测试只用
'            商业使用请购买正版
'
'=========================================
%>
<!--#include file="top.asp"-->
<!-- #include file="MD5.asp" -->
 <%dim rs1,sql1
          set rs1=server.createobject("adodb.recordset")
          sql1="select * from sort"
          rs1.open sql1,conn,3,3
          if rs1.eof then
          response.write ""
          end if
          do while not rs1.eof
          %>
            <%rs1.movenext
          loop
          rs1.close%>
    <%
    if session("user_name")="" then
    user_name=trim(request("user_name"))
    user_pass=md5(request("user_pass"))
    if user_name="" or user_pass="" then
        errmsg=errmsg+"<br>"+"<li>用户名和用户密码不能为空!"
        founderr=true
    end if
    sql1="select * from member where user_name='"&user_name&"'"
    rs1.open sql1,conn,3,3
    if rs1.eof then
        errmsg=errmsg+"<br>"+"<li>你输入的用户不存在!"
        founderr=true
    elseif user_pass=rs1("user_pass") then
        session("user_name")=rs1("user_name")
  	    session("user_type")=rs1("user_type")
        rs1("user_lasttime")=now()
        rs1("user_lastip")=request.servervariables("remote_addr")
        rs1.update
    else
        errmsg=errmsg+"<br>"+"<li>你输入的密码错误!"
        founderr=true
    end if
    rs1.close
    if founderr=true then
    %>
<%else%>
      <%
response.redirect "index.asp"
%>
<%end if
else
response.redirect "index.asp"
end if%>


<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="778" height="300">
    <tr>
      <td align="center"><p><strong>
      用户名或密码错误！！！</strong></p>
<p><a href="javascript:history.go(-1)">请重新登陆</a> </p>　</td>
    </tr>
  </table>
  </center>
</div>
<!--#include file="copy.asp"-->