아이디 비밀번호 | 회원가입 | 비밀번호분실
   
　새로운소식
　FAQ
　웹프로그램
　웹DB
　웹서버
　웹프로그램수정
　해피칼럼
　골드팁
 
제작의뢰
웹프로그램 판매몰
 
현재위치: 메인 해피포럼 웹프로그램 : 게시물 읽기
  2005-11-21 (11:49:14) from 210.121.191.170
  작성인 : sinflute 조회수 : 2626   
제목 : asp 폼메일 관한 질문요

지금 이용하고있는 호스팅 업체에서 php cgi 지원하는 상품을 못받아서

asp로 폼메일을 활용하고 싶은데 여기 소스자료실에서 소스를 받아서 설치 까지는 했는데

받는 사람 이멜 주소를 고정해서 화면상에 나타나게 하는 방법은 없나요??

지금 쓰고잇는것은  밑에 거입니다 ~빠른답변 부탁드립니다 ^^

<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'  Name                : HAPPYMAIL                                  '
'  Version             : 1.0                        .*"""*.*"""*.   '
'  Data                : 2001/07/25                */(*'')♡(''*)*  '
'  Copyright           : Kim Bong-Gwan              *.ILOVEYOU!.*   '
'  Homepage            : http://www.happyasp.com      "*.   .*"     '
'  E-mail/MSN Messenger: webmaster@happyasp.com          '.'        '
'  ICQ                 : #102188366                                 '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
send = request("send")
sendname = request("sendname")
poem = request("poem")
rec = request("rec")
title = request("title")
userfile = request("userfiles")
format = request("format")
view = request("view")
content = request("content")

IF sendname = "이름" Then
sendname = "아무개"
End IF

IF view = "no" Then '보내기

set objmail = server.createobject("cdonts.newmail")
objmail.from = sendname & "<" & send & ">"
objmail.to = rec          '받을사람
'objmail.Cc = ccmail       '참조
objmail.Bcc = poem        '숨은 참조
objmail.subject = title   '제목

IF format = "text" Then
objmail.bodyformat = 1    '메일 형태 TEXT    // 1일 경우 Text로 저장
objmail.mailformat = 1    '메일 형태 TEXT    // 1일 경우 Text로 저장
ElseIf format = "html" Then
objmail.bodyformat = 0    '메일 형태 HTML    // 1일 경우 Text로 저장
objmail.mailformat = 0    '메일 형태 HTML    // 1일 경우 Text로 저장
Else
objmail.bodyformat = 0    '메일 형태 HTML    // 1일 경우 Text로 저장
objmail.mailformat = 0    '메일 형태 HTML    // 1일 경우 Text로 저장
End if

objmail.body = content    '보내는 내용

IF userfile = "" Then
Else
objMail.attachFile(userfile) '첨부파일
End if

objmail.send
set objmail = nothing
%>
<HTML>
<HEAD>
<TITLE>메일발송 완료</TITLE>
<meta http-equiv="content-type" content="text/html; charset=euc-kr">
<meta http-equiv="refresh" content="3; url=happymail.asp">
</HEAD>
<BODY>
<TABLE border=0 align=center>
<TR>
 <TD style="FONT-SIZE: 9pt"><BR>
편지가 성공적으로 보내어 졌습니다.<BR>
3초후 자동으로 처음으로 이동합니다.<BR>
 </TD>
</TR>
</TABLE>
</BODY>
</HTML>
<%
ElseIf view = "yes" Then '미리보기
%>
<HTML>
<TITLE>미리보기</TITLE>
<meta http-equiv="content-type" content="text/html; charset=euc-kr">
<style type='text/css'>
.ad{border:1 solid black}
</style>
<body leftmargin=2 marginwidth=2 topmargin=2 marginheight=2 bgcolor=#ffffff text=black link=blue vlink=purple alink=red>
<center><br>
<TABLE border=0 bgColor=#839eb7 cellPadding=3 cellSpacing=1>
<TR><TD bgColor=#e1e0e0 height=20 style="FONT-SIZE: 9pt" align=right><B>보내는 사람</B></TD>
<TD bgColor=#e9f6f4 height=20 style="FONT-SIZE: 9pt">
<%= send %><<%= sendname %>></TD>
</TR>
<TR><TD bgColor=#e1e0e0 height=20 style="FONT-SIZE: 9pt" align=right><B>받는 사람</B></TD>
<TD bgColor=white height=20 style="FONT-SIZE: 9pt">
<%= rec %></TD></TR>
<%
IF poem = "" Then
Else
%>
<TR><TD bgColor=#e1e0e0 height=20 style="FONT-SIZE: 9pt" align=right><B>숨은 참조</B></TD>
<TD bgColor=white height=20 style="FONT-SIZE: 9pt">
<%= poem %></TD></TR>
<%
End If
%>
<TR><TD bgColor=#e1e0e0 style="FONT-SIZE: 9pt" align=right><B>제 목</B></TD>
<TD bgColor=#e9f6f4 style="FONT-SIZE: 9pt">
<%= title %></TD></TR>
<TR><TD bgColor=#ffffff colspan="2">

<table border=0 cellpadding=4 cellspacing=0 width=100%>
<td>
<%
IF format = "text" Then
%>
<PRE><%= content %></PRE>
<%
ElseIf format = "html" Then
%>
<%= content %>
<%
Else
End If
%>
</td>
</tr></table>

</td></tr>
<%
IF userfile = "" Then
Else
%>
<TR><TD bgColor=#e1e0e0 height=20 style="FONT-SIZE: 9pt" align=right><B>파일첨부</B></TD>
<TD bgColor=#e9f6f4 height=20 style="FONT-SIZE: 9pt">
<%= userfile %></TD></TR>
<%
End If
%>
</table>

<table border=0>
<tr><form method=post action=happymail.asp>
<INPUT TYPE="hidden" name='send' value='<%= send %>'>
<INPUT TYPE="hidden" name='sendname' value='<%= sendname %>'>
<INPUT TYPE="hidden" name='poem' value='<%= poem %>'>
<INPUT TYPE="hidden" name='rec' value='<%= rec %>'>
<INPUT TYPE="hidden" name='title' value='<%= title %>'>
<INPUT TYPE="hidden" name='userfiles' value='<%= userfile %>'>
<INPUT TYPE="hidden" name='format' value='<%= format %>'>
<INPUT TYPE="hidden" name='content' value='<%= content%>'>
<INPUT TYPE="hidden" name='view' value='no'>
<td><input type=submit value='메 일 보 냄'  CLASS=ad></td>
<td><input type=button value='돌 아 가 기'  CLASS=ad onClick=javascript:history.go(-1)></td>
</form></tr>
</table>

</center>
</BODY>
</HTML>
<%
Else
%>
<HTML>
<head>
<title>메일 보내기</title>
<meta http-equiv="content-type" content="text/html; charset=euc-kr">
<style type='text/css'>
p,td {font-size:9pt;font-family:굴림;}
.ad{border:1 solid black}
.adf{background-color:#ECF5FF;border:1 solid black}
</style>
<SCRIPT LANGUAGE="JavaScript">

function OnEnter( field ) { if( field.value == field.defaultValue ) { field.value = ""; } }
function OnExit( field ) { if( field.value == "" ) { field.value = field.defaultValue; } }

function save()
{
 document.msg.view.value = "no";
 check_email()
}
function Preview()
{
 document.msg.view.value = "yes";
 check_email()
}

function check_email()
{
 if(document.msg.rec.value == '') {

  alert("받는 사람 E-mail주소가 없습니다.");
 }
 else if(document.msg.send.value == '') {

  alert("보내는 사람 E-mail주소가 없습니다.");
 }
 else if(document.msg.send.value.length < 4 || document.msg.rec.value.length < 4) {

  alert("E-mail 주소가 부정확합니다.");
 }
 else if(document.msg.title.value == '') {

  alert("제목이 지정되어 있지 않습니다");
 }
 else {

  if(check_char()) {
  }
  else {
   document.msg.submit()
  }
 }

}

function check_char()
{
 if(document.msg.send.value !="")
 {
  var special = "\"\'~!#$%^&*(){}?/][}{ ";
  var check_send = document.msg.send.value;
  var len = check_send.length;

  for(i = 0; i < len; i++)
  {
   if(special.indexOf(check_send.substring(i, i + 1)) >= 0)
   {
    alert("발신 E-mail에 허용되지 않는 문자가 있습니다.")
    document.msg.send.value = "";
    document.msg.send.focus();
    return 1;
   } 
  }
 }
 if(document.msg.rec.value !="")
 {
  var special = "\"\'~!#$%^&*(){}?/][}{ ";
  var check_rec = document.msg.rec.value;
  var len = check_rec.length;

  for(i = 0; i < len; i++)
  {
   if(special.indexOf(check_rec.substring(i, i + 1)) >= 0)
   {
    alert("수신 E-mail에 허용되지 않는 문자가 있습니다.")
    return 1;
   } 
  }
 }
 if(document.msg.poem.value !="")
 {
  var special = "\"\'~!#$%^&*(){}?/][}{ ";
  var check_poem = document.msg.poem.value;
  var len = check_poem.length;

  for(i = 0; i < len; i++)
  {
   if(special.indexOf(check_poem.substring(i, i + 1)) >= 0)
   {
    alert("숨은참조에 허용되지 않는 문자가 있습니다.")
    return 1;
   } 
  }
 }

}
</SCRIPT>
</head>
<body bgcolor=white text=#000000>
<form name=msg method=post action=happymail.asp>
<input type=hidden name=action value=save>
<br><table border=0 cellpadding=0 cellspacing=0 width=362 align=center><tr><td bgcolor=#FA8983>
<table border=0 cellpadding=3 cellspacing=1 width=100%>

<tr>
<td width=70 align=right bgcolor=#FEE0DE style=PADDING-RIGHT: 3px>보내는 사람</td>
<td width=250 bgcolor=white>
<input type=text name=send size=25 CLASS='ad' onBlur=this.className='ad' onFocus=this.className='adf'>
&nbsp;
<input type=text name=sendname size=6 CLASS='ad' onBlur=OnExit(this) onFocus=OnEnter(this) value='이름'>
</td>
</tr>

<tr>
<td width=70 align=right bgcolor=#FEE0DE style=PADDING-RIGHT: 3px>받는 사람</td>
<td width=250 bgcolor=white>
<input type=text name=rec size=25 CLASS='ad' onBlur=this.className='ad' onFocus=this.className='adf'>
<br>* 여러명에게 보낼 때 각 주소를 , 로 구분</td>
</tr>

<tr>
<td width=70 align=right bgcolor=#FEE0DE style=PADDING-RIGHT: 3px>숨은 참조</td>
<td width=250 bgcolor=white>
<input type=text name=poem size=25 CLASS=ad onBlur=this.className='ad' onFocus=this.className='adf'>
</td>
</tr>

<tr>
<td width=70 align=right bgcolor=#FEE0DE style=PADDING-RIGHT: 3px>제목</td>
<td width=250 bgcolor=white>
<input type=text name=title maxlength=100 size=35 onblur=this.className='ad' onfocus=this.className='adf' class=ad></td>
</tr>

<tr><td width=70 align=right bgcolor=#FEE0DE style=PADDING-RIGHT: 3px>내용</td>
<td width=250 bgcolor=#FFF5F4>
<textarea name=content rows=6 cols=35 CLASS=ad onBlur=this.className='ad' onFocus=this.className='adf'></textarea></td>
</tr>

<tr>
<td align=right bgcolor=#FEE0DE>파일첨부</td>
<td bgcolor=white>
<input type=file name=userfiles size=20 CLASS=ad CLASS=ad onBlur=this.className='ad' onFocus=this.className='adf'></td>
</tr>

<tr>
<td align=right bgcolor=#FEE0DE>형식선택</td>
<td width=250 bgcolor=#FFF5F4>
<input type="radio" name="format" value="text" checked>Text
<input type="radio" name="format" value="html">HTML
</td></tr></table>

</td>
</tr></table>
<br>
<table border=0 align=center>
<tr>
<INPUT TYPE="hidden" name="view" value="no">
<td><input type=button value='메 일 보 냄'  CLASS=ad onClick=save()></td>
<td><input type=button value='미 리 보 기'  CLASS=ad onClick=Preview()></td>
<td><input type=reset value='새 로 작 성'  CLASS=ad></td>
</tr>
</table>
</form>

</body>
</html>
<%
End If
%>



   메모
HappyCGI
2005-11-21
19:17:11		 죄송합니다만 개별 프로그램의 수정건에 대해서는 저희가 답변을 드릴수 없습니다. 도움이 안되어서 죄송합니다.

:네맞아요: :화나는군요: :잠와: :우울해: :이건아냐: :왕하하: 왕웃음~ 놀램~
  

 
ⓗ
제목
작성인
조회
등록일
asp 폼메일 관한 질문요
sinflute
2627
2005-11-21
 
  HOME | 회사소개 | 제작의뢰 | 개인정보취급방침 | CGIMALL | 자료실 | 사이트등록 | 랭킹100 | 포럼 | 초보가이드 | 질문과답변 | 배너광고
Copyrightⓒ1997~2008 HappyCGI All rights reserved
Powered By HappyCGI