<% '동산의료원 채용 결과만보는화면(은영-211130) m_id = InputValue(request("m_id")) m_pwd = InputValue(request("m_pwd")) page_type = InputValue(request("page_type")) '어차피 결과만보는화면이니깐 파라미터로 아이디&비번 안넘기기..노출될거같아서 m_id = "dsmc" m_pwd = "dsmc" if memgr_idpwdchk3(m_id,m_pwd) then Call memgr_logincookie_dsmc(m_id,m_pwd) '인증쿠키발생 else Call Back_back ("아이디 또는 비밀번호를 확인하세요.") End if If page_type = "daegu" Then prepage = "/content/01message/03_01_dsmc_daegu.asp" Else prepage = "/content/01message/03_01_dsmc.asp" End If Call loding ("0", prepage) function memgr_logincookie_dsmc(m_id, m_pwd) Dim sql, Rs_m, lastdate sql = " select m_num, m_id, m_name, m_level, m_pwd, m_jumin, (m_mobile1+'-'+m_mobile2+'-'+m_mobile3)as m_mobile, bdm_idx from member where m_id = '" & m_id & "' and m_pwd = '" & m_pwd & "'" Set Rs_m = dbcon.execute( sql ) SESSION("ss_dsmc_m_num") = Rs_m("m_num") SESSION("ss_dsmc_m_id") = Rs_m("m_id") SESSION("ss_dsmc_m_name") = Rs_m("m_name") '최근접속일 등록 lastdate = date() sql = "update member set m_lastdate='" & lastdate & "' where m_id = '" & Trim( Rs_m("m_id") ) & "'" dbcon.execute sql Set Rs_m = nothing End Function %>