배열의 특정 요소 제거


배열 = 배열.splice($.inArray("특정요소", 배열),1);



배열을 문자열로 출력


배열 = 배열.join("합칠 문자열");


HTML Table 태그에 내용 넣고 헤더를 고쳐서 엑셀파일인 척해서 다운로드 받기

최상단에 아래 

<%

Response.AddHeader "Content-Disposition","attachment;filename=다운로드 받을 디폴트 파일명.xls"

Response.ContentType = "application/octet-stream"

%>

<table>

<tr>

     <th>컬럼타이틀</th>

</tr>

<tr>

<td>내용</td>

</tr>

</table>



진짜 엑셀파일에 값만 채워넣고 다운로드 받기 - VBScript를 이용해야 한다.

출처: http://stackoverflow.com/questions/24517978/asp-classsic-insert-into-excel-xls-columns-or-create-a-real-excel-format-file

<%@Language=VBScript CodePage=65001%>

<%

    Dim Fso

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


    Dim emptyXlsFileName

        emptyXlsFileName = Server.Mappath("원본엑셀파일.xlsx") 'empty original file path


    Dim filledXlsFileName

        filledXlsFileName = Replace(Fso.GetTempName, ".tmp", ".xlsx") 'temp file will be created and filled


    Fso.CopyFile emptyXlsFileName, Server.Mappath(filledXlsFileName)

    Dim Connection

    Set Connection = Server.CreateObject("Adodb.Connection") ' 이걸로 해야 오피스가 깔리지 않은 서버에서도 사용 가능하다.

        Connection.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Server.Mappath(filledXlsFileName) & ";Extended Properties=""Excel 12.0;HDR=YES;IMEX=0"";" ' xlsx라 12.0이고 xls면 8.0, 첫열을 타이틀로 할거면 HDR=YES, 아니면 HDR=NO



sql = "select * from [Sheet1$]" ' sheet1 다 불러오기

set objRs = Server.CreateObject("ADODB.Recordset")

objRs.open sql, Connection, 1, 3


rows = 0

do while Not objRs.EOF

if rows = 0 then

objRs.Fields(0).Value = "제목을 제외한 첫번째 줄, 첫번째 컬럼 그러니까 A2"

elseif rows = 1 then 

objRs.Fields(1).Value = "B3"

   objRs.Fields("첫열이 타이틀이었다면 그 컬럼명").Value = "넣을 값"

end if

rows = rows + 1

objRs.MoveNext

loop


objRs.Close

set objRs = Nothing


        Connection.Close

    Set Connection = Nothing


    Const BufferSize = 8192


    Response.ContentType = "application/vnd.ms-excel"

    Response.AddHeader "Content-Disposition", "attachment;filename=다운로드할 디폴트 파일명.xlsx"

    Dim Stm

    Set Stm = Server.CreateObject("Adodb.Stream")

        Stm.Type = 1 'adTypeBinary

        Stm.Open

        Stm.LoadFromFile Server.Mappath(filledXlsFileName)

        Do While Not Stm.EOS

            Response.BinaryWrite Stm.Read(BufferSize)

            Response.Flush

            If Not Response.IsClientConnected Then Exit Do

        Loop

        Stm.Close

    Set Stm = Nothing

    Fso.DeleteFile Server.Mappath(filledXlsFileName)

    Response.End


    Set Fso = Nothing

%>


'Classic ASP' 카테고리의 다른 글

스케쥴러  (0) 2016.09.23
숫자 관련 추가 함수  (0) 2016.06.27
사이트 긁어오기  (0) 2015.08.20
ASP에서 JSON을 쓰려면  (0) 2015.03.06
sleep / delay  (0) 2014.09.12

jqgrid

$("#tblist1")

.jqGrid('navGrid', '#pager', {

add: false,

edit: false,

del: false,

search: false,

refresh: false

})

.jqGrid( 'navButtonAdd', "#pager", {

caption : "Export to CSV",

buttonicon : "ui-icon-arrowthickstop-1-s",

onClickButton : function() {

$("#tblist1").jqGrid('excelExport',{"url":"./excel/as.do"});

},

position : "first",

title : "Export to CSV",

});


controller

@RequestMapping("/excel/as")

public ResponseEntity<String> csvAsList(Locale locale, AsVO asVo,

@RequestParam Map<String, String> map) throws Exception {

Comm.jqgridSearchFormSetVO(map.get("filters"), asVo);


List<AsVO> excelList = asService.excelList(asVo); // DB에서 가져온 데이터리스트

String data = new DataToCSV().as(excelList);


HttpHeaders header = new HttpHeaders();

header.add("Content-Disposition", "attachment; filename=\"" + "as.csv" + "\"");

header.add("Content-Type", "text/csv; charset=MS949");


return new ResponseEntity<String>(data, header, HttpStatus.OK);

}


servlet-context.xml - UTF-8 프로젝트라서 예외처리용

<beans:bean class="org.springframework.web.servlet.mvc.annotation.AnnotationMethodHandlerAdapter">

<beans:property name="messageConverters">

<beans:list>

<beans:bean class="org.springframework.http.converter.StringHttpMessageConverter">

<beans:property name="supportedMediaTypes">

<beans:value>text/plain;charset=UTF-8</beans:value>

</beans:property>

</beans:bean>

</beans:list>

</beans:property>

</beans:bean>


<%

'페이지로드Post방식

Function getSiteSourcePost( siteURL, params )

 Set httpObj = Server.CreateObject("WinHttp.WinHttpRequest.5.1")

 httpObj.open "POST" , siteURL, False

 httpObj.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"

 '포스트 방식시 위의 라인을 추가해 주어야 한다.

  

 httpObj.Send params

 '포스트의 파라미터는 Send 호출시 같이 값을 넘겨 주어야 한다.

 httpObj.WaitForResponse

 If httpObj.Status = "200" Then

  getSiteSourcePost = httpObj.ResponseText

 Else

  getSiteSourcePost = null

 End If

End Function

 

'페이지로드 get방식

Function getSiteSourceGet( siteURL, params )

 Set httpObj = Server.CreateObject("WinHttp.WinHttpRequest.5.1")

 httpObj.open "GET", siteURL & "?" & params, False

  

 httpObj.Send()

 httpObj.WaitForResponse

 If httpObj.Status = "200" Then

  getSiteSourceGet = httpObj.ResponseText

 Else

  getSiteSourceGet = null

 End If

End Function

 

contents = getSiteSourcePost("사이트주소","")

response.write(contents)

%>


출처: http://2nusa.blogspot.kr/2013/05/class-asp.html

'Classic ASP' 카테고리의 다른 글

숫자 관련 추가 함수  (0) 2016.06.27
엑셀파일로 다운로드 받기  (2) 2016.06.22
ASP에서 JSON을 쓰려면  (0) 2015.03.06
sleep / delay  (0) 2014.09.12
ASP의 컬렉션(Dictionary, Map, 연관배열)  (0) 2014.03.12

public void replace(StringBuilder builder, String from, String to)

{

   int index = builder.indexOf(from);

   while (index != -1)

   {

       builder.replace(index, index + from.length(), to);

       index += to.length(); // Move to the end of the replacement

       index = builder.indexOf(from, index);

   }

}


출처: http://stackoverflow.com/questions/3472663/replace-all-occurences-of-a-string-using-stringbuilder

'Java' 카테고리의 다른 글

사이트 긁어오기  (0) 2015.08.19
mail 발송  (0) 2015.08.18
mybatis의 insert후 sequence 가져오기  (0) 2014.08.21
MS-SQL JDBC 추가하기.  (0) 2014.07.28
MIME 타입 알아내는 방법  (0) 2013.10.02

+ Recent posts