여름나라겨울이야기

Dim txtTemp, objFS, objFL Set objFS = CreateObject("Scripting.FileSystemObject") Set objFL = objFS.OpenTextFile(RootFolder&"\txtPoint.txt" ,2) objFL.write strValue objFL.Close Set objFS = Nothing

< % Dim LoveNum LoveNum = Request.Form ("LoveNum") if Len (LoveNum) = 0 then LoveNum = Split ("0,0,0", ",") else LoveNum = Split (LoveNum, ",") Dim Love (3, 3, 3) " 0 " 별 " 1 " 하트 " 2 " 네모 Love (0, 0, 0) = "☆☆☆ - 어쩔수 없이 사귀게 될사이.." Love (0, 0, 1) = "☆☆♡ - 아름다운 천생연분" Love (0, 0, 2) = "☆☆□ - 고생끝에 멋찌게.." Love (0, 1, 0) = "☆♡☆ - 서로 다정하게 지낼수 있는사이" Love (0, 1, 1) = "☆♡♡ - 열심히 노력해봐 .." Love (0, 1, 2) = ..

'// MS-SQL 의 내장 함수 사용 '// pwdencrypt : 암호화 '// 참고: http://msdn.microsoft.com/ko-kr/library/dd822792.aspx '// pwdcompare: 주어진 값과 암호화된 필드 비교 '// 참고: http://msdn.microsoft.com/ko-kr/library/dd822791.aspx '// 기타보안함수 참고: http://msdn.microsoft.com/ko-kr/library/ms186236.aspx '// START: 사전 작업 '// 해당 테이블의 해당 필드는 varbinary(256) 으로 가정 '// FINISH: 사전 작업 '// START: 암호화된 필드 내용 삽입 SQL = "" SQL = SQL & " INSER..

" ch_1 = ChrW(AscW(ch_1) + 1) ch_2 = ChrW(AscW(ch_2) + 588) End Select Loop%>결과는 다음과 같습니다.ㄱ 가 깋ㄲ 까 낗ㄴ 나 닣ㄷ 다 딯ㄸ 따 띻ㄹ 라 맇ㅁ 마 밓ㅂ 바 빟ㅃ 빠 삫ㅅ 사 싷ㅆ 싸 앃ㅇ 아 잏ㅈ 자 짛ㅉ 짜 찧ㅊ 차 칳ㅋ 카 킿ㅌ 타 팋ㅍ 파 핗ㅎ 하 힣

ASP 페이징 소스 페이징이 필요한 부분에 Sever.Execute 또는 include 로 구겨(?) 넣으면 OKay. 이 페이징을 삽입하는 페이지에 추가해야 할 자바스크립트: 이 페이지를 삽입하는 페이지는 자바스크립트로 fnList 를 구현해야 하고 당연히 fnList 에서는 window.location.href 를 사용해서 인자 값을 GET 방식으로 넘겨주는 부분이 필요하겠지 function fnList(page) { window.location.href = "?page=" + page; // 기타 인자값 "&idxCategory="; } 이 페이징을 삽입하는 페이지에 추가해야 할 ASP 코드: Dim Page // 현재 페이지 번호 Dim PageRange // 페이징에서 보여질 갯수 ex) >> ..

ASP.NET 을 사용한다면 이미 제공되는 컴포넌트 설정을 통해서 알아낼 수 있는 값이지만 ASP 를 사용한다면 클라이언트로부터 서버로 제공되는 정보를 확인하기 위해 써드파티 컴포넌트를 사용해야 하고 이것은 곧 인스톨이라는 귀찮은 과정을 낳는다. 특히, 서버에 포팅 후에 클라이언트에서 서버로 옮겨지는 데이타를 확인하기 위해서 서버에 컴포넌트를 셋팅한다는 것은 어불성설이기에 Wrox 에서 공개한 소스를 조금 변형해서 즐겨사용하게 되었다. 오직 ASP 만을 이용해 구현하였기에 부담도 없다. 아래 소스를 ChkRequest.asp 로 저장해 두고 다른 ASP 페이지에서는 Server.Execute "경로명/ChkRequest.asp" 을 이용해 붙여 넣어두고 실행하면 된다. 물론 직접 호출하는 것도 한가지 방..