세상에 도움이 되는 사람이되자

빨간색 글자를 추가 한다.

웹에서는 세션에 따라 ARITHABORT 가 OFF로 처리되는 경우가 발생한다고 함.

정확한 원인은 확인중..

Conn.Execute "SET ARITHABORT ON"

Set Cmd = Server.CreateObject("ADODB.Command")

With Cmd

       .ActiveConnection   =      Conn

       .CommandText        =      "ProcName"

       .CommandType        =      adCmdStoredProc

       .Parameters.Append .CreateParameter("@DPart", adChar, adParamInPut, 2, DPart)

       .Parameters.Append .CreateParameter("@YY", adChar, adParamInPut, 4, YY)

       .Parameters.Append .CreateParameter("@txtName", adVarChar, adParamInPut, 50, txtName)

       Set Rs = .Execute

       If Not Rs.Eof Then

             Dim Record : Record = Rs.GetRows()

       End If

       Rs.Close : Set Rs = Nothing

End With

Set Cmd = Nothing

1. 버젼에 맞게 AccessDatabaseEngine.exe를 설치한다.

=> OS버젼이 64bit일 경우 AccessDatabaseEngine_X64.exe를 설치한다.

2. sp_configure를 이용하여 아래의 옵션을 활성화 한다.

sp_configure 'show advanced options', 1;

GO

RECONFIGURE;

GO

sp_configure 'Ad Hoc Distributed Queries', 1;

GO

3. 엑셀다운로드 할 쿼리를 프로시져로 만든다.

-- OLEDB.4.0은SQL2000 버젼임

CREATE PROC EXCEL

       @Path        VARCHAR(100)

AS

       DECLARE @SQL NVARCHAR(4000)

       SET @SQL = '

       INSERT INTO

       OPENDATASOURCE(''Microsoft.Jet.OLEDB.4.0'',''Data Source='+@Path+';Extended Properties=EXCEL 5.0'')...sheet1$

       (goodscode, goodsname, unit, incost, salecost)

       SELECT TOP 10 go_goodscode, go_goodsname, go_unit, gc_incost, gc_salecost

       FROM Goods_TB

       JOIN GoodsCost_TB ON gc_goodscode = go_goodscode

       '

       EXEC SP_EXECUTESQL @SQL

EXEC EXCEL 'D:\new\excelTest\goods.xls'

4. 원본엑셀파일을 만든후 원본을 가지고, 해당위치로 복사한다.

<%

fileCreate.asp

Set Fso = Server.CreateObject("Scripting.FileSystemObject")

File = "D:\new\excelTest\goods.xls"

If Fso.FileExists(File) then

  Fso.DeleteFile File                          ' 기존파일삭제

End If

' 원본파일을 해당위치로 복사한다(왜, 엑셀은 DELETE이 안됨)

Fso.CopyFile "D:\goods.xls","D:\new\excelTest\goods.xls"

' 프로시져 실행

Set Rs = Conn.Execute("dbo.EXCEL") 

' 엑셀다운받기 

Response.redirect "fileDown.asp?strFileName=goods.xls"

%>

<%

fileDown.asp

‘ 문서정의타입을알수없음으로하게되면무조건다운로드시킨다.

‘ 다운로드시킬파일을정의한다.

Dim strFileName : strFileName = Request("strFileName")

Response.ContentType = "application/unknown"

Response.AddHeader "Content-Disposition","attachment; filename="&strFileName

‘ ADODB.Stream으로스트림을읽는다.

Set objStream = Server.CreateObject("ADODB.Stream")

objStream.Open

objStream.Type = 1

objStream.LoadFromFile "D:\new\excelTest\"&strFileName

strFile = objStream.Read

Response.BinaryWrite strFile

Set objStream = Nothing

%>

Sub f_injection(query_string)

   Dim InjectAttack : InjectAttack = False

   Dim strSource, strTemp, strResult, strchr

   Dim lngPos, AddNum, IFKor

   strSource = Replace(query_string, "+", " ")

For lngPos = 1 To Len(strSource)                                            ' 쿼리문을 디코딩한다.

        AddNum  = 2

        strTemp = Mid(strSource, lngPos, 1)

        If strTemp = "%" Then

            If lngPos + AddNum < Len(strSource) + 1 Then

                strchr = CInt("&H" & Mid(strSource, lngPos + 1, AddNum))

                If strchr > 130 Then

                    AddNum = 5

                    IFKor = Mid(strSource, lngPos + 1, AddNum)

                    IFKor = Replace(IFKor, "%", "")

                    strchr = CInt("&H" & IFKor )

                End If

                strResult = strResult & Chr(strchr)

                lngPos    = lngPos + AddNum

            End If

        Else

            strResult = strResult & strTemp

        End If

    Next

    Dim wordFile, injectionTxt

    Set wordFile = objFso.OpenTextFile("F:injection_word.txt",1)            ' 공격자가 입력할 예상단어를 txt에 저장한 후 불러온다.

        injectionTxt = wordFile.readAll

        wordFile.Close

    Set wordFile = Nothing

    strResult = LCase(strResult)

    injection_filter_arr = Split(Replace(injectionTxt," ",""), ",")

 injection_filter_cnt = Ubound(injection_filter_arr)

    For j = 0 To injection_filter_cnt

      injection_filter = Replace(injection_filter_arr(j),Chr(13)&Chr(10),"")      ' 메모장 Enter값 치환

      If InStr( strResult, injection_filter ) > 0 Then

        InjectAttack = True

        Exit For

      End If

    Next

    If (InjectAttack = True) Then                                                  ' 쿼리내용을 저장하고 하단부터 출력하지 않는다.

      adoConn.Execute "쿼리문저장하기"

      Response.End

    End If

End Sub

Call f_injection(Request.ServerVariables("PATH_INFO")&"?"&Request.QueryString)

출처 : http://www.webmadang.net/develop/develop.do?action=read&boardid=1001&page=1&seq=82

내용 : 메인화면에 게시판글 내용을 나타내고자 할 때 HTML태그까지 나타날 경우 화면이 깨지는 현상이 있어 한글만 출력 하도록 한다.

Function stripTags(HTMLstring)

        Set RegularExpressionObject = New RegExp

       With RegularExpressionObject

                            .Pattern = "<[^>]+>"

                            .IgnoreCase = True

                            .Global = True

       End With

       stripTags = RegularExpressionObject.Replace(HTMLstring, "")

       Set RegularExpressionObject = nothing

Dim content : content = "<html><body>HTML 태그정리후본문내용만출력</body></html>"

<%=stripTags(content)%>