웹마스터 팁
page_full_width" class="col-xs-12" |cond="$__Context->page_full_width">
외부프로그램에서 제로보드 xe 및 그누보드 회원 연동(로그인) 하기 - 초간단
2010.02.03 01:24
제로보드와 마찬가지로 url로 로그인 하는 방법이다.
http://www.hanistory.com/?mid=logincheck&user_id=아이디&password=패스워드&act=procMemberLogin
해당 주소로 접속하면 id/pw 가 맞을경우 "SUCCESS"를 표기한다.
이를 읽어오면 로그인 유무를 판단할수 있고
해당 모듈의 로그인 위젯에 회원정보가 표기되게 설정하면 회원정보까지 긁어올수 있다.
VB6.0 이라면 Inet 컨트롤이나 Wininet.dll 을 사용하여
위주소로 웹페이지 내용을 읽어 오면 된다.
닷넷으로는 WebRequest를 이용해 웹페이지를 읽어왔다.
Public Function GetUrl("ByVal sUrl As String) As String '+ '//서버인증 On Error GoTo ErrorMsg Dim myHttpWebRequest As HttpWebRequest = CType(WebRequest.Create(sUrl), HttpWebRequest) Dim myHttpWebResponse As HttpWebResponse = CType(myHttpWebRequest.GetResponse(), HttpWebResponse) Dim receiveStream As Stream = myHttpWebResponse.GetResponseStream() Dim encode As Encoding = System.Text.Encoding.GetEncoding("UTF-8") Dim readStream As New StreamReader(receiveStream, encode) Dim read(256) As [Char] Dim count As Integer = readStream.Read(read, 0, 256) GetUrl = "" '+ 'Dim strHtml As String = "" While count > 0 Dim str As New [String](read, 0, count) GetUrl &= str count = readStream.Read(read, 0, 256) End While 'readStream.Close() 'myHttpWebResponse.Close() Return GetUrl ErrorMsg: MsgBox("서버연결에 실패했습니다.") End End Function
'로그인 폼에서 Geturl() 호출
Private Sub OK_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click 'xe(로그인) Dim LoginUrl1 As String = "http://www.홈페이지.com/?mid=loguncheck" Dim LoginUrl2 As String = "&user_id=" + Username.Text + "&password=" + Password.Text Dim LoginUrl3 As String = "&act=procMemberLogin" '그누보드 로그인 'http://www.hanistory.com/g4/bbs/login_check.php?_POST[mb_id]=UserId&_POST[mb_password]=Password 'Dim LoginUrl1 As String = "http://www.홈페이지.com/bbs/login_check.php?" 'Dim LoginUrl2 As String = "_POST[mb_id]=" + Username.Text + "&_POST[mb_password]=" + Password.Text 'Dim LoginUrl3 As String = "&url=success" Dim LoginUrl As String = LoginUrl1 + LoginUrl2 + LoginUrl3 Dim UrlSource As String = GetUrl("LoginUrl) 'Debug.Print(LoginUrl) 'Debug.Print(GetUrl("LoginUrl) If InStr(UrlSource, "success") Then 'xe() Dim MemLevel As Integer = Val(Mid(UrlSource, InStr(UrlSource, "<dt>Level. ") + 11, 2)) '그누보드 'Dim MemLevel As String = GetUrl("LoginUrl1 + LoginUrl2 & "&url=index.php") 'Debug.Print("레벨" & MemLevel) If MemLevel >= 0 Then LogInCheck = True Me.Hide() frmMain.Show() Else MsgBox("사용권한이 없습니다.") LogInCheck = False End End If UserID = Username.Text UserPW = Password.Text Else MsgBox("사용자가 없거나 지정한 암호가 다릅니다.", , "로그인") Password.Select() SendKeys.Send("{Home}+{End}") End If End Sub
잘 안된다는 그누보드도 이방법으로 먹힌다.
단 그누보드는 루트의 common.php 의 아래부분을 주석처리 해야됨.
//================================================================= // extract($_GET); 명령으로 인해 page.php?_POST[var1]=data1&_POST[var2]=data2 와 같은 코드가 _POST 변수로 사용되는 것을 막음 // 081029 : letsgolee 님께서 도움 주셨습니다. //------------------------------------------------------------------------------------------------------------------ $ext_arr = array ('PHP_SELF', '_ENV', '_GET', '_POST', '_FILES', '_SERVER', '_COOKIE', '_SESSION', '_REQUEST', 'HTTP_ENV_VARS', 'HTTP_GET_VARS', '+ 'HTTP_POST_VARS', 'HTTP_POST_FILES', 'HTTP_SERVER_VARS', 'HTTP_COOKIE_VARS', 'HTTP_SESSION_VARS', 'GLOBALS'); $ext_cnt = count($ext_arr); /*for ($i=0; $i<$ext_cnt; $i++) { // GET 으로 선언된 전역변수가 있다면 unset() 시킴 //if (isset($_GET[$ext_arr[$i]])) unset($_GET[$ext_arr[$i]]); }*/ //=================================================================
제목 | 글쓴이 | 날짜 |
---|---|---|
한꼬마의 제로보드 이용법 (sql로 테이블 호출) [2] | 한꼬마 | 2003.11.26 |
나만의 미니홈 만들기 ㅡ 글쓰기에 앞서... [1] | 예뜨락 | 2004.11.17 |
나만의 미니홈 만들기 ㅡ 메인 기초 설계 .home.php
[12]
![]() | 예뜨락 | 2004.11.17 |
나만의 미니홈 만들기 ㅡ 메인 기초 설계2 .레이아웃 | 예뜨락 | 2004.11.18 |
나만의 미니홈 만들기 ㅡ 메인 기초 설계3 .레이아웃
[2]
![]() | 예뜨락 | 2004.11.19 |
나만의 미니홈 만들기 ㅡ 기초적인 관리 페이지
[3]
![]() | 예뜨락 | 2004.11.20 |
나만의 미니홈 만들기 ㅡ 미니홈 생성 페이지
[3]
![]() | 예뜨락 | 2004.11.20 |
나만의 미니홈 만들기 ㅡ list.php , 디비 테이블 생성
[6]
![]() | 예뜨락 | 2004.11.26 |
나만의 미니홈 만들기 ㅡ view.php 파일과 제목링크
[9]
![]() | 예뜨락 | 2004.11.27 |
나만의 미니홈 만들기 ㅡ write.php 파일과 write_ok [5] | 예뜨락 | 2004.11.30 |
나만의 미니홈 만들기 ㅡ delete.php 파일 [2] | 예뜨락 | 2005.01.03 |
나만의 미니홈 만들기 ㅡ password.php
[8]
![]() | 예뜨락 | 2005.05.07 |
나만의 미니홈 만들기 ㅡ 간단한 최근글 불러오기 [6] | 예뜨락 | 2005.05.09 |
포인트부여시 ...회원로그인 [2] | 구본순 | 2007.08.28 |
관리자모드 - 관리자그룹만 모든 회원리스트보기 [2] | 이지혜609 | 2007.10.23 |
PHP에 입문하시는 분들을 위해 적어봅니다. [5] | 특급잠수부 | 2008.04.26 |
PHP_9_My-sql함수를 이용한 프로그램_1 | 아무흐 | 2008.07.15 |
트래픽관리 Throttle-status 사용자 인증시키기 [1] | Cksoft | 2003.03.18 |
한컴 리눅스 2.2 apach php mysql phpmyadmin zeroboard 서버구축기 예전에 쓴글 약간 수정판 입니다. [6] | 한돌 | 2003.05.19 |
sh명령어를 이용한 웹사이트 관리 | 김동욱 | 2004.08.09 |
홈페이지
그누보드와 XE 포인트 연동할수없나요?