Nayha

<%

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 서비스 기능이 좀 부족한듯하여 서버유 설치

원할 접속

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

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

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

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

ASP에서 제공하는 날짜함수들도 있지만, 제공되지 않지만 많이 사용되는 함수를 몇가지 소개하고자 한다. 기본적으로 날짜는 'YYYY-MM-DD'의 형식을 가지고, 시간은 'hh:mm:ss'의 형식을 갖는다.

사용예는 나중에 달력으로 설명하도록 하겠습니다.

* 기본적으로 제공하는 날짜함수

    - now : 날짜와 시간을 알려주는 함수

    - date : 날짜를 알려주는 함수

    - time : 시간을 알려주는 함수

    - year(날짜), month(날짜), day(날짜) : 날짜에서 년, 월, 일 값을 알려주는 함수

    - hour(시간), minute(시간), second(시간) : 시간에서 시, 분, 초를 알려주는 함수

    - weekday(날짜) : 요일번호를 알려준다(0~6 : 일~토)

    - weekdayname(요일번호), monthname(월) : 요일명과 월명을 알려준다

    - dateadd("기준", 수, 날짜) : 날짜에 기준이 되는 단위만큼 수를 더한다.

           기준에는 (d:일, m:월, h:시간, y:년, s:초, ..등이 올 수 있다)

    - datediff("기준", 날짜1, 날짜2) : 두 날짜의 차를 구하는 함수 

    - datepart("기준", 날짜) : 날짜에서 특정부분을 추출하는 함수

    - dateserial(년, 월, 일) : 년,월,일 값을 날짜형식으로 변환하는 함수

* 자주 사용되는 날짜관련 기능들

   - 윤년 구하는 함수(윤년이면 true, 평년이면 false를 반환)

 function IsLeapYear(yy)

       if(yy mod 4 = 0 and yy mod 100 <> 0 or yy mod 400 = 0)

                IsLeapYear = true

       else

                IsLeapYear = false

 end function

    - 월의 마지막 날 구하는 함수

 function GetLastDay(yy, mm)

     dim mmend

     mmend = Array(0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)

     if (IsLeapYear(yy) and mm = 2) then

           mmend(2) = 29

     end if

     GetLastDay = mmend(mm)

 end function

    - YYYY-MM-DD형식으로 날짜 만들기

 function GetDateType(yy, mm, dd)

      if len(yy) = 1 then

            yy = "000" & yy

      elseif len(yy) = 2 then

            yy = "00" & yy

      elseif len(yy) = 3 then

            yy = "0" & yy

      end if

      if len(mm) < 10 then

             mm = "0" & mm

      end if

      if len(dd) < 10 then

             dd = "0" & dd

      end if

      GetDateType = yy & "-" & mm & "-" & dd

 end function