Nayha

<!--  Zip_Search.asp -->
<!--#include file="dbcon.inc"-->
<%
     response.charset = "euc-kr"

     set rs = server.CreateObject("adodb.recordset")
     sql = "select distinct sido from tb_zip order by sido "
     rs.open sql, db, 1
%>

<script>
 var ajax_gugun;

 function get_gugun_list(sido)
 {  
      ajax_gugun = new ActiveXObject("Microsoft.XMLHTTP");
      ajax_gugun.onreadystatechange = get_gugun_list_callback;
      ajax_gugun.open("GET", "Zip_GugunList.asp?sido=" + sido, true);

      ajax_gugun.send();
 }

 function get_gugun_list_callback()
 {
      if(ajax_gugun.readyState == 4){   
           if(ajax_gugun.status == 200){
                if(typeof(document.all.div_gugun) == "object"){
                    document.all.div_gugun.innerHTML = ajax_gugun.responseText;
                }
           }
      }
 }

 var ajax_addr;
 function get_addr_list(){
      var sido, gugun, dong;

      sido = document.frmZip.sido.value;
      gugun = document.frmZip.gugun.value;
      dong = document.frmZip.dong.value;

      if (dong.length < 2)            return false;
    

      ajax_addr = new ActiveXObject("Microsoft.XMLHTTP");

      ajax_addr.onreadystatechange = get_addr_list_callback;
      ajax_addr.open("GET", "Zip_AddrList.asp?sido=" + sido + "&gugun=" + gugun + "&dong=" + dong, true);     

      ajax_addr.send();
 }

 function get_addr_list_callback()
 {
      if(ajax_addr.readyState == 4){
          if(ajax_addr.status == 200){
              if(typeof(document.all.div_zip_list) == "object"){
                    if(ajax_addr.responseText.length > 0){
                         document.all.div_zip_list.style.display = "";
                         document.all.div_zip_list.innerHTML = ajax_addr.responseText;
                    }
                   else
                         document.all.div_zip_list.style.display = "none";     
               }
          }
     }
 }

</script>

<style>
      input, select, td {  font-family:tahoma;font-size:9pt; }
</style>

<table border="0" cellpadding="4" cellspacing="0" width="400">
<form name="frmZip">
 <tr>
  <td>
   <select name="sido" onChange="get_gugun_list(this.value);">
       <option value="">시도선택</option>
    <% Do Until rs.eof %>
          <option value="<%=rs("sido")%>" ><%=rs("sido")%></option>
    <%
               rs.movenext
          Loop

          rs.close
          Set rs = Nothing
    %>
   </select>
  </td>
  <td>
   <div id="div_gugun">

       <select name="gugun" >   
             <option value="">구/군선택</option>    
       </select>

   </div>
  </td>
  <td>
     동이름 : <input type="text" name="dong" style="width:50">
     <input type="button" value="검색" onClick="get_addr_list();" style="width:40;border-style:solid;border-width:1">
  </td>
 </tr>
 <tr>
  <td colspan="3" align="center">
       동이름을 입력하시오(2글자 이상)<br>
       (예 : 논현, 구의1동, .. )
  </td>
 </tr>
</form>
</table>

<div id="div_zip_list" style="display:none;overflow-y:scroll; height:300;width:400"></div>
 

<!--  Zip_GugunList.asp -->
<!-- #include file="dbcon.inc"-->

<%
     response.charset = "euc-kr"

     sido = request("sido")
 
     sql = "select distinct gugun from tb_zip where sido = '" & sido & "'   order by gugun"
     Set rs = server.CreateObject("adodb.recordset")
     rs.open sql, db, 1
%>

 <select name="gugun" >   
      <option value="">구/군선택</option>  

<% Do Until rs.eof  %>
      <option value="<%=rs("gugun")%>" ><%=rs("gugun")%></option>
<%
          rs.movenext
      Loop

      rs.close
      Set rs = Nothing
%>

 </select>

<!--  Zip_AddrList.asp -->
<!--#include file="dbcon.inc"-->
<%
     response.charset = "euc-kr"

     sido = request("sido")
     gugun = request("gugun")
     dong = request("dong")

     If sido = "" And gugun = "" Then
          sql = "select zipcode, sido, gugun, dong, ri, build, addr from tb_zip where dong like '%" & dong & "%'"
     ElseIf sido <> "" And gugun = "" Then
          sql = "select zipcode, sido, gugun, dong, ri, build,  addr from tb_zip where sido = '" & sido & "' and dong like '%" & dong & "%'" 
     ElseIf sido <> "" And gugun <> "" Then
          sql = "select zipcode, sido, gugun, dong, ri, build,  addr from tb_zip where sido = '" & sido & "' and gugun = '" & gugun & "' and dong like '%" & dong & "%'" 
     End If

     Set rs = server.CreateObject("adodb.recordset")
     rs.open sql, db, 1
%>

<table cellpadding="3" cellspacing="3" border="1" width="400">
<%
     Do Until rs.eof
         zip = "[" & Left(rs("zipcode"), 3) & "-" & Right(rs("zipcode"), 3) & "]"
%>
   <tr>
     <td>
         <a href="#"><%=zip%> </a>
    </td>
    <td>
         <%=rs("addr")%>
    </td>
   </tr>
<%  
       rs.movenext
    Loop
%>
</table>

    

<!---------------------->

<!-- ajaxTest.asp -->

<!---------------------->

<script>
    var ajax_test;

    function getHttpRequest(){
        var tt = document.forms[0].ttt.value;

        // 비동기 요청/응답에 사용할 객체 생성
       ajax_test = new ActiveXObject("Microsoft.XMLHTTP");  

   // 상태변경시마다 호출될 콜백함수
   function ajax_test_rev(){
        if(ajax_test.readyState == 4){  // 객체의 상태(0:비초기화, 1:로딩, 3:상호작용, 4: 완료)
        if(ajax_test.status == 200){ // http 상태(200:확인, 404:파일못찾음, 202:값없음)
        if(typeof(document.all["dd"]) == "object"){
                    // 응답된 텍스트를 원하는 레이어에 출력
                    // responseText에 응답된 내용이 저장되어 있음
                   document.getElementById("dd").innerHTML = ajax_test.responseText;
             }
        }
    }
 }

    var dragflag = false;
    var dragobj,dragfrm,x,y,sleft,sright;

   function move(e){
       if(dragflag){
             dragobj.style.left = sleft + event.clientX - x;
             dragobj.style.top = sright + event.clientY - y;
       }
       return false;
  }

  function drags(obj, e){
       dragobj = eval("document.all."+obj);
       

       dragflag = true;
       sleft  = parseInt(dragobj.style.left + 0);
       sright = parseInt(dragobj.style.top + 0);
       x = event.clientX;
       y = event.clientY;
  

       document.onmousemove = move;
       return false;
   }

   document.onmouseup = new Function("dragflag = false;");
</script>

<body>
   <form name="frm_dd">
        <input type="text" name="ttt"><br>
        <!-- 버튼 클릭 시 test.asp페이지 요청을 위해 getHttpRequest() 호출 -->
        <input type="button" onclick="document.all.dd.style.display='';getHttpRequest();" value="비동기 파일응답받기">
        <input type="button" onclick="document.all.dd.style.display='none';" value="감추기">
    </form>

    <!-- 요청한 페이지를 표시할 레이어 -->
    <div id="dd" style="position:absolute;display:none;left:100px;top:100px;width:200px;height=200px;"></div>

</body>

<HTML>
<HEAD>
<TITLE> Formatcurrency </TITLE>
</HEAD>

<BODY>
1. <%=formatcurrency(25000000)%> 결과값: \25,000,000 <br>
      '통화단위로 표시해준다.  \editplus에서는 원화표시가 안된다.<p>
2. <%="$" & formatNumber(25000000,0)%> $25,000,000.00<br>
      '컴마만 찍어준다. 따라서 달라는 내가 직접 표시해준다.<br>
   ,0을 넣어주면 소숫점값을 빼준다.<p>

3. <%=formatDateTime(now, 0)%>  결과값: 2005-05-17 오후 12:43:09 <br>
4. <%=formatDateTime(now, 1)%>  결과값:2005년 5월 17일 화요일 <br> 
5. <%=formatDateTime(now, 2)%>  결과값:2005-05-17 <br>
6. <%=formatDateTime(now, 3)%>  결과값:오후 12:43:09  <br>
7. <%=formatDateTime(now, 4)%>  결과값:12:43 <p>

8. <%=formatpercent(50/100)%> 결과값: 50.00%<p>
   <%=formatpercent(0.45)%> 결과값: 45.00%<p> 

<%
  str="Everybody Call me Great taeyo"
  response.Write Instr(str,"body") & "<br>"  '결과값: 6
  response.Write Lcase("SuperMan") & "<br>" '결과값:superman<소문자출력>
  response.Write Ucase("SuperMan")& "<br>"  '결과값:SUPERMAN<대문자출력>
%>

</BODY>
</HTML>

<%

h_Price = Request("price")
If Request("price")="" Then h_Price=""

  If h_Price = "b" Then     //radio 값 받기
   kaGuk = "5천미만"   

  end if

%>

<FORM METHOD=POST ACTION="ThemeList.asp" name="frm">

      <td width="33%"><input name="price" type="radio" value="b">
                                5천미만 </td> //레디오 선택

</FORM>           

<a href="javascript:document.frm.submit();"> //스크립트로 서브밋~!!

[시세기준일 : <% if strDates  then %> <%=formatDateTime(strDates,2)%>] <% else %> - ]<% end if %></td> //날짜뽑기

<% if rsListData(2, inti)  then %> <%=formatcurrency(rsListData(2, inti))%> <% else %> - <% end if %></td> //원단위로 뽑기

//프로지져 호출

    objConn.CursorLocation = 3  ' = adUseClient
      With objCmd
       .ActiveConnection = objConn
       .CommandText = "CM_SISE_TLIST_SELECT_PROC"  
       .CommandType = adCmdStoredProc
       .Parameters.Append  .CreateParameter("@SI_CD", adVarChar, adParamInput, 10, strSiCode)
       .Parameters.Append  .CreateParameter("@GU_CD", adVarChar, adParamInput, 10, strMainGuCD)
       .Parameters.Append  .CreateParameter("@H_PRICE", adVarChar, adParamInput, 10, h_Price)
         .Parameters.Append  .CreateParameter("@SPACE_CD ", adVarChar, adParamInput, 10, gong_Cd)
        
       .Execute , , adExecuteNoRecords  
       
      End With
      objRS.Open objCmd, , adOpenForwardOnly, adLockReadOnly, adCmdStoredProc

    If Not objRs.EOF Then
        rsListData = objRs.GetRows()               //전체 테이블 가져옴
        rsListCnt = Ubound(rsListData,2)         

        If Request("strDates")=""  Then
           strDates = rsListData(8, 0)  '선택셀렉트  데이타 없으면 배열 값 가져오기
          end if   

   End if

//프로시져 처리

   IF @H_PRICE <> ''
   BEGIN
    IF  @H_PRICE  = 'b'
       BEGIN
          SET @SQL = @SQL +' AND HIGI_SALE_PRICE < 50000 '
      END

  IF  @H_PRICE  = 'c'
    BEGIN
       SET @SQL = @SQL +' AND HIGI_SALE_PRICE between 50000 and 70000'
    END

.

.

.

END

***  한페이지에서 처리

<!-- 인터페이스 가격체크 -->

<script language="JavaScript">
<!--
 function account(){

 var frm = document.frmReg;

  if ((frm.houseType[0].checked) == false && (frm.houseType[1].checked) == false)
  {
   alert('주택여부를 선택하여 주십시오');
   frm.houseType[0].focus();
   return;
  }

  if ((frm.goodType_code[0].checked) == false && (frm.goodType_code[1].checked) == false )
  {
   alert('거래종류를 선택하여 주십시오');
   frm.goodType_code[0].focus();
   return;
  }

   if(frm.price.value == ''){
    alert("거래금액을 입력하여 주십시오");
    frm.price.value = '';
    frm.price.focus();
    return;
   }else{
   if (!ChkNum(frm.price.value)) {
    alert("거래금액은 숫자만 입력 가능합니다!");
    frm.price.value = '';
    frm.price.focus();
    return;
   }
  }
  document.frmReg.action = 'Taxd.asp';
  document.frmReg.submit();
 }

 function ChkNum(Num) {
  var num ="0123456789";
  for (var i=0; i< Num.length; i++){
    if(-1 == num.indexOf(Num.charAt(i))){
     return false;
    }
  }
  return true;
 }

//-->
</script>

<!-- 변수 받아 계산처리 -->

<%
Dim houseType,houseTypeText
Dim goodType_code,goodTypeText '(1:매매,교환 2:임대, 전세)
Dim price,brokerage,brokerageText

houseType   = Request("houseType")
goodType_code = Request("goodType_code")
price     = Request("price")  * 10000

 Select Case houseType
  Case 1 : houseTypeText = "일반주택"
  Case 2 : houseTypeText = "주택외 비거주용 건물, 토지"
 End Select

 Select Case goodType_code
  Case 1 : goodTypeText = "매매, 교환"
  Case 2 : goodTypeText = "임대, 전세"
 End Select

 IF goodType_code = 1 Then '매매, 교환

  IF houseType  = 2 Then
   brokerage   = " ~ " & formatnumber(price * 0.009,0)
   brokerageText = "~ 0.9%"
  Else
   IF price < 50000000 Then
    brokerage   = price * 0.006
    brokerageText = "0.6%"
    IF brokerage > 250000 Then brokerage = 250000
   ElseIF price >= 50000000  and price <= 200000000 Then
    brokerage   = price * 0.005
    brokerageText = "0.5%"
    IF brokerage > 800000 Then brokerage = 800000
   Else
    brokerage   = price * 0.004
    brokerageText = "0.4%"
   End IF
    brokerage = formatnumber(brokerage,0)
  End IF

 Else '임대, 전세

  IF houseType  = 2 Then
   brokerage   = " ~ " & formatnumber(price * 0.009,0)
   brokerageText = "~ 0.9%"
  Else
   IF price < 50000000 Then
    brokerage   = price * 0.005
    brokerageText = "0.5%"
    IF brokerage > 200000 Then brokerage = 200000
   ElseIF price >= 50000000  and price <= 100000000 Then
    brokerage   = price * 0.004
    brokerageText = "0.4%"
    IF brokerage > 300000 Then brokerage = 300000
   Else
    brokerage   = price * 0.003
    brokerageText = "0.3%"
   End IF
    brokerage = formatnumber(brokerage,0)
  End IF

 End IF
%>

<!-- 체크값-->

<form name="frmReg" method="post">

                             <input type="radio" name="houseType" value=1 />
                              주택&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                              <input type="radio" name="houseType" value=2 />
                              주택 외 부동산 </td>

</form>

<a href="javascript:account();"><!-- 함수 호출 -->

준비물은 자선이가 제공 ㅋㅋ

윈도 서버 사양

AMD 애슬론 654mhz 

512램 (128*128 *256)

하드 60기가

다음달부터 전기세좀 나올꺼야 ~ 램이 3개~ ㅋㅋ;;;

모니터는 없고 마우스만 필요할때만 연결

원격접속으로 서버 관리

** 애로 사항  **

**    인터넷 라인 끌어오기 힘듬 (공유기 큰방) **

*****해결  *****

   무선랜으로 대처 공유기 에서 super dmz 설정으로 외부 접속 가능

   dmz 와 super dmz 차이점?

<참고> DMZ와 Super DMZ 는 차이점은 무엇인가요?
DMZ나 Super DMZ 모두 지정한 PC로 외부에서 직접 접근할 수 있다는 공통점이 있지만, DMZ 서버는 사설 IP를 사용하는 반면 Super DMZ는 공인 IP를 그대로 사용한다는 차이점이 있습니다. 따라서 DMZ 서버는 사설 IP를 사용함으로 인해 발생하는 문제점을 그대로 가지고 있지만 Super DMZ는 이런 모든 문제점을 근본적으로 해결했기 때문에 모든 서비스를 인터넷 공유기를 사용하지 않은 것 처럼 사용하실 수 있습니다.
예를 들어, 소리바다 채팅방 개설, 세이클럽 노래팅, 일부 인터넷 폰은 DMZ 서버로 지정을 해도 이용하실 수 없지만, Super DMZ를 이용하면 아무런 제한없이 이용하실 수 있습니다. (단, AH 프로토콜을 사용하는 VPN은 사용하실 수 없습니다.)

네이버 지식 -_-v

외부 접속 가능 iis 셋팅완료

**  유동 아이피 문제 **

***** 해결 *****

  codns.com 서비스 이용

 유동아이피를 codns가 제공하는 도메인으로 연결

 아이피가 변동할때마다 알아서 바뀌어 내가 사용하는 도메인으로 연결

 서버가 부팅시 프로그램 실행으로 완벽해결 ㅋ ㅋ ㅋ

 자세한 내용 codns.com 사이트 참조

----- 작업중 난감 상황  -----

ftp 가 열리지 않아 삽질 ;;;

공유기설정에서 가성서버 포트 풀어주고

dmz 론 해결이 안되고 superdmz 서비스를 이용해서 해결

변경후 공유기 리부팅

윈도우 ftp 서비스 기능이 좀 부족한듯하여 서버유 설치

원할 접속

무선랜으로 속도가 조금 느림

차후 공유기 한대더 구입후 해결 ;; 또 얼마나 삽질을 할까 에고에고 ~;;

내일은 고스트로 백업을 떠노코 디비와 연동까지 체크후 정식으로 공부할 서버가 탄생됨 캬캬캬

내일 까지 샛팅완료!!!!

익스 소스보기 - > 에디트 플러스 연결

http://cafe.naver.com/ssesse/584