Think Web!

<%
	Dim objChart

	'// 아래와 같이 객체를 생성하면 OWC 11 에서는 오류가 발생한다.
	Set objChart = Server.CreateObject("OWC.Chart")
	Set objChart = Nothing

	'// OWC 11 에서 정상적으로 객체 생성하는 방법
	Set objChart = Server.CreateObject("OWC11.ChartSpace")
	Set objChart = Nothing

	Set objChart = Server.CreateObject("OWC11.Spreadsheet")
	Set objChart = Nothing
%>

• Completely FREE Classic ASP VBScript.
• The secure code is completely random.
• Dynamic image processing.
• No image file requires.
• No components requires.
• Create a cross browser compatible BMP images.
• You can use a custom color palette for image.

* User browsers must support cookies and ASP session state must be enabled

공개된 소스는 3가지 형태로 제공되고 있습니다.

• 숫자로만 이미지를 보여주는 소스 : captcha_numbers.zip
• 문자(영문)로만 이미지를 보여주는 소스 : captcha_words.zip
• 숫자와 문자를 섞어서 이미지를 보여주는 소스 : captcha_numchar.zip

아쉽게도 현재 더 이상 개선작업을 위한 개발은 진행되지 않고 있으나 현재 기능으로도 충분히 원하는 기능을 구현하는데는 부족함이 없습니다.

소스를 다운로드 받아서 압축을 풀어보면 captcha.asp 와 test.asp 두개의 파일이 들어있습니다.
captcha.asp 는 이미지파일을 생성하는 소스이며 test.asp 에서는 실제 사용하는 방법을 소개한 예제 파일이 들어있습니다. 따라서 test.asp 파일을 분석하면 사용방법을 쉽게 익힐 수 있습니다.

<%
    Function fnGetCutString(strString, intCutLen, strDiv)
        Dim intLen '// 문자열 길이
        Dim intByte '// byte 수
        Dim strCutString
        Dim strRes
        Dim strChar
        Dim intX
        intLen = 0
        intByte = 0
        strRes = ""
        intLen = Len(strString)

        For intX = 1 to intLen
            strChar = ""
            strCutString = Mid(strString, intX, 1)        '//    일단 1만큼 잘라서 strCutString에 저장한다.
            strChar = Asc(strCutString)        '//    아스키 코드값 읽어오기
            strChar = Left(strChar, 1)
            If strChar = "-" Then            '//    "-"이면 2바이트 문자임
                intByte = intByte + 2
            Else
                intByte = intByte + 1
            End If
            If intCutLen < intByte Then
                '// 현재 문자열 byte 수가 지정한 byte 수보다 크면 For 문을 빠져나간다.
                strRes = strRes & strDiv
                Exit For
            Else
                '// 현재 문자열 byte 수가 지정한 byte 수보다 작으면 strRes 에 잘라낸 문자열을 추가한다.
                strRes = strRes & strCutString
            End If
        Next
        fnGetCutString = strRes
    End Function

    '// 함수 사용 예제
    Dim strSubject
    strSubject = "소비자를 중심으로 소비자의 심리를 이해하고 마케팅을 하는 고객지향적 마케팅 기법"

    '// strSubject 변수에 지정된 문자열의 첫 40 byte 만 가져오고 문자열이 40byte 보다 크면 ".." 로 대체한다.
    Response.Write(fnGetCutString(strSubject, 40, ".."))

    '// "소비자를 중심으로 소비자의 심리를 이해하.." 가 화면에 출력된다.
%>

1. IIS6.0 콘솔에서 컴퓨터이름에서 속성 - 메타베이스 직접 편집 허용 체크합니다.

2. %SystemRoot%\System32\Inetsrv\Metabase.xml 을 메모장으로 엽니다.

3. AspBufferingLimit = "4194304" 값을 크게 변경합니다.  => -1 로 지정하면 가장 큰 값으로 할당됩니다.

4. IIS를 Reset 한 후 확인합니다.

CGZipLibrary.dll

가끔 ASP로 작업을 하다보면 파일을 압축하거나 압축해제를 해야하는 경우가 생깁니다. 그런데 ASP에서는 이런 기능을 제공하지 않기 때문에 서버용 콤포넌트를 개발해서 사용해야됩니다.

일반개발자들이 이런 서버용 콤포넌트를 개발하기란 쉽지 않습니다. 그래서 몇 군데 자료를 찾다가 괜찮은 압축처리 콤포넌트를 찾아 소개합니다.

<%
    '=====================================================
    ' 압축
    '=====================================================
    Dim oZip
    Set oZip = Server.CreateObject("CGZipLibrary.CGZipFiles")

    ' 압축할 파일을 추가합니다.
    oZip.AddFile "C:\Inetpub\wwwroot\default.asp"
    oZip.AddFile "C:\Inetpub\wwwroot\test.txt"
    ' 이렇게하면 폴더안의 모든파일/폴더 압축합니다.
    'oZip.AddFile "C:\Inetpub\wwwroot\*.*"
    ' 압축 파일 이름을 지정합니다.
    oZip.ZipFileName = "C:\Inetpub\wwwroot\ziptest\test.zip"
    oZip.UpdatingZip = False

    ' 오류가 발생하면 오류 내용을 출력합니다.
    If oZip.MakeZipFile <> 0 Then
        Response.Write(oZip.GetLastMessage)
    End If
    Set oZip = Nothing
    '=====================================================

    ' 압축 해제
    '=====================================================
    Dim oUnZip
    Set oUnZip = Server.CreateObject("CGZipLibrary.CGUnzipFiles")
    ' 압축파일이름을 지정합니다.
    oUnZip.ZipFileName = "C:\Inetpub\wwwroot\ziptest\test.zip"
    ' 압축파일 내용을 풀 경로를 지정합니다.
    oUnZip.ExtractDir = "C:\Inetpub\wwwroot\ziptest\extractfolder"
    ' 오류가 발생하면 오류 내용을 출력합니다.
    If oUnZip.Unzip <> 0 Then
        Response.Write(oUnZip.GetLastMessage)
    End If
    Set oUnZip = Nothing
%>

http://www.codeguru.com/vb/gen/vb_graphics/fileformats/article.php/c6743/

위의 url에서 압축관련 모듈을 다운받으면 VB에서 실행해볼 수 있습니다. 압축풀면GZipLibrary.dll 파일이있는데 여기에 올린 파일은 코드구루에 있는 CGZipLibrary.dll 파일이 아주 조금 틀립니다. 코드구루의CGZipLibrary.dll 은 압축할때 디렉토리 경로까지 압축을 합니다.

원본 소스를 수정한 내용은 CGZipFiles.cls 파일에서 MakeZipFile 함수를 보면 iIgnorePath 부분 변수 사용한곳이있는데그곳의 값을 '1' 로 수정한후 재컴파일 하였습니다.
이 값은 0 과 1 두가지 옵션이 있는데 '0' 일 경우 디렉토리 경로까지 압축하고'1' 일경우엔 경로무시합니다.