나른한 오후~

day(DateSerial(dyear, dmonth+1, 0))

'------------------------------------------------------------------------------
'   Description : byte(바이트) 글자 체크
'------------------------------------------------------------------------------
function fn_ByteLen(str)
    tlen=0
    tt=len(str)
    k=1
    for i=1 to tt
        if asc(mid(str,k,1)) < 0 then
            tlen=tlen+2
        else
            tlen=tlen+1
        end if
        k=k+1
    next
    fn_ByteLen=tlen
end function

-------------------------------------소스-----------------------------------
<%
Function no_html(contents)
contents = trim(contents) '앞, 뒤 공백제거
contents = replace(replace(contents,"<","&lt;"),">","&gt;") '<, > 처리
contents = replace(contents,chr(13)&chr(10),"<br>") 'Enter 처리
contents = replace(contents,chr(32),"&nbsp;") 'Space Bar 처리
contents = replace(contents,chr(9),"&nbsp;&nbsp;&nbsp;&nbsp;") 'Tab 처리
contents = replace(contents,"'","''") '작은따옴표(') 처리

contents = replace(contents,"&lt;%","<font color=""800000"">&lt;%") 'Asp 불능..처리
contents = replace(contents,"%&gt;","%&gt;</font>")

no_html = contents
End Function

Function html(contents)
contents = trim(contents) '앞, 뒤 공백제거
contents = replace(contents,"<t","&lt;t") '<table 테그 사용금지1
contents = replace(contents,"<T","&lt;T") '<table 테그 사용금지2
'contents = replace(contents,"<tr"&"<Tr","&lt;tr") '<tr 테그 사용금지
'contents = replace(contents,"<td"&"<Td","&lt;td") '<td 테그 사용금지
contents = replace(contents,"'","''") '작은따옴표(') 처리

contents = replace(contents,"<"&chr(37),"<font color=""800000"">&lt;%") 'Asp 불능..처리
contents = replace(contents,chr(37)&">","%&gt;</font>") 'Asp 불능..처리

html = contents
End Function
%>

<%
aa = no_html(request("aa"))
cc = html(request("aa"))
%>

1. <%@  codepage="65001" language="VBScript" %>

해당 ASP 파일의 페이지 속성을 정의 하게 되는 부분입니다.

codepage="65001" 는 UTF-8 의 속성을 나타내는 페이지 속성이라고 보심 됩니다.

다음과 같이 페이지 속성을 수정해 주시면 될거같네요 ^^;

<%@  codepage="949" language="VBScript" %>

대표적인 텍스트 인코딩 코드 페이지 값으로는 밑에 있는대로... 나머지는 공부하시면서 찾아보세요 ^^

0 : ANSI (기본값)

949 : 한국어 (EUC-KR)

65001 : 유니코드 (UTF-8)

65535 : 유니코드 (UTF-16)

 

2. <meta http-equiv="Content-Type" content="text/html; charset=utf-8">

해당 페이지의 (HTML,ASP,JSP,PHP 등) 정보를 가지고 있는 메타 태그를 설정하는 부분입니다.

메타 태그의 속성을 charset=utf-8" 으로 정해 주셨기 때문에 한글이 깨지는 현상이 발생합니다.

다음과 같이 메타 태그의 문자코드 세트명을 변경해 주시면 될거같네요....

<meta http-equiv="Content-Type" content="text/html; charset=EUC-KR">

3. Session.CodePage = 65001

Session.CodePage는 현재 세션 사용자의 동적 텍스트 인코딩 코드를 설정합니다.

코드 페이지를 설정함... 문자세트를 결정하는 정수를 값으로 받네요 ^^;

다음과 같이 코드 페이지를 설정하면 될거같네요 ^^;

Session.CodePage = 949

ServerVariables collection 사용으로 서버 및 클라이언트 정보확인이 가능하며
여기서 얻어낸 정보로 도메인 및 설정된 언어에 따라 웹페이지 이동과
파일 업로드, 로그 분석, 약간의 보안설정 등 많은 부분에 이용이 가능합니다.

APPL_PHYSICAL_PATH : E:\HOME\help_tt_co_kr\
메타베이스 경로에 해당하는 실제(디렉터리) 경로를 반환합니다.

- PATH_TRANSLATED : E:\HOME\help_tt_co_kr\servervariables\ServerVariables.asp
실제(디렉토리) 경로를 반환합니다.

- HTTP_HOST : help_tt.co.kr
도메인명을 반환합니다.

- HTTP_URL : /servervariables/ServerVariables.asp
도메인명의 이후 URL을 반환합니다.

- HTTP_METHOD : GET
전송방식을 반환합니다.

- HTTP_REFERER : http://help.tt.co.kr/servervariables/servervariables_start.asp
현재 페이지를 참조했던 이전 페이지 URL 문자열을 반환합니다.

- LOCAL_ADDR : 222.110.110.3
요청에 응답하는 서버 주소를 반환합니다.

- SERVER_PORT : 80
요청에 응답하는 서버 포트번호를 반환합니다.

- SERVER_SOFTWARE : Microsoft-IIS/6.0
요청에 응답하는 서버의 소프트웨어 이름과 버전 확인이 가능합니다.

- REMOTE_ADDR : 222.235.68.2
요청을 하는 원격 호스트 주소를 반환합니다.

- REMOTE_PORT : 2965
요청을 하는 원격 호스트의 포트번호를 반환합니다.

- HTTP_ACCEPT_LANGUAGE : ko
컨텐트를 표시하는 데 사용할 설정 값의 확인이 가능합니다.


위의 정보 확인은 아래의 소스로 확인이 가능합니다.
<%
response.write "<b>APPL_PHYSICAL_PATH :</b> " & Request.ServerVariables("APPL_PHYSICAL_PATH") & "<br>"
response.write "<b>PATH_TRANSLATED :</b> " & Request.ServerVariables("PATH_TRANSLATED") & "<br>"
response.write "<b>HTTP_HOST :</b> " & Request.ServerVariables("HTTP_HOST") & "<br>"
response.write "<b>HTTP_URL :</b> " & Request.ServerVariables("HTTP_URL") & "<br>"
response.write "<b>HTTP_METHOD :</b> " & Request.ServerVariables("HTTP_METHOD") & "<br>"
response.write "<b>HTTP_REFERER :</b> " & Request.ServerVariables("HTTP_REFERER") & "<br>"
response.write "<b>LOCAL_ADDR :</b> " & Request.ServerVariables("LOCAL_ADDR") & "<br>"
response.write "<b>SERVER_PORT :</b> " & Request.ServerVariables("SERVER_PORT") & "<br>"
response.write "<b>SERVER_SOFTWARE :</b> " & Request.ServerVariables("SERVER_SOFTWARE") & "<br>"
response.write "<b>REMOTE_ADDR :</b> " & Request.ServerVariables("REMOTE_ADDR") & "<br>"
response.write "<b>REMOTE_PORT :</b> " & Request.ServerVariables("REMOTE_PORT") & "<br>"
response.write "<b>HTTP_ACCEPT_LANGUAGE :</b> " & Request.ServerVariables("HTTP_ACCEPT_LANGUAGE") & "<br>"
%>


위의 정보 및 다른 값들을 확인하기 위해서는 아래의 소스로 확인이 가능합니다.
<table border="1">
        <tr>
                <td>변수명</td>
                <td>값</td>
        </tr>
        <%
        for each key in request.servervariables
        %>
        <tr align=left>
                <td><%=key%></td>
                <td>
                <%
                if request.servervariables(key)="" then
                        response.write " "
                else
                        response.write request.servervariables(key)
                end if
                %>
                </td>
        </tr>
        <%
        next
        %>
</table>

설명
한 식이 날짜로 변환될 수 있는지 여부를 나타내는 부울값을 반환합니다.
구문
IsDate(expression)
expression 인수는 날짜식 또는 날짜나 시간으로 인식될 수 있는 문자식입니다.

참고
IsDate 함수는 해당 식이 날짜이거나 유효한 날짜로 변환될 수 있는 경우 True를, 그렇지 않으면 False를 반환합니다. Microsoft Windows의 유효한 날짜 범위는 서기 100년 1월 1일에서 서기 9999년 12월 31일까지이지만, 운영 체제에 따라 그 범위가 달라집니다.
아래 예제에서 IsDate 함수는 식이 날짜로 변환될 수 있는 지 여부를 결정합니다.

Dim MyDate, YourDate, NoDate, MyCheck
MyDate = "1962년 10월 19일": YourDate = #10/19/62#: NoDate = "안녕하십니까?"
MyCheck = IsDate(MyDate)            ' True를 반환합니다.
MyCheck = IsDate(YourDate)          ' True를 반환합니다.
MyCheck = IsDate(NoDate)            ' False를 반환합니다.