check.asp

一个简单的客户管理系统

<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("sun.mdb")
dim name,password,isadmin

if request.Form("password")<>"" then
name=request.form("name")
password=request.form("password")
dim exec,conn,rs
exec="select *from che where(name='"&name&"' and password='"&password&"')"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn

if not rs.eof then
session("leve")=rs("leve")
session("user")=rs("name")
session("cname")=rs("cname")
session("tel")=rs("tel")
session("email")=rs("email")
if rs("branch")="市场部" then
session("branch")="sell" 
end if 
if rs("branch")="物资部" then
session("branch")="depot" 
end if 
if rs("branch")="总经理" then
session("branch")="check" 
end if 
if rs("branch")="总经办" then
session("branch")="assistant" 
end if 

rs.Close
conn.Close
session("checked")="yes"
session("check")="right"

response.Redirect("index.asp")
else
session("checked")="no"
session("check")="wrong"
response.Redirect "login.asp"
end if
end if

%>