三年不蜚 又不鳴

.....

만약 내부 도메인( 자기 ip )를 호출할 경우에

에러가 난다면

localhost로 해보기 바란다

몇날을 해맨건지.....ㅠㅠ

<!-- 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

%>

<%

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

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

ASP 종료 함수

1. ASP 실행 중 중간에 종료하기

response.end

2. function에서 종료하기

exit function

3. sub에서 루틴 종료

exit sub

 abs() - 절대값구하기
 array(배열) - 배열을 반환
 asc() - 문자의 ANSI문자값을 반환
 atn() - 아크 탄젠트로 반환
 cbool() - boolean형식으로 반환
 cbyte() - byte형식으로 반환
 ccur() - currency형식으로 반환
 cdate() - date형식으로 반환
 cdbl() - double형식으로 반환
 * chr() - asc()함수의 반대, ANSI문자를 일반문자로 변환
 * cint() - interger형식으로 반환
 clng() - long형식으로 반환
 cos(각도) - 주어진 각도의 코사인 값을 반환
 ** createobject() - 자동화 인터페이스를 통해 다른 응용프로그램이나
 프로그래밍 도구에 나타나는 객체에 대한 참조를 만들어 반환
 cstr() - string형식으로 반환
 ** date() - 현재의 날자를 반환
 dateserial(년,월,일) - 주어진 년,월,일에 대한 date형식을 반환
 exp() - 주어진 수에대한 자연로그(승수로 거듭제곱하는 수) 밑인 e를 반환
 filter(inputstring,값[,include[,비교]])) - inputstring는 검색할 문자열의 1차원 배열
 include는 true나 false값을 가지는데, true로 설정되면 값발견시 그값을 가진
 배열을 반환하고,flase로 설정되면 검색에 맞지않는 부분의 배열을 반환
 비교는 비교형식을 나타내는 숫자값입니다
 fix() - 주어진 수의 정수를 반환
 * formatcurrency() - 원화 형식으로 반환 예) 1,000
 formatdatetime() - 날자와 시간으로 형식화하여 반환
 * formatnumber(숫자,소수자릿수) - 숫자로 형식화된 식을 반환 소숫점 몇째자리...
 * formatpercent(수,소수자리수) - 퍼센트형식으로 반환 기본 소수2째자리까지.
 hex() - 주어진 수를 16진수로 변환
 hour() - 0과23 사이의 시간을 나타낸다
 inputbox(프롬프트[,제목][,기본값][,xpos][,ypos][,helpfile,context]) - 대화상자
 * instr([시작,]문자열1,문자열2[,비교]) - 시작은 문자열 검색 시작위치, 문자열1은 검색할
 문자이며, 문자열2는 찾아야할 문자, 비교는 비교상수를 나타냄
 * instrrev() - instr()과 반대로 문자 끝에서부터 검색
 * int() - 주어진 수의 정수부분을 반환
 isarray() - 주어진 변수가 배열인지 판단하는 boolean값을 반환
 isdate() - 주어진 식이 날짜로 전환 될수 있는지 나타내는 boolean값을 반환
 isempty() - 주어진 변수가 초기화 되었는지 나타내는 boolean값을 반환
 isnull() - 주어진 식이 유효한 데이터가 있는지 없는지 boolean값을 반환
 isnumberic() - 주어진 식이 숫자로 값이 정해질 수 있는지 나타내는 boolean값 반환
 * isobject() - 자동화 객체를 참조하는지 여부를 나타내는 boolean값을 반환
 join(목록[,구분기호]) - 배열에 포함되어 있는 여러 문자열을 결합하여 만든 문자열을 반환
 모록은 1차원 배열이름, 구분기호는 문자열을 구분하기위해 사용하고 기본값은 "" 공백
 lbound(배열이름[,차원]) - 주어진 배열에서 사용할 수 있는 가장 작은 첨자를 반환
 배열이름은 배열 변수의 이름, 차원은 배열의 차원중 가장 작은 값을 나타냄
 * lcase() - 주어진 문자를 소문자로 반환
 ** left(문자열,수) - 주어진 문자를 왼쪽으로부터 주어진 수만큼의 문자열을 반환
 * len() - 주어진 문자열의 문자 개수를 세는 함수
 loadpicture(그림파일의이름) - 그림객체를 반환
 log() - 주어진수의 자연 로그를 반환
 ltime() - 앞에 공백이 없는 문자열을 반환
 ** mid(문자열,시작[,길이]) - 주어진 문자열에서 주어진 위치에서부터의 길이만큼의 문자를 반환
 minute(시간) - 시간에서 분값(0~59)을 반환
 month(날짜) - 달의 값(1~12)을 반환
 * monthname(달) - 주어진달의 숫자표현을 문자표현으로 바꾸어준다
 msgbox(프롬프트[,단추][,제목][,helpfile,context]) - 프롬프트는 대화상자 안의 내용
 단추는 단추모양,제목은 제목표시줄이름, helpfile은 도움말위치,context는 도움말 문맥번호
 * now() - 현재 날자와 시간을 반환
 oct() - 주어진 숫자의 8진수 값을 나타내는 문자를 반환
 ** replace(문자열,찾을문자열,바꿀문자열[,시작[,횟수[,비교]]]) - 문자열은 바꿀 대상, 찾을문자열은
 문자열에서 바꾸어야 할 문자, 바꿀문자열은 찾은 문자열을 대치할 문자열, 시작은 검색시작위치
 횟수는 바꾸는 횟수, 비교는 바꿀 때의 비교형식
 ** right(문자열,수) - 주어진 문자의 오른쪽으로 부터 주어진 수만큼의 문자를 반환
 rnd(수) - 난수를 반환 수는 생략가능
 round(수) - 반올림한 수를 반환, 소수 첫째자리 반올림
 rtrim(문자열) - 뒤에 공백이 없는 문자열을 반환
 scriptengine() - 사용중인 스크립트 언어를 나타낼때 사용
 scriptenginebuildversion() - 사용중인 스크립트 엔진의 버전 수를 반환
 scriptenginemajorversion() - 사용중인 스크립트 엔진의 주 버전 수를 반환
 scriptengineminorversion() - 사용중인 스크립트 언어의 보조 버전 수를 반환
 * second(시간) - 시스템 시간중 초값(0~59)을 반환
 sgn(수) - 주어진 숫자의 부호를 나타내는 정수를 반환 0보다크면 1, 같으면 0, 작으면 -1을 반환
 sin() - 주어진 라디안 값의 사인값을 반환
 space(수) - 주어진 수만큼의 공백이 포함된 문자열을 반환
 * split(문자열[,구분기호[,수[,비교]]]) - 문자열은 배열에 포함될 문자열, 구분기호는 문자열 구분하기
 위한기호를 표시. 생략시 "" 공백, 수는 반환될 문자열의 수를 나타냄, 비교는 바꿀때의 비교형식
 sqr(수) - 주어진 수의 제곱근을 반환
 strcomp(문자열1,문자열2[,비교]) - 두개의 문자열을 비교하여 결과값을 반환
 strreverse(문자열) - 주어진 문자열을 뒤에서부터 읽은 문자열을 반환
 * string(수,문자) - 주어진 문자가 주어진 수만큼의 반복된 문자열을 반환
 tan(수) - 주어진 라디안 값의 수 만큼의 탄젠트 값을 반환
 * time() - 현재 시간을 반환
 timeserial(시, 분, 초) - 주어진 시간,분,초에 대한 시간 값을 반환
 timevalue(시간) - 시간이 포함된 date형식을 반환해주는 함수
 trim(문자열) - 앞뒤 공백이 없는 문자열을 반환해 줄 때 사용
 typename(변수이름) - 주어진 변수의 정보를 나타내는 문자열 반환
 ubound(배열이름[,차원]) - 배열의 차원으로 가장 큰 첨자를 반환
 * ucase(문자열) - 주어진 문자를 대문자로 바꾸어 줍니다
 vartype(변수) - 변수의 형식을 나타내는 값을 반환
 weekday(날짜[,firstday of week]) - 요일을 나타내는 정수를 반환, firstday for week는 첫재요일을 숫자
 로
 weekdayname(요일,약어, firsrday of week) - 요일은 숫자, 약어는 약어의 유무의 부울값
 * year() - 현재의 년도를 나타낼때 쓰임

출처:http://dojeun.egloos.com/318107

http://blog.naver.com/PostList.nhn?blogId=forioso&from=postList&categoryNo=4

http://blog.naver.com/findaday?Redirect=Log&logNo=105068514

http://www.webmadang.net/develop/develop.do?boardid=1001&page=2

나오키 니시자와의 ASP 사전 및 개인 지식