checklogin.asp

很不错的进销存系统, 本系统适用于轮胎经销使用

<!--#include file=conn.asp-->
<%
dim name,password,rs,sql
name=replace(request.form("name"),"'","")
password=replace(request.form("password"),"'","")
set rs=server.createobject("adodb.recordset")
sql="select * from [admin] where name='"&name&"' and password='"&password&"'"
rs.open sql,conn,1,1
if not rs.bof and not rs.eof then
    if password=rs("password") then
       response.cookies("ershou")("administrator")=rs("name")
       response.cookies("ershou")("ijob")=1
       session("admin_ijob")=now()
       response.cookies("ershou")("domain")=request.ServerVariables("server_name")
       response.redirect"index1.asp"
    else
       response.write"<script language=javascript>alert('用户名或密码错误！')</script>"
       response.redirect "login.asp"
       response.end
    end if
else
    response.write"<script language=javascript>alert('身份确认失败！');location.href='index.asp';</script>"
    response.end
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>