AuctionPro – 페이지 104

XWindows 설치

2012년 08월 08일 golgol 0

#yum grouplist #yum -y groupinstall “X Windwos System” #yum -y groupinstall “KDE(K Desktop Envirment)” #yum -y groupinstall “GNOMOE Desktop Envirment” #yum -y install “kde-i18n-korean” “fonts-korean” […]

sshd_config 에서 접속 설정

2012년 08월 08일 golgol 0

[sshd_config 에서] AllowGroups : 여기에 등록된 group만 접속 가능함. AllowUsers : 이곳에 등록된 계정만 접속 가능함. DenyGroups : 모두 접속이 허용, 여기에 등록된 group만 접속 […]

useradd로 간단히 계정을 생성

2012년 08월 08일 golgol 0

사용예 #1 useradd로 간단히 계정을 생성 예를 보도록 하자. sspark1이라는 계정사용자를 다음과 같이 새로 생성하였다. [root@host3 root]# useradd -d /home/sspark1 -u 600 -s /bin/csh sspark1 […]

root 유저 접속 금지하고 일반유저 사용방법

2012년 08월 08일 golgol 0

[ssh 원격접속 서비스 보안] 리눅스 설치시 기본적인 ssh설정으로 원격에서 root로 바로 접속이 가능하도록 설정되어 있다. 악의적인 접근자가 무한 스캐닝방법을 사용하여 root 계정명으로 ssh 접속을 시도 […]

mysql 삭제

2012년 08월 08일 golgol 0

$ rpm -qa | grep MySQL If you want to install mysql-server from the repository (base, epel, …), you must uninstall the MySQL-server first by […]

mysql 접근 IP 변경

2012년 08월 08일 golgol 0

mysql 접근 IP 변경 1.호스를 % 로 지정할면 모든 remote 에서 접속 가능, 10.10.99.% = 10.10.99.0 ~ 10.10.99.255


MySql> update user set host = '10.10.99.%' where user = 'root' and host='localhost';
Mysql> commit;

1

2

3

4

MySql> update user set host = '10.10.99.%' where user = 'root' and host='localhost';

Mysql> commit;

2. MySql 환경 파일 변경 […]


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 로 사이트 주소 찾는 경로 확인

XWindows 설치

sshd_config 에서 접속 설정

useradd로 간단히 계정을 생성

root 유저 접속 금지하고 일반유저 사용방법

mysql 삭제

mysql 접근 IP 변경

ping을 막음

WordPress Tables

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

tracert