ACTIVE SERVER PAGE

ACTIVE SERVER PAGE > 답변 메일 보내기

등록일 : 2017-07-03 20:13 조회수 : 52,700

[답변글 메일 ] 처리


	  '**************답변형 게시판에서의 추가부분**********************'
	  if request("idx") <> "" then '즉 답변쓰기라면
	
	  ref = Cint(request("ref"))
	  re_step = CInt(Request("re_step"))
	  re_level = CInt(Request("re_level"))
	
	  SQLString = "UPDATE "& tname &" SET re_step = re_step + 1 WHERE ref=" & ref & " AND re_step > " & re_step
	  db.Execute(SQLString)
	
	  re_step = re_step + 1
	  re_level = re_level + 1
	
	  '************* 답변에 대한 메일 보내기 기능 시작*********************'
	  SQL="Select name,email,title from "& tname & " where ref="& ref &" and re_step=0"
	  Set rs1 = Server.CreateObject("ADODB.Recordset")
	  rs1.Open SQL, db
	
	  set objMail=Server.CreateObject("CDONTS.NewMail")
	  name=rs1("name")
	  email=rs1("email")
	  title=rs1("title") 
	  conts="<html><head><title>Untitled</title></head><body bgcolor='white' text='black' link='blue' vlink='purple' alink='red'>"
	  conts=conts& "<p> <div align='center'><table border='0' cellspacing='0' bgcolor='#AADCFF'><tr>"
	  conts=conts& "<td width='512'><p align='center'> <font size='2'><b>"& name & "님께서 질문하신 내용입니다.</b></font></p>"
	  conts=conts& "<font size='2'><b><p align='center'> 제목 : <u><font color='red' size='2'> "& title & "</font></u></p>"
	  conts=conts& "<font size='2' color='red'><b>답변이 올라 왔습니다.</b></font><font size='2'>"
	  conts=conts& "<b>  안규 공부방에서 확인하실 수 있습니다. </b></font></td></tr><tr><td width='244' height='30' bgcolor='#EFCCF6'>"
	  conts=conts& "<p align='center'><a href='http://www.polcom.co.kr/ankyu'><img src='http://polcom.co.kr/image/banner.gif'"
	  conts=conts& "border='0'></a></td></center>"
	  conts=conts& "</tr></table></div><p> </p></body></html>"
	
	  objMail.To=email
	  objMail.From="cak0280@skylla.co.kr"
	  objMail.Subject="안규 공부방에서 "&name&"님께.."
	 
	  objMail.BodyFormat=0    ' 텍스트로 보낸다.   html 형식은 '0'이 들어간다.
	  objMail.MailFormat=0     ' 텍스트로 보낸다.   html 형식은 '0'이 들어간다.
	  objMail.body=conts     ' 보낼 내용을 Body에 연결한다. 
	  objMail.Send           ' 이젠 메일을 보내게 된다.
	 
	  set objMail=nothing
	
	  '************* 답변에 대한 메일 보내기 기능 끝내기 *********************'
	
	  else ' 첨 글쓰기라면...
	  :
	  :

기존의 많은 싸이트들에서 게시판에 대한 또는 답변글에 대한 많은 소스들을 제공하고 있습니다. 전 그런 기능들의 설명을
일체 하지 않았으며, 특수한(?) 기능들만을 간단하게 설명하고자 합니다.
사용자가 글을 쓰면, 다른 사용자는 그에대한 답변을 적게 됩니다. 그렇죠?
그럼, 그런 답변들이 올라 왔다는 내용을 질문한 사용자에게 메일로 알려 주는 기능을 적어 놓았습니다.
위의 예제를 보면

'************* 답변에 대한 메일 보내기 기능 시작*********************'
:

:

'************* 답변에 대한 메일 보내기 기능 끝내기*********************'

까지가 바로 메일을 보내는 기능입니다. request(idx)<>"" 이면 답변을 처리를 하게 됩니다. step,ref등등의 세세한 필드를
Update 하고 나서, CDO 컴포넌트를 사용해서 메일을 보내면 됩니다. 그럼, 누구한테 메일을 보내면 되느냐?
SQL="Select name,email,title from "& tname & " where ref="& ref &" and re_step=0"
이게 정답입니다. 이름,이멜주소,제목을 불러오게 됩니다. 특정 테이블에서 부르면 되겠죠? 저 같은 경우는 테이블이름까지
넘겨 줬으니까요... 그리구, ref 가 같으면서 re_step 이 '0' 이면 현재 답변글에 대한 가장 상위에 있는 글이 되겠죠?
당연히 질문글이 될 것입니다.
이런값을 불러와서 해당하는 곳에 지정해 놓으면 됩니다.
메일을 보내는 기능에 대해서는 '기타 기능의 메일링 리스트에서 설명해 놓았으니 여기에서는 생략해도 될 듯 합니다. '

그럼, 성공하세요....

목록으로