<%
if session("tealgOk")=true then
response.Redirect("tea_main.asp")
else
session("tealgOk")=false
end if
dim sql,rs,action
dim username,password
action=trim(request.QueryString("action"))
select case action
case "checkLoginUser"
call checkLoginUser()
case else
call showLoginForm()
end select
//检查查询用户登陆
function checkLoginUser()
username=trim(request.Form("username"))
password=md5(trim(request.Form("password")))
//从数据库中查询用户名和密码
sql="select * from teaInfo where teaName='"&username&"' and teaPwd='"&password&"'"
set rs=conn.execute(sql)
if not (rs.bof or rs.eof) then
session("tealgOk")=true
session("teaID")=username
response.Redirect("tea_main.asp")
else
response.Write("非法用户，请重新登陆")
session("tealgOk")=false
end if
end function
//显示查询用户登陆窗口
function showLoginForm()
%>
<%
end function
%>