<%
'===========================================================
' 페이지 : /member/logon_loss_ok.asp
' TABLE : TBL_MEMBER
' 설 명 : 사용자>로그인 아이디,비밀번호 찾기
' 작성자 :
' 작성일 : 2011-05-14
'-----------------------------------------------------------
' 수정일 | 작성자 | 내용
'-----------------------------------------------------------
' 2011-05-14 | | initialize
'===========================================================
Dim tbl_name : tbl_name = "TBL_MEMBER"
Dim sql
Dim rs
Dim intRtnValue
Dim req_user_email1, req_user_email2
'//전달 변수 체크
req_user_email1 = getReplaceInput(fncDefault(request.form("user_email1"),""),"")
'req_user_email2 = getReplaceInput(fncDefault(request.form("user_email2"),""),"")
intRtnValue = 1
'//필수값 체크
If Trim(req_user_email1&"")="" Then
intRtnValue = 0
End If
If intRtnValue<>0 Then
sql = ""
sql = sql & " SELECT user_id, user_pass, user_name, user_email "
sql = sql & " FROM " & tbl_name
sql = sql & " WHERE user_email='" & req_user_email1 & "'"
Set rs = DBCon.execute(sql)
If Not(rs.BOF and rs.EOF) Then
If Trim(rs("user_email")&"")<>"" Then
subject = "유엔아이피부과입니다. 문의하신 회원님의 정보를 보내드립니다."
content = "" & rs("user_name") & " 회원님의 사용하고 계신 이메일은 " & rs("user_email") & ""
content = content & "
비밀번호는 " & rs("user_pass") & "입니다."
'Call sendmail(rs("user_email"), "유엔아이피부과", "help@uni114.co.kr", subject, content)
Call sendmail(rs("user_email"), "help@uni114.co.kr", subject, content)
Else
intRtnValue = 0
End IF
Else
intRtnValue = 0
End If
'//DB Connection Close
rs.close : Set rs = Nothing
End IF
Call SubObjClose(DBCon)
'//로그인 결과 리턴
If Int(intRtnValue) = 1 Then
Response.Write ""
Response.End
Else
Response.Write ""
Response.End
End If
Response.End
%>