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