GSI

testJson 변수에 해당 문자열을 담고

아래쪽에서 화면에 출력해 보는 내용입니다.

한개씩 값을 가져와야할 경우는

Info.Get("lastname") 를 사용하면 됩니다.


이 부분을 사용하기 위해서는 json2.asp가 필요 합니다. (첨부확인)


[인클루드]

<!--#include virtual="json2.asp"-->


[본문]

'json test

testJson = "{""firstname"":""Fabio"", ""lastname"":""長尾""}"


'json 타입으로 값을 가져오는 방법

dim Info : set Info = JSON.parse(testJson)

Response.write( JSON.stringify(Info, null, 2) & vbNewline ) ' prints the text below:

Response.Write "<br/>"

Response.Write Info.Get("lastname")

set Info = nothing


Posted by gsi
:

bufferStr = "abcdefgh"


response.write LEFT(bufferStr, 4) & "<br>"

response.write MID(bufferStr, 5, 2) & "<br>"

response.write RIGHT(bufferStr, 4) & "<br>"


[결과]

abcd

ef

efgh





Posted by gsi
:

[asp 에 지메일 연동 방법]

  • 2차 보안설정만 하고 2차 보안설정은 하지 않음
  • 보안 수준이 낮은 앱의 엑세스가 가능하게 처리
  • 전달 및 POP/IMAP에 별도 설정은 하지 않아도 발송되는부분은 확인했습니다

지메일 설정항목은 아래 부분을 참조 하시면 됩니다.
  • 발신 메일(SMTP) 서버 - TLS 필요
    • smtp.gmail.com
    • 포트: 465 또는 587
    • SSL 필요: 예
    • 인증 필요: 예
    • 받는 메일 서버와 동일한 설정 사용
  • 이름 또는 표시 이름: [사용자 이름]
  • 계정 이름 또는 사용자 이름: 전체 Gmail 주소(username@gmail.com). Google Apps 사용자는 username@your_domain.com을 입력하세요.
  • 이메일 주소: 전체 Gmail 주소(username@gmail.com). Google Apps 사용자는 username@your_domain.com을 입력하세요.
  • 비밀번호: Gmail 비밀번호


메일 발송이 되지 않을시 아래 보안 수준이 낮은 앱을 사용 처리로 하면 정상적으로 발송이 되실거예요.


[ASP 소스]


<!--#Include Virtual="/Include/initialize.asp"-->

<!--#Include Virtual="/Include/DBCon.asp"-->

<!--#Include Virtual="/Include/Common.asp"-->


<!-- 메일 전송 -->

<%

'/////////////////////////////////////////////////////////////////

'SMTP 기본정보 입력

SMTP_USER = "유저아이디"

SMTP_PASS = "비밀번호"

SMTP_SERVER = "smtp.gmail.com"

SMTP_PORT = 465 ' SMTP 포트번호

SMTP_EMAIL_CERT_HTTP = "리턴받을 웹주소"


'// GUID 생성해서 값을 리턴하는 함수

Function fnGetGUID()

Dim myTypeLib

Set myTypeLib = Server.CreateObject("Scriptlet.Typelib")

fnGetGUID = myTypeLib.guid

Set myTypeLib = Nothing

End Function


'// GUID 생성하기

Dim strGUID

'// 좌우 {} 빼기

strGUID = Trim(fnGetGuid())

strGUID = Left(strGUID, Len(strGUID)-3)

strGUID = Right(strGUID, Len(strGUID)-1)

'Response.Write strGUID & "<br/>"


' 호출주소와 guid를 합친다.

SMTP_EMAIL_CERT_HTTP = SMTP_EMAIL_CERT_HTTP & strGUID

'Response.Write SMTP_EMAIL_CERT_HTTP


' Body

htmlBody = "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>"

htmlBody = htmlBody & "<HTML>"

htmlBody = htmlBody & "<HEAD>"

htmlBody = htmlBody & "<TITLE> 이메일 인증 </TITLE>"

htmlBody = htmlBody & "</HEAD>"

htmlBody = htmlBody & "<BODY>"

htmlBody = htmlBody & "<table border='0' cellpadding='0' cellspacing='0' width='720' style='font-family: '맑은 고딕', '돋움', 'Dotum', sans-serif;font-size: 14px; font-weight: 400;text-align: left; background-color: #202835; color:#BFC1C5;-webkit-font-smoothing: antialiased;'>"

htmlBody = htmlBody & "<tbody>"

htmlBody = htmlBody & "<tr>"

htmlBody = htmlBody & "<td style='font-family: '맑은 고딕', 'Malgun Gothic', '애플산돌고딕네오', 'AppleSDGothicNeo', '애플고딕', 'AppleGothic', '돋움', 'Dotum', sans-serif;text-align: left; background-color: #242D3D; border-top-width: 1px; border-top-style: solid; border-top-color: #3E424E; color: #BFC1C5; padding: 0 30px 0 30px;'>"

htmlBody = htmlBody & "<br>" & SMTP_USERID & " 님, 안녕하세요.<br> <br>"

htmlBody = htmlBody & "이메일 주소를 인증하려면 아래 링크를 클릭해 주세요.<br>"

htmlBody = htmlBody & "<a href='" & SMTP_EMAIL_CERT_HTTP & "' target='_blank'>메일 인증하기</a><br> <br>"

htmlBody = htmlBody & "</td>"

htmlBody = htmlBody & "</tr>"

htmlBody = htmlBody & "</tbody>"

htmlBody = htmlBody & "</table>"

htmlBody = htmlBody & "</BODY>"

htmlBody = htmlBody & "</HTML>"


'Response.Write htmlBody


'이메일 smtp

Set iConf = Server.CreateObject("CDO.Configuration")

Set Flds = iConf.Fields

With Flds

        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTP_SERVER

        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = SMTP_PORT

        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = SMTP_USER

        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = SMTP_PASS

        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1

        .Update

End With

Set CDOMail = server.CreateObject("CDO.Message")

Set CDOMail.Configuration = iConf

CDOMail.From = "<userid@gmail.com>"  ' 자신의 E-mail 주소를 쓰세요

CDOMail.To = "<userid@gmail.com>"   ' 받는이도 자신의 E-mail 주소를 쓰세요

CDOMail.Subject = "인증 메일 입니다. 확인해 주세요."

CDOMail.HtmlBody = htmlBody

CDOMail.Fields.update

CDOMail.Send

response.write "발송완료"

Set Flds   = Nothing

Set iConf = Nothing

Set CDOMail = Nothing

%>



이상입니다.






Posted by gsi
:

<설명>
1. ASP 쇼핑몰 구축 프로젝트 의 DB 스크립트 입니다.
2. www.hanb.co.kr/exam/1390 에 소스 자료가 있습니다.
3. 책 제목은 "Asp 쇼핑몰 구축 프로젝트 모듈 기반 쇼핑몰 개발 실무"

 Table

 Member

 Product

 Category

 Cart

 Btable

Porder
Posted by gsi
: