三年不蜚 又不鳴

sqlite3 student.db

create table student(

_id int(10),

name varchar(128),

address varchar(128));

.table

.separator ","

.import new.csv student

여기서 csv 파일은 1번에서 csv 파일을 만들 때

만들고 나서 내용 복사 후 새로운 텍스트 문서에 붙여넣기 하여

다른이름으로 저장으로 해서 인코딩을 utf-8로 바꾼 후

import 해야 한글이 깨지지 않고 .db에 들어가진다

<!-- metadata type="typelib" file="c:\program files\common files\system\ado\msado15.dll"-->

<%

option explicit

dim rs, fso, file_path, objfolder, files, file,chk

set rs = server.createobject("adodb.recordset")

rs.cursorlocation = aduseclient

rs.fields.append "file_name", advarchar, 50

rs.cursortype = adopenstatic

rs.locktype = adlockbatchoptimistic

rs.open

set fso = createobject("scripting.filesystemobject")

file_path = server.mappath(".") & "\call"

set objfolder = fso.getfolder(file_path)

set files = objfolder.files

response.write "현재폴더" & objfolder&"<br>"

for each file in files

rs.addnew

rs("file_name") = file.name

'rs.update

next

rs.sort = "file_name asc"

do while not rs.eof

chk=rs("file_name")

response.write rs("file_name")&"<br>"

rs.movenext

loop

rs.close

set rs = Nothing

response.write chk

%>

<%

url = "http://주소"

Set objXmlHttp  = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")

objXmlHttp.open "POST", url , false

objXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

objXmlHttp.send  '요청

strResponseText = objXmlHttp.responseText  '응답 텍스트 저장

Set objXmlHttp  = Nothing

'DOM 파서를 이용해 파싱 

Set objMsXmlDom = Server.CreateObject("microsoft.XMLDOM")

objMsXmlDom.async = false

objMsXmlDom.loadXML( strResponseText ) '스트링으로 로드하기 때문에 loadXML 메서드 사용.

'데이터 추출.

count=objMsXmlDom.getElementsByTagName("yArticleId").length - 1

For i=0 To count

yArticleID   = ""& Trim( objMsXmlDom.getElementsByTagName("yArticleId").Item(i).Text )

acUsersId = ""& Trim( objMsXmlDom.getElementsByTagName("acUsersId").Item(i).Text )

yTitle = ""& Trim( objMsXmlDom.getElementsByTagName("yTitle").Item(i).Text ) ' yTitle = 태그 이름

response.write yArticleID&acUsersId&yTitle

next

Set objMsXmlDom = Nothing

%>

<SCRIPT>

font_cho = Array(
'ㄱ', 'ㄲ', 'ㄴ', 'ㄷ', 'ㄸ',
'ㄹ', 'ㅁ', 'ㅂ', 'ㅃ', 'ㅅ', 'ㅆ',
'ㅇ', 'ㅈ', 'ㅉ', 'ㅊ', 'ㅋ', 'ㅌ', 'ㅍ', 'ㅎ' );

font_jung = Array(
'ㅏ', 'ㅐ', 'ㅑ', 'ㅒ', 'ㅓ',
'ㅔ', 'ㅕ', 'ㅖ', 'ㅗ', 'ㅘ', 'ㅙ',
'ㅚ', 'ㅛ', 'ㅜ', 'ㅝ', 'ㅞ', 'ㅟ',
'ㅠ', 'ㅡ', 'ㅢ', 'ㅣ' );

font_jong = Array(
'', 'ㄱ', 'ㄲ', 'ㄳ', 'ㄴ', 'ㄵ', 'ㄶ', 'ㄷ', 'ㄹ',
'ㄺ', 'ㄻ', 'ㄼ', 'ㄽ', 'ㄾ', 'ㄿ', 'ㅀ', 'ㅁ',
'ㅂ', 'ㅄ', 'ㅅ', 'ㅆ', 'ㅇ', 'ㅈ', 'ㅊ', 'ㅋ', 'ㅌ', 'ㅍ', 'ㅎ' );



stringtest = "ㅤㅊㅠㄺ";
CompleteCode = stringtest.charCodeAt(0);
UniValue = CompleteCode - 0xAC00;

Jong = UniValue % 28;
Jung = ( ( UniValue - Jong ) / 28 ) % 21;
Cho = parseInt (( ( UniValue - Jong ) / 28 ) / 21);



alert( font_cho[Cho] );
alert( font_jung[Jung] );
alert( font_jong[Jong] );

</SCRIPT>

출처 : http://flashcafe.org/javascript_study/7251

<%

function getInfo_function(xurl)

  dim RStr

  dim xmlClient

  Set xmlClient = Server.CreateObject("Microsoft.XMLHTTP")

  xmlClient.open "GET", Xurl, False

  xmlClient.setRequestHeader "Content-Type","text/xml"

  xmlClient.setRequestHeader "Accept-Language","ko"

  xmlClient.send

  if xmlClient.status = 200 then

   Set responseStrm = CreateObject("ADODB.Stream") 

   responseStrm.Open 

   responseStrm.Position = 0 

   responseStrm.Type = 1 

   responseStrm.Write xmlClient.responseBody

   responseStrm.Position = 0

   responseStrm.Type = 2

   responseStrm.Charset = "utf-8" 

   RStr = responseStrm.ReadText  

   responseStrm.Close

   Set responseStrm = Nothing

  else

   RStr = "get_fail"

  end if

  SET xmlClient = nothing

  getInfo_function = RStr

end function

%>

<%

read_data = getInfo_function("http://")

response.write(read_data)

%>

출처 : http://horangi.tistory.com/2

<압축 풀기>

1. tar.gz 압축풀기

$gunzip filename.tar.gz    // tar.gz에서 gz을 풀어냅니다.

$tar xvf filename.tar         // tar를 풀어냅니다.  ( x: 압축풀기 , v: 압축푸는 상태를 본다, f: 파일이름 )

압축푸는 상황을 보고 싶지 않으시다면 v옵션을 주지 않으셔도 됩니다만 보통은 적습니다.

2. tar.gz 한번에 풀기

$tar xvzf filename.tar.gz

이렇게 간단하게 풀어버리는 방법도 있습니다.ㅋ

<압축 하기> 

3. tar.gz 압축하기

$tar cvf filename.tar file1...    //file1의 폴더나 파일을 filename.tar로 묶는다 (압축아님)

$gzip filename.tar                //filename.tar을 filename.tar.gz로 압축한다 (이땐 압축)

4. tar.gz 한번에 압축하기

$tar cvzf filename.tar.gz file1...     //file1의 폴더나 파일을 filename.tar.gz로 묶고 압축한다.

출처 : http://towanouta.tistory.com/101

예전에 latin1로 저장된  db를 그냥 옵기게 되면 한글이 깨져서 보이지 않게 됩니다.

그럴때 사용하기 위한 방법 입니다.

1. 백업하기
   mysqldump -u{username} -p{password} {dbname} --default-character-set latin1 > {dump}.sql
   여기서 제일 중요한 것이 --default-character-set latin1 입니다.
   이것이 없으면 온전하게 백업이 되지 않으니 여러가지로 어렵습니다.

2. 문자셋 변환하기
    (문제가 되는 것이 보통 이 과정에서 메모장이나 에디터를 이용하게 되면 깨져서 복원을 할때 에러가 발생합니다.)   
    utf8로 변환 할때 
    iconv -c -f cp949 -t utf-8  원본파일명  > 변환될 파일명.sql
    euckr 이라면 변환 할때 
    iconv -c -f cp949 -t euckr 원본파일명  > 변환될 파일명.sql

3. 복원될 테이블 구조 변환하기
    latin1 =>  utf8; 변경해도 됩니다.           -> 생략 가능 
   
    sed -e 's/latin1/utf8/g' -i 변환파일명.sql

5, 디비 생성 
    이때 utf8_general_ci 로 생성 합니다.      -> 생략 가능

6, mysql 을 다시 시작 합니다. 

7, 디비 복원 
mysql --default-character-set utf8 -u{username} -p{password} {utf8-dbname} < {dump}.sql 

utf8로 변환 할 경우 db에 한글이 깨져서 나오지만 웹에서는 한글 출력이 제대로 된다.

db에도 한글이 잘 입력되려면 euckr로 변환하면 된다.

출처 : http://hancem.tistory.com/5

apache 2.x, php 5.x 버전을 설치후

홈페이지 소스가 euc-kr 인경우 php.ini 기본 설정은 iso-8859-1 로 설정 되어 있어서 깨지는 것입니다.

따라서, php.ini을 열어서 추가 해주시면 됩니다.

vi /usr/local/lib/php.ini

;default_charset = "iso-8859-1"

default_charset = "euc-kr" or "utf8" 설정 후 restart

SELECT NAME, COUNT(*)
    FROM PERSON
    GROUP BY NAME
    HAVING COUNT(*) > 1 ;

function ReadFromTextFile (FileUrl,CharSet)
    dim str
    set stm=server.CreateObject("adodb.stream")
    stm.Type=2 'for text type
    stm.mode=3
    stm.charset=CharSet
    stm.open
    stm.loadfromfile FileUrl
    str=stm.readtext
 response.write str
    stm.Close
    set stm=nothing
    ReadFromTextFile=str
end function

 
Sub WriteToTextFile (FileUrl,byval Str,CharSet)       
    set stm=server.CreateObject("adodb.stream")
    stm.Type=2 'for text type
    stm.mode=3
    stm.charset=CharSet
    stm.open
    stm.WriteText str
    stm.SaveToFile fileurl,2   
    stm.flush
    stm.Close
    set stm=nothing
end sub

Readfile=readfromtextfile ("c:/11/readfilename.csv","utf-8")
writetotextfile "c:/11/writefilename.txt",Readfile,"utf-8"

일부 텍스트 파일은 한 줄 끝에 줄 넘기는 문자로 인해 텍스트 파일을 쓸 때 약간의 문제가 생길 수 있다

dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.CreateTextFile("c:/11/writefilename.txt",true)
f.write(readfile)
'f.write("How are you today?")
f.close
set f=nothing
set fs=nothing

을 사용하면 문제가 해결 될 수 있다

function은 리턴값이 ReadFromTextFile이 된다. 즉 함수명과 동일한 이름에 리턴값을 저장해야 한다.

sub는 리턴값이 없다. 단지 실행만 할뿐이다.

호출에서도 차이가 있다.

-----------------------------------------------------------------------------------

ASP에서 사용하는 Sub, Function

Sub는 단독 동작을
Function은 동작하며 반환값을 돌려주는 녀석입니다.

Sub를 사용한 예제를 보면

Sub TestSub1()
  response.write("TestSub1성공"&"<br>")
End Sub
TestSub1()

Sub TestSub2(Astr)
  response.write("TestSub2성공"& Astr &"<br>")
End Sub
TestSub2("냠냠")

Sub TestSub3(Aint)
  response.write("TestSub3성공"& Aint+99 &"<br>")
End Sub
TestSub3(1)

Sub TestSub4(Aint,Bint)
  response.write("TestSub4성공"& Aint+Bint &"<br>")
End Sub
'TestSub4(1,99) ==> 이렇게 하면 에러납니다. *리턴값이 없는 Function도 똑같습니다.
TestSub4 1 , 99 '이렇게 하거나 또는
Call TestSub4(1 , 999) '이렇게 합니다. *리턴값이 없는 Function도 똑같습니다.

Function을 사용한 예제를 보세요

Function TestFunction2(Astr)
  TestFunction2 = "TestFunction2성공 - "& Astr &"<br>"
End Function
AAA=TestFunction2("냠냠")
response.write(AAA)

Function TestFunction3(Astr)
  TestFunction3 = "TestFunction3성공 - "& Astr + 99 &"<br>"
End Function
AAA=TestFunction3(1)
response.write(AAA)

Function TestFunction4(Aint,Bint)
  TestFunction4 = "TestFunction4성공 - "& Aint + Bint &"<br>"
End Function
AAA=TestFunction4(1,99)
response.write(AAA)

Function TestFunction5(Astr,Bstr)
  TestFunction5 = "TestFunction5성공 - "& Astr + Bstr &"<br>"
End Function
AAA=TestFunction5("냠냠","나나")
response.write(AAA)

출처:http://www.hoho31.com/hohoman/133

----------------------------------------------------------

일반 텍스트 파일 읽기

Dim fso
set fso = server.createObject("Scripting.FileSystemObject")''    일반 텍스트 파일 읽는 함수

if fso.FileExists(filePath) then
    set textStream = fso.OpenTextFile(filePath, 1, false,0)
    Dim contents

 Do While Not textStream.AtEndOfStream
 txtLine = textStream.ReadLine
 Response.Write txtline & "dd<br>"  '화면에 보여줄때 줄넘김을 위해 <br> 태그 추가
 Loop
    textStream.Close
    set textStream = nothing
else
     Response.write  "Error"
end if
set fso = nothing