|
<%
dim the_action
dim gotopage
dim the_msg
the_msg=""
gotopage=GetParam("gotopage")
the_action=GetParam("the_action")
'response.write action & "sdfsdfsdf"
select case the_action
case "check"
the_email=GetParam("txt_email")
the_password=GetParam("txt_password")
'save=GetParam("chk_save")
sql="SELECT id,email,the_type FROM tbl_member WHERE email='" & the_email & "' AND the_password='" & the_password & "'"
'response.write sql
openrs rs,sql,0
if rs.eof then
the_msg="???I I?? ?? C?E??I ?? ???E C?????"
elseif clng(GetValue(rs,"the_type"))>=100 then
the_msg="?? ?E? E???? COE?C??"
the_msg=the_msg & " " the_msg=the_msg & "???? ??C??E E??I? ????C? ????E C?E????." else session("member_id")= GetValue(rs,"id") Session("member_login") = "Y" Session("member_email") =GetValue(rs,"email") 'if save="ON" then 'Response.cookies("member_id")=session("member_id") 'Response.cookies("member_email")=Session("member_email") 'Response.cookies("member_id").Expires=Date+10 'Response.cookies("member_email").Expires=Date+10 'end if if isempty(gotopage)=True then gotopage="index.asp" Response.redirect gotopage end if end select %> |