언제나 행복한 짱아의 집

오라클에서 접속한후 현재 접속되어 있는 계정에 대한 권한을 확인하는 쿼리 입니다.

SELECT * FROM USER_SYS_PRIVS;

접속되어 있는 룰을 확인하는 쿼리

SELECT * FROM USER_ROLE_PRIVS;

회사에서 테스트를 하던중  AUTO_INCREMENT의 시작번호를 변경하는 부분이 필요해서 작업하던중 해당 내용을 남긴다.

## 쿼리

alter table 적용할테이블 AUTO_INCREMENT=시작번호

간만에 ASP로 작업을 하는데 카페24에서 smtp로 메일발송을 작업하는 도중..

발송이 되지않고 오류가 나서 문의결과...

smtp는 사용을 못하고 차체 있는 것을 사용을 하라고 한다.. ㄷㄷㄷ

이래저래 대충 만들었다.. 킁...

나중에 손을 더 봐야될듯...

Function mailsend(subject,bcc,admin,email,body)

Const cdoSendUsingMethod = _ 

"http://schemas.microsoft.com/cdo/configuration/sendusing" 

Const cdoSendUsingPort = 2 

Const cdoSMTPServer = _ 

"http://schemas.microsoft.com/cdo/configuration/smtpserver" 

Const cdoSMTPServerPort = _ 

"http://schemas.microsoft.com/cdo/configuration/smtpserverport"

Const cdoSMTPConnectionTimeout = _ 

"http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" 

Const cdoSMTPAccountName = _ 

"http://schemas.microsoft.com/cdo/configuration/smtpaccountname" 

Const cdoSMTPAuthenticate = _ 

"http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" 

Const cdoBasic = 1 

Const cdoSendUserName = _ 

"http://schemas.microsoft.com/cdo/configuration/sendusername" 

Const cdoSendPassword = _ 

"http://schemas.microsoft.com/cdo/configuration/sendpassword"

Dim iConf

Set iConf = CreateObject("CDO.Configuration")

iConf.Load 1

Dim Flds

Set Flds = iConf.Fields

With Flds

.Item(cdoSendUsingMethod) = cdoSendUsingPort 

.Item(cdoSMTPServer) = "메일서버" 

.Item(cdoSMTPServerPort) = 25 

.Item(cdoSMTPAuthenticate) = cdoBasic 

.Item(cdoSendUserName) = "메일주소"

.Item(cdoSendPassword) = "비밀번호"

.Update

End With

' 메일 전송 컴포넌트에 필요 정보 입력

Set objMail = Server.CreateObject("CDO.Message")

objMail.Configuration = iConf

objMail.From = admin '보내는사람 이메일

objMail.To = email '받는사람 이메일

objMail.Bcc = bcc '숨은 참조 Bcc

objMail.Subject = subject '제목

objMail.HTMLBody = body '내용

objMail.Send

Set objMail = Nothing

Set iConf = Nothing

End Function