checkuser.asp

来自「还是同学录 功能较为的简单点 挺好用的」· ASP 代码 · 共 41 行

<!--#include file="conn.asp"-->
<!--#include file="error.asp"--> 
<!--#include file="md5.asp"-->
<title><%=sitename%></title>
<%
  dim user,password
  user=lcase(trim(request.form("user")))
  password=request.form("password")
  if user="" then
      founderr=true
      errinfo="<li>请输入帐号<br>"
  else
      set rs=conn.execute("select id from user where user='"&user&"'")
      if rs.eof and rs.bof then
          founderr=true
          errinfo="<li>你输入的帐号有误<br>"
      end if
      set rs=nothing
  end if
  if password="" then
      founderr=true
      errinfo=errinfo&"<li>请输入密码<br>"
  else
      set rs=conn.execute("select id from user where password='"&md5(password)&"'")
      if rs.eof and rs.bof then
          founderr=true
          errinfo=errinfo&"<li>你输入的密码有误<br>"
      end if
      set rs=nothing
  end if
  if founderr=true then
      call errweb()
  else
      session("member_address_list")=user
      conn.execute("update user set logindate=now() where user='"&user&"'")
      response.redirect"main.asp"
  end if

  conn.close
  set conn=nothing
%>