꿈속나라

당신에게로 떠나는 꿈속여행 - 꿈속나라(http://www.inyourdream.net)

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

등록하실때는 필수항목을 모두 입력하셔야 합니다.

이름 *	HTML 사용
제목 *
내용 *	> 도와주세요<%@ Language=VBScript %> > <% > > Server.ScriptTimeout = 300 > > '만일 화일첨부가 있다면 그 화일의 경로를 저장한다. > if request("fileplus")<>"" then > filename = request("fileplus") > end if > > content = replace(request("content"),chr(13),"<br>") > '개행처리를 위해서 replace를 했다 > '데이타베이스를 열고 쿼리를 수행해서 디비에 있는 email주소를 '가져온다 > Set Conn = Server.CreateObject("ADODB.Connection") > Conn.Open "dsn=sql;uid=sa;pwd=;" > > Set rs=Conn.Execute("Select writer,email From ntn") > html = "" > > '밑에것은 잘못된것임 문자열은쌍따옴표로 감싸데..문자열 안을 쌍따옴표너 따옴표가 들어가 있으면 안됨 > 'html = html & "<img src="http"//210.219.185.189/mlist/1-1.gif">"width=300 height=150 > > '위의 내용을 수정한 것임... > 'border=0 src=1-1.gif > > > html = "<html><body bgcolor=#A39E7A>" > html = html & "<table border=0 cellpadding=0 cellspacing=0 width=214 bgcolor=#FFFFFF height=645><tr>" > html = html & "<td colspan=2 width=494 height=22>" > html = html & "<table border=0 cellpadding=0 cellspacing=0 width=500 height=45><tr><td>" > html = html & "<table border=0 cellpadding=0 cellspacing=0 width=10 height=10><tr><td></td></tr></table></td></tr><tr><td>" > html = html & "<table border=0 cellpadding=0 cellspacing=0 width=510 height=45><tr><td>" > html = html & "<p align=center><img src=1-1.gif width=500 height=45></td></tr></table></td></tr></table></td></tr><tr>" > html = html & "<td colspan=2 width=494 height=1> </td></tr><tr>" > html = html & "<td width=295 height=95><table border=0 cellpadding=0 cellspacing=0 width=314 height=150><tr>" > html = html & "<td width=312> <img src=http//210.219.185.189/mlist/1-1.gif ></td></tr></table></td>" > html = html & "<td width=197 height=95> <a href=http://www.boranet.com/popup1.htm target=_blank><img border=0 src=3.gif width=167 height=92></a></td></tr>" > html = html & "<tr valign=top><td colspan=2 width=494 height=83>" > html = html & "<table border=0 cellpadding=0 cellspacing=0 width=509 height=100><tr>" > html = html & "<td width=534><font size=2 face=돋움 color=#716937><br> " > html = html & "<font color=#000000>속이 꽉찬 인터넷 여행사 <b><font color=#0066CC>보라넷</font>" > html = html & "<font color=#990033>닷</font> <font color=#6633FF>컴</font></b>입니다.<br> 휴우~ 어느새 옷깃을 여며야 하는 따뜻한 곳이 그리워지는 계절이 돌아왔네여..<br>" > html = html & "</font></font><font size=2 face=돋움 color=#000000> 따뜻한호빵과 뜨끈~한 오뎅국물이 그리워지는데.. 회원님들은 어떠세여...? ^^<br> 옷장 깊이 차곡차곡 넣어 두었던 두툼한 옷들을 꺼내며 지난 추억도 하나 둘씩<br> 되새김할 수 있는 작은 여유를 가져 보시는 것은 어떠신가여.... ^^*</font>" > html = html & "</table></body>" > > > > > '메일주소가 끝날떄까지 Loop를 돌며 메일을 보낸다. > Do While not rs.eof > > Set objMail = Server.CreateObject("CDONTS.NewMail") > > '만일 첨부화일이 있다면 화일을 attach 한다. > if filename <> "" then > objMail.attachFile(filename) > end if > > objMail.From="boranet" > objMail.To=rs("email") > objMail.Subject= rs("writer") & " 님께 : " & request("title") > objMail.Body= request("content") > objMail.BodyFormat = 0 ' HTML일떄 0, 일반 Text일때 1 으로 설정한다. > objMail.MailFormat = 0 ' HTML일떄 0, 일반 Text일때 1 으로 설정한다. > objMail.body = html '만든 문자열html을 Body로 연결한다. > objMail.send '이제 메일을 보낸다. > set objMail = nothing > > rs.movenext > loop > > 'CDO컴포넌트도 닫고 디비도 닫고.... > set rs = nothing > Conn.close > Set Conn = nothing > %> > <html> > > <head> > <meta NAME="GENERATOR" Content="Microsoft FrontPage 3.0"> > <title></title> > </head> > > <body> > > <p>　</p> > > <p>　</p> > > > > <p><font face="돋움" size="4" color="#000080"><strong>　</strong></font></p> > > <p align="center"><strong><font face="Comic Sans MS" size="6" color="#FF8000">Mail</font><font > face="돋움" size="4" color="#000080"> 을 잘 보냈습니다.</font></strong></p> > > <p align="center"><font face="돋움" size="4" color="#000080"><strong>수고하셨습니다.</strong></font></p> > > <p align="center">　</p> > > <p align="center"><font face="Century Gothic" size="4" color="#000080"><strong>　</strong></font></p> > > <p align="center"><strong><font face="Century Gothic" size="4" color="#000080">BoraNet </font><font > face="Century Gothic" size="4" color="#008080">Mailing List</font></strong></p> > </body> > </html> > <HTML> > > > -----------------------------------------------------------

추가할 이미지를 입력하세요.

이미지 1
이미지설명 1

추가할 자료를 입력하세요.

자료 1
자료설명 1

추가할 싸이트를 입력하세요.

관련싸이트 1
싸이트설명 1

Password *