티스토리 뷰
===================================
=== ADODB.Command - insert, delete, update ===
===================================
Dim ObjConn_J, ObjCmd_J, ObjRs_J, Rows_J, Index_J
Set ObjConn_J = Server.CreateObject("ADODB.Connection")
ObjConn_J.Open(MEM_CONN_STR)
Set ObjCmd_J = Server.CreateObject("ADODB.Command")
With ObjCmd_J
.ActiveConnection = ObjConn_J
.CommandType = adCmdStoredProc
.CommandText = "up_AutomaticPayment_Insert"
.Parameters.Append .CreateParameter("@Test", adVarWChar, adParamInput, 50, "TestValue")
.Parameters.Append .CreateParameter("@TestOutput", adVarWChar, adParamOutput, 50, null)
.Execute ,, adExecuteNoRecords
Response.Write(.Parameters("@TestOutput"))
End With
If ObjConn_J.State = 1 Then
ObjConn_J.Close
End if
Set ObjCmd_J = Nothing
Set ObjConn_J = Nothing
=========================
=== ADODB.Command - select ===
=========================
Dim ObjConn_J, ObjCmd_J, ObjRs_J, Rows_J, Index_J
Set ObjConn_J = Server.CreateObject("ADODB.Connection")
ObjConn_J.Open(MEM_CONN_STR)
Set ObjCmd_J = Server.CreateObject("ADODB.Command")
With ObjCmd_J
.ActiveConnection = ObjConn_J
.CommandType = adCmdStoredProc
.CommandText = "up_AutomaticPayment_SelectList"
'.Parameters.Append .CreateParameter("@ResultCD", adVarWChar, adParamInput, 50, Resultcd)
'.Parameters.Append .CreateParameter("@ResultMSG", adVarWChar, adParamInput, 50, Resultmsg)
'.Parameters.Append .CreateParameter("@AutoBillKey", adVarWChar, adParamInput, 50, AutoBillKey)
'.Parameters.Append .CreateParameter("@CommId", adVarWChar, adParamInput, 50, Commid)
'.Parameters.Append .CreateParameter("@MobilId", adVarWChar, adParamInput, 50, Mobilid)
'.Parameters.Append .CreateParameter("@MrchId", adVarWChar, adParamInput, 50, Mrchid)
'.Parameters.Append .CreateParameter("@MSTR", adVarWChar, adParamInput, 50, MSTR)
'.Parameters.Append .CreateParameter("@MobileNumber", adVarWChar, adParamInput, 50, No)
'.Parameters.Append .CreateParameter("@ProductName", adVarWChar, adParamInput, 50, Prdtnm)
'.Parameters.Append .CreateParameter("@ProductPrice", adInteger, adParamInput, 4, Prdtprice)
'.Parameters.Append .CreateParameter("@SignDate", adVarWChar, adParamInput, 50, Signdate)
'.Parameters.Append .CreateParameter("@SvcId", adVarWChar, adParamInput, 50, Svcid)
'.Parameters.Append .CreateParameter("@TradeId", adVarWChar, adParamInput, 50, Tradeid)
'.Parameters.Append .CreateParameter("@UserId", adVarWChar, adParamInput, 50, Userid)
'.Parameters.Append .CreateParameter("@UserKey", adVarWChar, adParamInput, 50, UserKey)
'.Parameters.Append .CreateParameter("@AutoYN", adWChar, adParamInput, 1, AutoYN)
'.Parameters.Append .CreateParameter("@PaymentType", adInteger, adParamInput, 4, 1)
'.Parameters.Append .CreateParameter("@PaymentMethod", adVarWChar, adParamInput, 50, "a")
'.Parameters.Append .CreateParameter("@ProductInfoId", adBigInt, adParamInput, 8, arrMSTR(2))
End With
Set ObjRs_J = Server.CreateObject("ADODB.Recordset")
ObjRs_J.Open ObjCmd_J, , adOpenStatic, adLockPessimistic, adCmdUnknown
If Not ObjRs_J.EOF And Not ObjRs_J.BOF Then
Rows_J = ObjRs_J.GetRows()
End If
If ObjRs_J.State = 1 Then
ObjRs_J.Close
End if
If ObjConn_J.State = 1 Then
ObjConn_J.Close
End if
Set ObjCmd_J = Nothing
Set ObjRs_J = Nothing
Set ObjConn_J = Nothing
If isArray(Rows_J) then
For Index_J = 0 To UBound(Rows_J, 2)
Response.Write Rows_J(0, Index_J) &"<br>"
Next
End If
- Total
- Today
- Yesterday
- 스프링 시큐리티(spring security)-http basic 인증
- 인텔리제이(intellij)
- java web-mvc
- jstl(java standard tag library)-core
- jsp 오픈 소스
- 특정 문자를 기준으로 자르기
- await
- 문자 자르기
- React
- 제품 등록
- 진수 변환
- jstl(java standard tag library)
- System.Diagnostics
- java.sql
- 스프링 시큐리티(spring security)
- .submit()
- system.io
- In App Purchase
- REST API
- java 키워드 정리
- 메이븐(maven)
- 스프링 프레임워크(spring framewordk)
- 스프링 프레임워크(spring framework)
- nl2br
- MainActor
- 표현 언어(expression language)
- error-java
- 람다식(lambda expression)
- docker
- java-개발 환경 설정하기
일 | 월 | 화 | 수 | 목 | 금 | 토 |
---|---|---|---|---|---|---|
1 | 2 | 3 | 4 | 5 | ||
6 | 7 | 8 | 9 | 10 | 11 | 12 |
13 | 14 | 15 | 16 | 17 | 18 | 19 |
20 | 21 | 22 | 23 | 24 | 25 | 26 |
27 | 28 | 29 | 30 | 31 |