<%
YHM=request.form("YHM")
MM=Request.form("MM")
if (trim(YHM)="") then
session("login")=""
session("YHM")=""
msg=""
else
sqlstr="select ID,YHM,KYBZ from T_user where 1=1"
sqlstr=sqlstr & " and YHM='" & YHM & "'"
sqlstr=sqlstr & " and MM='" & MM & "'"
set myrs=server.CreateObject("adodb.recordset")
myrs.Open sqlstr,conn,1,1
if myrs.recordCount=1 then
if myrs("KYBZ")="1" then
session("login")="login"
session("YHM")=myrs("YHM")
msg="在线用户："+myrs("YHM")+""
else
session("login")=""
session("YHM")=""
msg=""+myrs("YHM")+" 您好，您的帐号目前还没有激活。我们会在24小时内，审核后，开通你的会员功能。"
end if
else
session("login")=""
session("YHM")=""
msg="您的用户名或密码不正确"
end if
end if
%>
