[원문] -  http://support.microsoft.com/kb/q195951/

문서에서는 쿼리 및 ADO (ActiveX 데이터 개체) 에서 ASP (Active Server Pages) 페이지를 사용하는 Excel 스프레드시트의 정보를 업데이트하는 방법을 보여 줍니다. 이 문서에서는 또한 이러한 유형의 응용 프로그램에 관련된 제한 사항을 설명합니다.

중요: 다중 사용자 액세스 ASP/ADO 응용 프로그램을 지원하지 않지만 Excel 스프레드시트를 않습니다. 따라서 쿼리 및 정보를 업데이트하는 이 방법은 다중 사용자 동시 액세스가 지원하지 않습니다.

추가 정보

이 샘플의 Excel 스프레드시트의 데이터를 액세스하려면 Excel Microsoft ODBC 드라이버를 사용하십시오. Excel 스프레드시트에...

참조

자세한 내용은 Microsoft 기술 자료의 다음 문서를 참조하십시오. 190195  (http://support.microsoft.com/kb...

[원문 ] http://www.freeaspupload.net/freeaspupload/download.asp [다운로드 페이지]

To learn how to use this class in your site, read the instructions in the documentation page or download the example form that comes with the code.

Do not copy the code from this page, use the Download option. If you copy and paste, some lines of text may be broken by the browser because of their length.

Contents of freeASPUpload.asp:

<%
' For examples, documentation, and your own free copy, go to:
' http://www.freeaspupload.net
' Note: You can copy and use this script for free and you can make changes
' to the code, but you cannot remove the above comment.

'Changes:
'Aug 2, 2005: Add support for checkboxes and other input elements with multiple values
'Jan 6, 2009: Lars added ASP_CHUNK_SIZE
'Sep 3, 2010: Enforce UTF-8 everywhere; new function to convert byte array to unicode string

const DEFAULT_ASP_CHUNK_SIZE = 200000

const adModeReadWrite = 3
const adTypeBinary = 1
const adTypeText = 2
const adSaveCreateOverWrite = 2

Class FreeASPUpload
  Public UploadedFiles
  Public FormElements

  Private VarArrayBinRequest
  Private StreamRequest
  Private uploadedYet
  Private internalChunkSize

  Private Sub Class_Initialize()
    Set UploadedFiles = Server.CreateObject("Scripting.Dictionary")
    Set FormElements = Server.CreateObject("Scripting.Dictionary")
    Set StreamRequest = Server.CreateObject("ADODB.Stream")
    StreamRequest.Type = adTypeText
    StreamRequest.Open
    uploadedYet = false
    internalChunkSize = DEFAULT_ASP_CHUNK_SIZE
  End Sub
 
  Private Sub Class_Terminate()
    If IsObject(UploadedFiles) Then
      UploadedFiles.RemoveAll()
      Set UploadedFiles = Nothing
    End If
    If IsObject(FormElements) Then
      FormElements.RemoveAll()
      Set FormElements = Nothing
    End If
    StreamRequest.Close
    Set StreamRequest = Nothing
  End Sub

  Public Property Get Form(sIndex)
    Form = ""
    If FormElements.Exists(LCase(sIndex)) Then Form = FormElements.Item(LCase(sIndex))
  End Property

  Public Property Get Files()
    Files = UploadedFiles.Items
  End Property
 
Public Property Get Exists(sIndex)
Exists = false
If FormElements.Exists(LCase(sIndex)) Then Exists = true
End Property

Public Property Get FileExists(sIndex)
FileExists = false
if UploadedFiles.Exists(LCase(sIndex)) then FileExists = true
End Property

Public Property Get chunkSize()
    chunkSize = internalChunkSize
  End Property

  Public Property Let chunkSize(sz)
    internalChunkSize = sz
  End Property

  'Calls Upload to extract the data from the binary request and then saves the uploaded files
  Public Sub Save(path)
    Dim streamFile, fileItem, filePath

    if Right(path, 1) <> "\" then path = path & "\"

    if not uploadedYet then Upload

    For Each fileItem In UploadedFiles.Items
      filePath = path & fileItem.FileName
      Set streamFile = Server.CreateObject("ADODB.Stream")
      streamFile.Type = adTypeBinary
      streamFile.Open
      StreamRequest.Position=fileItem.Start
      StreamRequest.CopyTo streamFile, fileItem.Length
      streamFile.SaveToFile filePath, adSaveCreateOverWrite
      streamFile.close
      Set streamFile = Nothing
      fileItem.Path = filePath
     Next
  End Sub
 
  public sub SaveOne(path, num, byref outFileName, byref outLocalFileName)
    Dim streamFile, fileItems, fileItem, fs

set fs = Server.CreateObject("Scripting.FileSystemObject")
    if Right(path, 1) <> "\" then path = path & "\"

    if not uploadedYet then Upload
    if UploadedFiles.Count > 0 then
      fileItems = UploadedFiles.Items
      set fileItem = fileItems(num)
   
      outFileName = fileItem.FileName
      outLocalFileName = GetFileName(path, outFileName)
   
      Set streamFile = Server.CreateObject("ADODB.Stream")
      streamFile.Type = adTypeBinary
      streamFile.Open
      StreamRequest.Position = fileItem.Start
      StreamRequest.CopyTo streamFile, fileItem.Length
      streamFile.SaveToFile path & outLocalFileName, adSaveCreateOverWrite
      streamFile.close
      Set streamFile = Nothing
      fileItem.Path = path & filename
    end if
  end sub

  Public Function SaveBinRequest(path) ' For debugging purposes
    StreamRequest.SaveToFile path & "\debugStream.bin", 2
  End Function

  Public Sub DumpData() 'only works if files are plain text
    Dim i, aKeys, f
    response.write "Form Items:<br>"
    aKeys = FormElements.Keys
    For i = 0 To FormElements.Count -1 ' Iterate the array
      response.write aKeys(i) & " = " & FormElements.Item(aKeys(i)) & "<BR>"
    Next
    response.write "Uploaded Files:<br>"
    For Each f In UploadedFiles.Items
      response.write "Name: " & f.FileName & "<br>"
      response.write "Type: " & f.ContentType & "<br>"
      response.write "Start: " & f.Start & "<br>"
      response.write "Size: " & f.Length & "<br>"
     Next
  End Sub

  Public Sub Upload()
    Dim nCurPos, nDataBoundPos, nLastSepPos
    Dim nPosFile, nPosBound
    Dim sFieldName, osPathSep, auxStr
    Dim readBytes, readLoop, tmpBinRequest
   
    'RFC1867 Tokens
    Dim vDataSep
    Dim tNewLine, tDoubleQuotes, tTerm, tFilename, tName, tContentDisp, tContentType
    tNewLine = String2Byte(Chr(13))
    tDoubleQuotes = String2Byte(Chr(34))
    tTerm = String2Byte("--")
    tFilename = String2Byte("filename=""")
    tName = String2Byte("name=""")
    tContentDisp = String2Byte("Content-Disposition")
    tContentType = String2Byte("Content-Type:")

    uploadedYet = true

    on error resume next
      ' Copy binary request to a byte array, on which functions like InstrB and others can be used to search for separation tokens
      readBytes = internalChunkSize
      VarArrayBinRequest = Request.BinaryRead(readBytes)
      VarArrayBinRequest = midb(VarArrayBinRequest, 1, lenb(VarArrayBinRequest))
      Do Until readBytes < 1
        tmpBinRequest = Request.BinaryRead(readBytes)
        if readBytes > 0 then
          VarArrayBinRequest = VarArrayBinRequest & midb(tmpBinRequest, 1, lenb(tmpBinRequest))
        end if
      Loop
      StreamRequest.WriteText(VarArrayBinRequest)
      StreamRequest.Flush()
      if Err.Number <> 0 then
        response.write "<br><br><B>System reported this error:</B><p>"
        response.write Err.Description & "<p>"
        response.write "The most likely cause for this error is the incorrect setup of AspMaxRequestEntityAllowed in IIS MetaBase. Please see instructions in the <A HREF='http://www.freeaspupload.net/freeaspupload/requirements.asp'>requirements page of freeaspupload.net</A>.<p>"
        Exit Sub
      end if
    on error goto 0 'reset error handling

    nCurPos = FindToken(tNewLine,1) 'Note: nCurPos is 1-based (and so is InstrB, MidB, etc)

    If nCurPos <= 1 Then Exit Sub
    
    'vDataSep is a separator like -----------------------------21763138716045
    vDataSep = MidB(VarArrayBinRequest, 1, nCurPos-1)

    'Start of current separator
    nDataBoundPos = 1

    'Beginning of last line
    nLastSepPos = FindToken(vDataSep & tTerm, 1)

    Do Until nDataBoundPos = nLastSepPos
     
      nCurPos = SkipToken(tContentDisp, nDataBoundPos)
      nCurPos = SkipToken(tName, nCurPos)
      sFieldName = ExtractField(tDoubleQuotes, nCurPos)

      nPosFile = FindToken(tFilename, nCurPos)
      nPosBound = FindToken(vDataSep, nCurPos)
     
      If nPosFile <> 0 And nPosFile < nPosBound Then
        Dim oUploadFile
        Set oUploadFile = New UploadedFile
       
        nCurPos = SkipToken(tFilename, nCurPos)
        auxStr = ExtractField(tDoubleQuotes, nCurPos)
' We are interested only in the name of the file, not the whole path
' Path separator is \ in windows, / in UNIX
' While IE seems to put the whole pathname in the stream, Mozilla seem to
' only put the actual file name, so UNIX paths may be rare. But not impossible.
osPathSep = "\"
if InStr(auxStr, osPathSep) = 0 then osPathSep = "/"
        oUploadFile.FileName = Right(auxStr, Len(auxStr)-InStrRev(auxStr, osPathSep))

        if (Len(oUploadFile.FileName) > 0) then 'File field not left empty
          nCurPos = SkipToken(tContentType, nCurPos)
         
auxStr = ExtractField(tNewLine, nCurPos)
' NN on UNIX puts things like this in the stream:
' ?? python py type=?? python application/x-python
          oUploadFile.ContentType = Right(auxStr, Len(auxStr)-InStrRev(auxStr, " "))
          nCurPos = FindToken(tNewLine, nCurPos) + 4 'skip empty line
         
          oUploadFile.Start = nCurPos+1
          oUploadFile.Length = FindToken(vDataSep, nCurPos) - 2 - nCurPos
         
          If oUploadFile.Length > 0 Then UploadedFiles.Add LCase(sFieldName), oUploadFile
        End If
      Else
        Dim nEndOfData, fieldValueUniStr
        nCurPos = FindToken(tNewLine, nCurPos) + 4 'skip empty line
        nEndOfData = FindToken(vDataSep, nCurPos) - 2
        fieldValueuniStr = ConvertUtf8BytesToString(nCurPos, nEndOfData-nCurPos)
        If Not FormElements.Exists(LCase(sFieldName)) Then
          FormElements.Add LCase(sFieldName), fieldValueuniStr
        else
FormElements.Item(LCase(sFieldName))= FormElements.Item(LCase(sFieldName)) & ", " & fieldValueuniStr
end if

      End If

      'Advance to next separator
      nDataBoundPos = FindToken(vDataSep, nCurPos)
    Loop
  End Sub

  Private Function SkipToken(sToken, nStart)
    SkipToken = InstrB(nStart, VarArrayBinRequest, sToken)
    If SkipToken = 0 then
      Response.write "Error in parsing uploaded binary request. The most likely cause for this error is the incorrect setup of AspMaxRequestEntityAllowed in IIS MetaBase. Please see instructions in the <A HREF='http://www.freeaspupload.net/freeaspupload/requirements.asp'>requirements page of freeaspupload.net</A>.<p>"
      Response.End
    end if
    SkipToken = SkipToken + LenB(sToken)
  End Function

  Private Function FindToken(sToken, nStart)
    FindToken = InstrB(nStart, VarArrayBinRequest, sToken)
  End Function

  Private Function ExtractField(sToken, nStart)
    Dim nEnd
    nEnd = InstrB(nStart, VarArrayBinRequest, sToken)
    If nEnd = 0 then
      Response.write "Error in parsing uploaded binary request."
      Response.End
    end if
    ExtractField = ConvertUtf8BytesToString(nStart, nEnd-nStart)
  End Function

  'String to byte string conversion
  Private Function String2Byte(sString)
    Dim i
    For i = 1 to Len(sString)
     String2Byte = String2Byte & ChrB(AscB(Mid(sString,i,1)))
    Next
  End Function

  Private Function ConvertUtf8BytesToString(start, length)  
    StreamRequest.Position = 0
 
   Dim objStream
   Dim strTmp
  
   ' init stream
   Set objStream = Server.CreateObject("ADODB.Stream")
   objStream.Charset = "utf-8"
   objStream.Mode = adModeReadWrite
   objStream.Type = adTypeBinary
   objStream.Open
  
   ' write bytes into stream
   StreamRequest.Position = start+1
   StreamRequest.CopyTo objStream, length
   objStream.Flush
  
   ' rewind stream and read text
   objStream.Position = 0
   objStream.Type = adTypeText
   strTmp = objStream.ReadText
  
   ' close up and return
   objStream.Close
   Set objStream = Nothing
   ConvertUtf8BytesToString = strTmp  
  End Function
End Class

Class UploadedFile
  Public ContentType
  Public Start
  Public Length
  Public Path
  Private nameOfFile

' Need to remove characters that are valid in UNIX, but not in Windows
Public Property Let FileName(fN)
nameOfFile = fN
nameOfFile = SubstNoReg(nameOfFile, "\", "_")
nameOfFile = SubstNoReg(nameOfFile, "/", "_")
nameOfFile = SubstNoReg(nameOfFile, ":", "_")
nameOfFile = SubstNoReg(nameOfFile, "*", "_")
nameOfFile = SubstNoReg(nameOfFile, "?", "_")
nameOfFile = SubstNoReg(nameOfFile, """", "_")
nameOfFile = SubstNoReg(nameOfFile, "<", "_")
nameOfFile = SubstNoReg(nameOfFile, ">", "_")
nameOfFile = SubstNoReg(nameOfFile, "|", "_")
End Property

Public Property Get FileName()
FileName = nameOfFile
End Property

'Public Property Get FileN()ame
End Class


' Does not depend on RegEx, which is not available on older VBScript
' Is not recursive, which means it will not run out of stack space
Function SubstNoReg(initialStr, oldStr, newStr)
Dim currentPos, oldStrPos, skip
If IsNull(initialStr) Or Len(initialStr) = 0 Then
SubstNoReg = ""
ElseIf IsNull(oldStr) Or Len(oldStr) = 0 Then
SubstNoReg = initialStr
Else
If IsNull(newStr) Then newStr = ""
currentPos = 1
oldStrPos = 0
SubstNoReg = ""
skip = Len(oldStr)
Do While currentPos <= Len(initialStr)
oldStrPos = InStr(currentPos, initialStr, oldStr)
If oldStrPos = 0 Then
SubstNoReg = SubstNoReg & Mid(initialStr, currentPos, Len(initialStr) - currentPos + 1)
currentPos = Len(initialStr) + 1
Else
SubstNoReg = SubstNoReg & Mid(initialStr, currentPos, oldStrPos - currentPos) & newStr
currentPos = oldStrPos + skip
End If
Loop
End If
End Function

Function GetFileName(strSaveToPath, FileName)
'This function is used when saving a file to check there is not already a file with the same name so that you don't overwrite it.
'It adds numbers to the filename e.g. file.gif becomes file1.gif becomes file2.gif and so on.
'It keeps going until it returns a filename that does not exist.
'You could just create a filename from the ID field but that means writing the record - and it still might exist!
'N.B. Requires strSaveToPath variable to be available - and containing the path to save to
Dim Counter
Dim Flag
Dim strTempFileName
Dim FileExt
Dim NewFullPath
dim objFSO, p
Set objFSO = CreateObject("Scripting.FileSystemObject")
Counter = 0
p = instrrev(FileName, ".")
FileExt = mid(FileName, p+1)
strTempFileName = left(FileName, p-1)
NewFullPath = strSaveToPath & "\" & FileName
Flag = False

Do Until Flag = True
If objFSO.FileExists(NewFullPath) = False Then
Flag = True
GetFileName = Mid(NewFullPath, InstrRev(NewFullPath, "\") + 1)
Else
Counter = Counter + 1
NewFullPath = strSaveToPath & "\" & strTempFileName & Counter & "." & FileExt
End If
Loop
End Function

%>

Function UploadClearVar(sVar)
  Dim str
  str = Trim(Upload(sVar))
 
  If str <> "" Then
   str = Replace(str,"'","''")
   str = Replace(str,";","")
   'str = Replace(str, "(", "&#40;")
      'str = Replace(str, ")", "&#41;")
      'str = Replace(str, "#", "&#35;")
      str = Replace(str, "&", "&#38;")
   str = Replace(str,">","&gt;")
   str = Replace(str,"<","&lt;")
   str = Replace(str, "%", "")
   str = Replace(str, "--", "")
   str = Replace(str, "/*", "")
   str = Replace(str, "*/", "")  
   str = Replace(LCase(str), "cookie", "cook1e")
   str = Replace(LCase(str), "document", "d0cument")
   str = Replace(LCase(str), "script", "scr1pt")
   str = replace(LCase(str), "iframe", "ifr@me")
   str = Replace(LCase(str), "@variable", "")
      str = Replace(LCase(str), "@@variable", "")
      str = Replace(LCase(str), "print", "")
      str = Replace(LCase(str), "set", "")       
      str = Replace(LCase(str), "or", "")
      str = Replace(LCase(str), "union", "")
      str = Replace(LCase(str), "and", "")
   str = Replace(LCase(str), "select", "")
      str = Replace(LCase(str), "insert", "")
   str = Replace(LCase(str), "update", "")
   str = Replace(LCase(str), "delete", "")
      str = Replace(LCase(str), "openrowset", "")
   str = Replace(LCase(str), "declare", "")
   str = Replace(LCase(str), "shutdown", "")
      str = Replace(LCase(str), "drop", "")
   str = Replace(LCase(str), "xp_", "")
  End IF
 
  UploadClearVar = str
 End Function

Function UploadClearVar(sVar)
  Dim str
  str = Trim(Upload(sVar))
 
  If str <> "" Then
   str = Replace(str,"'","''")
   str = Replace(str,";","")
   'str = Replace(str, "(", "&#40;")
      'str = Replace(str, ")", "&#41;")
      'str = Replace(str, "#", "&#35;")
      str = Replace(str, "&", "&#38;")
   str = Replace(str,">","&gt;")
   str = Replace(str,"<","&lt;")
   str = Replace(str, "%", "")
   str = Replace(str, "--", "")
   str = Replace(str, "/*", "")
   str = Replace(str, "*/", "")  
   str = Replace(LCase(str), "cookie", "cook1e")
   str = Replace(LCase(str), "document", "d0cument")
   str = Replace(LCase(str), "script", "scr1pt")
   str = replace(LCase(str), "iframe", "ifr@me")
   str = Replace(LCase(str), "@variable", "")
      str = Replace(LCase(str), "@@variable", "")
      str = Replace(LCase(str), "print", "")
      str = Replace(LCase(str), "set", "")       
      str = Replace(LCase(str), "or", "")
      str = Replace(LCase(str), "union", "")
      str = Replace(LCase(str), "and", "")
   str = Replace(LCase(str), "select", "")
      str = Replace(LCase(str), "insert", "")
   str = Replace(LCase(str), "update", "")
   str = Replace(LCase(str), "delete", "")
      str = Replace(LCase(str), "openrowset", "")
   str = Replace(LCase(str), "declare", "")
   str = Replace(LCase(str), "shutdown", "")
      str = Replace(LCase(str), "drop", "")
   str = Replace(LCase(str), "xp_", "")
  End IF
 
  UploadClearVar = str
 End Function

[원문] : http://wiz.pe.kr/80

책을 보면서 ASP.NET page의 이벤트 순서를 간단하게 정리를 해봤습니다.
이벤트의 순서를 알면 ASP.NET을 이용해 개발하는 패턴을 이해 할 수 있습니다.

이벤트의 큰 흐름은 아래와 같이 간단합니다.

가. 요청 페이지의 이전 상태값을 읽는다.
나. 요청 페이지의 변화된 값을 읽는다.
다. 변화된 값에 대한 처리를 한다. (사용자의 구현부분)
라. 변화된 값을 저장 한다.

asp.net page의 이벤트 발생 순서

1. 클라이언트의 페이지 요청 클라이언트는 함은 IE뿐 아니라 모바일 기기와 같이 asp.net페이지에 접근하는 모든 장비를 말합니다. 2. Initialize :  ASP.NET Framework 에서 클라이언트 요청을 처리하기 위해 Init 이벤트를 보내서 OnInit() 메소드를 호출 합니다. 대부분 이 단계에서 객체를 생성합니다. 3. Load View State : 컨트롤의 Viewstate 값을 읽어들일때 발생합니다. 포스트백 되는 경우 PostBack된 ViewState 값을 읽어드립니다. LoadViewState()를 사용해 사용자 코드를 추가 할 수 있습니다. 4. Process PostBack Data : System.Web.UI.IPostBackDataHandler 인터페이스를 구현하는 컨트롤에서 PostBack 데이터를 해석할 때 발생하게 됩니다. LoadPostData() 메서드를 통해 오버라이딩을 할 수 있습니다. 5. Load : 컨트롤 트리에서 컨트롤에 접근 할 수 있는 최초의 이벤트라고 할 수 있습니다. 컨트롤들의 초기화가 이루어진다. 컨트롤에 대한 설정을 여기에서 구현하시면 됩니다. 6. Send PostBack Change Notifications : 포스트백 된 데이터가 변경되었을 경우 발생하는 이벤트로 System.Web.UI.IPostBackDataHandler 인터페이스에서 상속 받았고, RaisePostDataChangedEvent() 메소드를 이용해 오버라이딩 가능합니다. 7. Handle PostBack Events : 클라이언트에서 PostBack 이벤트를 발생시킨 컨트롤에 대응하는 메소드 호출 하는 단계 입니다. 각 이벤트에 대한 처리를 구현하면 됩니다. 8. Prerender : 런더링 하기전에 발생하는 이벤트입니다. 컨트롤에 대한 접근할 수 있는 마지막 단계로 결과를 출력을 하기전에 최종적으로 처리해야 할 내용을 구현하면 됩니다. 9. Save State : 컨트롤들의 상태와 설정값을 ViewState에 저장 할 때 발생 합니다. SaveViewState() 메서드를 오버라이드해서 사용자의 처리내용을 구현할 수 있습니다. 10. Render : 클라이언트에 출력할 내용으로 변경 할 때 발생 합니다. 여기에서 만들어진 데이터가 클라이언트로 보내집니다. Render() 메소드를 통해 오버라이딩 할 수 있습니다. 11. Dispose : 사용했던 모든 리소스를 제거 할때 발생 합니다. Dispose() 메소드를 오버라이딩 해서 추가로 제거 할 리소스를 제거하면 됩니다.

저장한 값과 변경된 값을 비교해 사용자의 액션을 처리 하는 단순한 로직을 반복함으로서 구성이 됩니다.

<%
	filename = "화일명"
	response.buffer=true
	response.contenttype="application/vnd.ms-excel" 
	Response.AddHeader "Content-Disposition","attachment;filename=" & filename
%>

다운받기]
MySQL Connector/ODBC 3.51
http://dev.mysql.com/downloads/connector/odbc/3.51.html

MySQL Query Browser
http://dev.mysql.com/downloads/gui-tools/5.0.html

[설치]
MySQL과 MyODBC, Query Brower를 설치합니다.

create database memberdb;
use memberdb;
create table memberinfo
(
  contactId int auto_increment not null,
  Name varchar(50),
  phone varchar(20),
  primary key(contactId),
  unique id(contactId)
);

[connect_test.asp]
생성한 DB에 접근할 수 있는지 확인하기 위해 아래와 같이 작성합니다.
<%
  dim adoConn
  set adoConn = Server.CreateObject("ADODB.Connection")
  adoConn.Open "Driver={MySQL ODBC 3.51 driver}; Server=localhost; Database=memberdb; Uid=root;Pwd=1111;"
  if adoConn.errors.count = 0 then
      response.write "Connected Successfully!"
  end if

  adoConn.close
  set adoConn = nothing
%>

인터넷 창에 주소 http://localhost/connect_test.asp 를 넣어 Connected Successfully 라는 글이 나타난다면 ASP+MySQL를 사용할 정상적으로 된것입니다.

[중요]
adoConn.Open "Driver={MySQL ODBC 3.51 driver}; Server=localhost; Database=memberdb; Uid=root;Pwd=1111;"
중요>>> Driver를 MySQL ODBC 3.51 driver로 지정해주었다는 꼭 알아두세요.

다운받기]
MySQL Connector/ODBC 3.51
http://dev.mysql.com/downloads/connector/odbc/3.51.html

MySQL Query Browser
http://dev.mysql.com/downloads/gui-tools/5.0.html

[설치]
MySQL과 MyODBC, Query Brower를 설치합니다.

create database memberdb;
use memberdb;
create table memberinfo
(
  contactId int auto_increment not null,
  Name varchar(50),
  phone varchar(20),
  primary key(contactId),
  unique id(contactId)
);

[connect_test.asp]
생성한 DB에 접근할 수 있는지 확인하기 위해 아래와 같이 작성합니다.
<%
  dim adoConn
  set adoConn = Server.CreateObject("ADODB.Connection")
  adoConn.Open "Driver={MySQL ODBC 3.51 driver}; Server=localhost; Database=memberdb; Uid=root;Pwd=1111;"
  if adoConn.errors.count = 0 then
      response.write "Connected Successfully!"
  end if

  adoConn.close
  set adoConn = nothing
%>

인터넷 창에 주소 http://localhost/connect_test.asp 를 넣어 Connected Successfully 라는 글이 나타난다면 ASP+MySQL를 사용할 정상적으로 된것입니다.

[중요]
adoConn.Open "Driver={MySQL ODBC 3.51 driver}; Server=localhost; Database=memberdb; Uid=root;Pwd=1111;"
중요>>> Driver를 MySQL ODBC 3.51 driver로 지정해주었다는 꼭 알아두세요.