AuctionPro – 페이지 102

WordPress Tables

2012년 08월 08일 golgol 0

WordPress Tables Database Description http://codex.wordpress.org/Database_Description

VB ASP에서 웹서비스 이용하기

2012년 08월 08일 golgol 0

VB에서 웹서비스 이용하기


Option Explicit
Private Sub Command1_Click()

Const HttpPath = "http://111.111.111.111/service.asmx/Doc"
Dim xmlDoc As Object
Dim strRequest As String
Dim XMLhttp As MSXML2.XMLHTTP30
Dim sSend

Set XMLhttp = New MSXML2.XMLHTTP30
sSend = "RLOC=" & Me.Text1.Text

XMLhttp.open "POST", HttpPath, False
XMLhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
XMLhttp.send sSend
Me.Text2 = XMLhttp.responseText
Me.Text2 = response

Dim doc As DOMDocument

Set doc = New DOMDocument '동적메모리 설정

Dim objNodeList As IXMLDOMNodeList

doc.async = False
doc.loadXML (response)

Set objNodeList = doc.getElementsByTagName("Root")
   
   If objNodeList.length Then
        Me.Text3 = Me.Text3 & objNodeList.Item(0).selectSingleNode("Name").nodeTypedValue & ", "
        Me.Text3 = Me.Text3 & objNodeList.Item(0).selectSingleNode("age").nodeTypedValue & ", "
        Me.Text3 = Me.Text3 & objNodeList.Item(0).selectSingleNode("address").nodeTypedValue & ", "
        Me.Text3 = Me.Text3 & objNodeList.Item(0).selectSingleNode("phonnumber").nodeTypedValue & ", "
  End If
  
End Sub

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

32

33

34

35

36

37

38

39

Option Explicit

Private Sub Command1_Click()

Const HttpPath = "http://111.111.111.111/service.asmx/Doc"

Dim xmlDoc As Object

Dim strRequest As String

Dim XMLhttp As MSXML2.XMLHTTP30

Dim sSend

Set XMLhttp = New MSXML2.XMLHTTP30

sSend = "RLOC=" & Me.Text1.Text

XMLhttp.open "POST", HttpPath, False

XMLhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

XMLhttp.send sSend

Me.Text2 = XMLhttp.responseText

Me.Text2 = response

Dim doc As DOMDocument

Set doc = New DOMDocument '동적메모리 설정

Dim objNodeList As IXMLDOMNodeList

doc.async = False

doc.loadXML (response)

Set objNodeList = doc.getElementsByTagName("Root")

If objNodeList.length Then

Me.Text3 = Me.Text3 & objNodeList.Item(0).selectSingleNode("Name").nodeTypedValue & ", "

Me.Text3 = Me.Text3 & objNodeList.Item(0).selectSingleNode("age").nodeTypedValue & ", "

Me.Text3 = Me.Text3 & objNodeList.Item(0).selectSingleNode("address").nodeTypedValue & ", "

Me.Text3 = Me.Text3 & objNodeList.Item(0).selectSingleNode("phonnumber").nodeTypedValue & ", "

End If

End Sub

ASP에서 웹서비스 이용하기


<%
Dim ServerType
Dim ServiceName
Dim SoapRequest: 

ServerType = request.Form("ServerType")
ServiceName = request.Form("ServiceName")
SoapRequest = request.Form("SoapRequest")

HttpPath="http://uapi.test.com/API"

 '-------------------------------------------------------------------
Dim lResolve
Dim lConnect
Dim	lSend
Dim lReceive
Dim sSend 
sSend="ServerType="& ServerType & _
	  "&ServiceName="& ServiceName & _
	  "&SoapRequest="& SoapRequest
 
    Set XMLhttp = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
	lResolve = 60 * 1000 'Timeout values are in milli-seconds
	lConnect = 60 * 1000
	lSend = 60 * 1000
	lReceive = 60 * 1000
	XMLhttp.setTimeouts lResolve, lConnect, lSend, lReceive
	XMLhttp.open "POST",HttpPath, False
 '------------------------------------------------------------------
	XMLhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"   
	XMLhttp.Send sSend
	
 Dim sResponse
 sResponse = XMLhttp.responseText
 
Response.ContentType = "text/xml"
response.write sResponse

response.end
%>

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

32

33

34

35

36

37

38

39

40

41

42

<%

Dim ServerType

Dim ServiceName

Dim SoapRequest:

ServerType = request.Form("ServerType")

ServiceName = request.Form("ServiceName")

SoapRequest = request.Form("SoapRequest")

HttpPath="http://uapi.test.com/API"

'-------------------------------------------------------------------

Dim lResolve

Dim lConnect

Dim lSend

Dim lReceive

Dim sSend

sSend="ServerType="& ServerType & _

"&ServiceName="& ServiceName & _

"&SoapRequest="& SoapRequest

Set XMLhttp = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")

lResolve = 60 * 1000 'Timeout values are in milli-seconds

lConnect = 60 * 1000

lSend = 60 * 1000

lReceive = 60 * 1000

XMLhttp.setTimeouts lResolve, lConnect, lSend, lReceive

XMLhttp.open "POST",HttpPath, False

'------------------------------------------------------------------

XMLhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

XMLhttp.Send sSend

Dim sResponse

sResponse = XMLhttp.responseText

Response.ContentType = "text/xml"

response.write sResponse

response.end

%>

오류 : 시스템이 지정한 인코딩을 지원하지 않습니다.=> MSXML 4.0 SP2 파서가 설치 되지 않음 msxmlkor.msi 설치 다운로드 […]

tracert

2012년 08월 07일 golgol 0

tracert 로 사이트 주소 찾는 경로 확인

윈도우 도스명령어 Cmd (종료 및 재부팅)

2012년 08월 07일 golgol 0

1 . cmd 명령어로 도스창 2. shutdown.exe -r -f -t 00 (재부팅) 3. shutdown.exe -s -f -t 00 (종료) 윈도우 재부팅(restart) : shutdown.exe -r -f -t […]

yum 에서 SVN 설치

2012년 08월 06일 golgol 0

# yum -y install subversion

SVN 서버 죽이기

2012년 08월 06일 golgol 0

SVN 서버 죽이기 – ps 명령으로 svnserve의 프로세서 ID를 알아낸 후 kill 명령으로 죽여버립니다. # ps -ef | grep svnserve # kill -9 {PID}

SVN 서버 살아있는지 확인

2012년 08월 06일 golgol 0

SVN 서버 살아있는지 확인 – SVN 서버가 사용중인 포트가 살아있는지 봅니다. # netstat -ant | grep 3690

httpd start

2012년 08월 06일 golgol 0

[root@localhost s00]# /sbin/service httpd start httpd (을)를 시작 중: [ OK ]

iptables 수정/재시작/확인

2012년 08월 06일 golgol 0

1. iptables 저장 즉시 최근 방화벽 설정으로 사용 설정하기 save 필요없이 systemctl restart iptables 시 바로 방화벽 적용 됩니다.접속된 putty는 방화벽 수정과 상관없이 계속 접속되며 […]

– mysql php 설치

2012년 08월 06일 golgol 0

MySQL은 CentOS 패키지에 포함되어 있다. 설치 여부 확인 : yum list installed 1. 설치 # yum install mysql-server 2. MySQL 서버 시작 명령어 # service […]