Classic ASP를 사용하여 엑셀 데이터를 MSSQL 데이터베이스에 입력하는 구체적인 프로그램은 아래와 같이 작성할 수 있습니다:
1. 엑셀 파일 업로드 및 데이터 추출: 사용자로부터 엑셀 파일을 업로드 받고, 해당 파일에서 데이터를 추출하는 ASP 페이지를 만듭니다. `ADODB.Connection` 및 `ADODB.Recordset` 객체를 사용하여 엑셀 파일에 연결하고 데이터를 읽어옵니다.
```asp
<%
' 엑셀 파일 업로드 및 경로 설정
Dim uploadPath
uploadPath = "경로/파일명.xlsx"
Call Request.Form("file").SaveAs(Server.MapPath(uploadPath))
' 데이터 추출
Dim connExcel
Set connExcel = Server.CreateObject("ADODB.Connection")
connExcel.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Server.MapPath(uploadPath) & ";Extended Properties=""Excel 12.0;HDR=YES;"""
Dim rsExcel
Set rsExcel = Server.CreateObject("ADODB.Recordset")
rsExcel.Open "SELECT * FROM [시트명$]", connExcel, 1, 1
' 데이터베이스 연결 설정
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=SQLOLEDB;Data Source=서버주소;Initial Catalog=데이터베이스명;User ID=사용자명;Password=비밀번호"
%>
```
2. 데이터 삽입: 추출한 데이터를 사용하여 MSSQL 데이터베이스에 삽입하는 코드를 작성합니다. `ADODB.Command` 객체를 사용하여 INSERT 문을 실행합니다.
```asp
<%
' 데이터 삽입
While Not rsExcel.EOF
Dim cmd
Set cmd = Server.CreateObject("ADODB.Command")
' INSERT 문 설정
Dim insertQuery
insertQuery = "INSERT INTO 테이블명 (컬럼1, 컬럼2, ...) VALUES (?, ?, ...)"
' 매개변수 추가
cmd.Parameters.Append cmd.CreateParameter("@컬럼1", adVarChar, adParamInput, 길이, rsExcel("컬럼1").Value)
cmd.Parameters.Append cmd.CreateParameter("@컬럼2", adVarChar, adParamInput, 길이, rsExcel("컬럼2").Value)
' 나머지 컬럼도 동일하게 추가
' 쿼리 실행
Set cmd.ActiveConnection = conn
cmd.CommandText = insertQuery
cmd.Execute
rsExcel.MoveNext
Wend
' Recordset 및 연결 종료
rsExcel.Close
Set rsExcel = Nothing
connExcel.Close
Set connExcel = Nothing
conn.Close
Set conn = Nothing
%>
```
위의 예시는 Classic ASP를 사용하여 엑셀 데이터를 MSSQL 데이터베이스에 입력하는 간단한 프로그램입니다. 업로드된 엑셀 파일에서 데이터를 추출한 후, 데이터를 적절한 테이블에 삽입합니다. 실제로는 데이터 유효성 검사, 중복 확인 등의 추가적인 로직을 구현해야 할 수 있습니다.