본문 바로가기

classic asp

 (36)
[classic asp] 엑셀파일 읽기 https://www.microsoft.com/ko-kr/download/details.aspx?id=54920에서 드라이버 다운로드. 32비트는 그냥 설치하면 되지만, 64비트는 cmd 에서 accessdatabaseengine_X64.exe /passive 으로 설치해야 함.
[classic asp] identity 테이블 데이터 입력후 일련번호 받기 query = " INSERT INTO mainTable(NAME, KIND) VALUES('신규등록테스트', 0) " query = query & "SELECT @@IDENTITY " Set rsSet = oConn.Execute(query) Set rsSet2 = rsSet.NextRecordSet idenKey = rsSet2.Fields(0) 'PK rsSet2.Close Set rsSet2 = Nothing Set rsSet = Nothing
[classic asp] json 생성 Dim JsonData, Json, successSet Json = Server.CreateObject("Chilkat_9_5_0.JsonObject")success = Json.UpdateInt("result",1)success = Json.UpdateBool("resultType",1)success = Json.UpdateString("documents[0].member.name","홍길동")success = Json.UpdateInt("documents[0].member.age",20)success = Json.UpdateString("documents[0].member.class[0].name","수학")success = Json.UpdateInt("documents[0].member.class[..
[classic asp] 리스트 데이터 정렬 "" Then arSortGroup = Split(SortInfo, "|") For i = 0 To UBound(arSortGroup) - 1 arSortInner = Split(arSortGroup(i), ",") arSortField(i) = arSortInner(0) arSortType(i) = arSortInner(1) NextEnd If%> "> "> 검색어 "" Then Sql = Sql & fnPatSort(i, arSortField(i), arSortType(i)) End If Next End If%> );">제목 );">등록일 "" Then arReturnValue..
[classic asp] 숫자를 한글로 변환 Function IntToKrWord(value) Dim ReturnValue Dim i ReturnValue = "" If Isnumeric(value) = True Then If Instr(value,".") > 0 Then '소수점은 반올림 value = Int(Replace(Formatnumber(value,0),",","")) End If Dim arAmt arAmt = Array("일","이","삼","사","오","육","칠","팔","구","십") Dim arPos arPos = Array("","십","백","천") Dim arUnit arUnit = Array("","만","억","조","경") Dim Pos Pos = Len(value) Mod 4 Dim Unit Unit = Int(..
[classic asp] IE 브라우저 확인 UserAgent = Request.ServerVariables("HTTP_USER_AGENT") If InStr(UserAgent , "MSIE") > 0 Or InStr(UserAgent , "Trident") > 0 Then 'IE에서 접근 Else End If
[classic asp] ServerVariables 속성 AUTH_TYPE 인증 타입, 사용자 이름으로 서버에서 인증 받는다면 Basic이고 그렇지 않으면 생략. CONTENT_LENGTH 클라이언트로 보내진 바이트 수 CONTENT_TYPE Request가 POST 타입일 때 콘텐트 타입 DOCUMENT 현재 문서 파일 이름 DOCUMENT_URI 현재 문서의 가상 경로 DATE_GMT 현재 날짜, GMT. #CONFIG 지시자를 이용해서 포맷팅 가능 DATE_LOCAL 현재 날짜, 로컬. #CONFIG 지시자를 이용해서 포맷팅 가능 GATEWAY_INTERFACE 게이트웨이 CGI 스펙 LAST_MODIFIED 문서 최근 수정 날짜 LOGON_USER 사용자에 대한 윈도우 NT Account 정보 PATH_INFO 클라이언트에 의해 제공한 경로 정보(예를 ..
[classic asp] http 매개변수 데이터 전송 Dim oHttp Set oHttp = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0") oHttp.Open "post", "http://test.co.kr/test.asp", False oHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" oHttp.Send "data=" & SendDate Dim ReturnValue ReturnValue = oHttp.ResponseText

티스토리툴바