Blue Breeze

Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" Response.CacheControl = "no-cache" Response.Buffer = True Response.Expires = -1

'이건 포스트로 넘어오는값을 찍어주는거 For Each objItem In Request.Form makestr = objItem & " = " makestr = makestr & "Request(" & chr(34) & objItem & chr(34) & ")" Response.Write makestr & " ': " & Request.Form(objItem) & "" Response.Write " " Next '이것은 Get 방식으로 넘어오는 값을 찍어주는거. For Each objItem In Request.querystring makestr = objItem & " = " makestr = makestr & "Request(" & chr(34) & objItem & chr(34) & ")" Res..

'=================================================================== '== 설명 : 문장을 해당 자릿수만큼 이 들어간 문장으로 변환 '== 이름 : MakeBr(Str,Pos) '== 변수 : Str(String),Pos(Int) '== 반환 : String '=================================================================== Function MakeBr(Str,Pos) Dim StrLen, TmpStr, i, Midcnt, Start, Surplus StrLen = len(Str) If (StrLen Mod Pos) = 0 then MidCnt = Fix(StrLen/Pos) Else MidCn..

필요하신분들이 많으실듯해서 올려드립니다. 사실 크게 어려운 부분은 아닙니다. 아래글은 트랙백의 기본개념보다는 windows + asp 환경에서의 기술적 구현을 위해 간단하게 작성된 소스입니다. 따라서 트랙백의 기본개념을 이해하신후 소스를 보시는것이 도움이 되실것입니다.또한 보다 확장적인 서비스를 위해서는 아래 소스외에 더 많은 부분을 추가하셔야 합니다. 1. 트랙백 핑 받기

' -------------------------------------------------------- ' Function Name : regular_replace ' Description : 정규표현식을 이용한 대치 ' -------------------------------------------------------- Function eregi_replace(pattern, replace, text) Dim eregObj ' Create regular expression Set eregObj= New RegExp eregObj.Pattern= pattern ' Set Pattern(패턴 설정) eregObj.IgnoreCase = True ' Set Case Insensitivity(대소문자 구분 ..

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형..

다음은 데브피아 이원문 님의 글입니다. --------------------------------------------------------------------------- 제가 어느 페이징이 제일 빠를까.. 고민 하다가.. 테스트로 만들어 보았습니다. 총.. 6가지..입니다.. 간단하게 쿼리를 설명해드리겠습니다. 1. SELECT TOP [불러올 총 게시물수] [출력 필드명] FROM [테이블 명] 1번 리스트는 이 쿼리 구문을 써서 했고요. 현제 개시물까지 이동을 Rs.Move(이동할수) 로 처리 했습니다. 2. SELECT TOP [불러올 총 게시물수] [출력 필드명] FROM [테이블 명] - 1번과 동일 1번과 쿼리구문은 동이하고요. 레코드셋의 AbsolutePage를 이용해서 페이징을 했습니..

sql="insert into table(ref,name, email, title, content)" sql=sql & " (select IsNull(MAX(ref), 0) + 1, 'name', 'email', 'title', 'content' from table)" db.execute(sql) 이렇게 하는게 더 짧네요 ^^; > 김정호 님이 쓰신 글 > ---------------------------------------------------------- > 쿼리문이 틀린거 같아 수정합니다. > > sql="insert into table(ref,name, email, title, content)" > sql=sql & " (select case when max(ref) is null then 1 ..

Dim WshNetwork, compname Set WshNetwork = CreateObject("WScript.Network") compname = WshNetwork.ComputerName

Response.Redirect 대신 Server.Transfer를 사용하라 Response.Redirect는 Server에서 브라우저에 요청 후 Server로 돌아오나. Server.Transfer는 Server내부에서 처리됩니다. Directory URL에 후행 슬러시 사용 후행 슬래시를 생략하면 브라우저는 서버에 요청하여 디렉터리를 요구하고 있다는 응답을 받습니다. 그러면 브라우저는 URL에 슬래시를 첨가하여 두번째 요청을 하며 이때서야 서버가 그 디렉터리에 대한 기본 문서로 응답합니다. Sever 변수사용금지 서버 변수에 액세스하면 웹 사이트가 서버에 특별한 요청을 하게 되어 요청한 것만이 아니라 모든 서버 변수를 수집하게 됩니다. 속도가 저하됨 ex : 일괄 처리 인라인 스크립트 및 Respon..