저작권 표시 자동 업데이트

<%
Dim yy
yy = DatePart("yyyy",Now())
%>

저작권 표시를 할 부분

Copyright © 2000-<%=yy%>

ASP Socket 함수

‘—SImple Socket component를 ASP코드로 일반화한 함수입니다.

‘—————————————————————————
‘–함 수 : 소켓을 통해 데이터를 송수신한다.
‘–인 수 : strIp_Addr(접속IP) , intPort(접속포트), strCmd(보낼메세지)
‘– strEndSign(수신문장종결자), intBufferSize(소켓버퍼.기본값:32byte)
‘– intRecvTimeOutSec(수신타임아웃.기본값:1초. 0인경우 타임아웃 없음.)
‘– 수신문자열 : userno=111111&usernm=홍길동\r\n
‘– 위와 같을 경우 strEndSign = “\r\n”가 된다.
‘—————————————————————————
Function SocketReceive(byRef strIp_Addr, ByRef intPort, ByRef strSendData, ByRef strEndSign, ByRef
intBufferSize, ByRef intRecvTimeOutSec)
Dim ret
Dim objSock ‘–소켓객체
Dim recvStr ‘–수신문자열
Dim recv_STTime ‘–수신시작시간
Dim useEndSign ‘–수신문장종결자사용여부

Const DEFAULT_RECV_TIMEOUT= 1 ‘–수신타임아웃 기본값. sec.
Const DEFAULT_BUFFER_SIZE = 32 ‘–소켓버퍼사이즈 기본값. byte.

On Error Resume Next

‘–입력값 검사 및 기본값 설정.
If Len(strIp_Addr) 0
If Not useEndSign And intRecvTimeOutSec 0 Then Exit Do
End If
If intRecvTimeOutSec > 0 Then
‘//수신타임아웃
If Timer() – recv_STTime > intRecvTimeOutSec Then Exit Do
End If
Loop
End If
.Close
End With
SocketReceive = recvStr
Set objSock = Nothing
End Function

 

EX :: recvStr = SocketReceive(“127.0.0.1″, “10012″, “cmd=GETUSERINFO&userno=123456″ & vbCrLf,
vbCrlf, 1024, 2)