'Windows/ASP' 카테고리의 글 목록

탭(tab) replace

Windows/ASP 2013. 3. 12. 09:50

Replace(OldString,vbtab,"")

Posted by 아로스

,

해당월의 총 일수

Windows/ASP 2010. 12. 2. 14:22

day(DateSerial(dyear, dmonth+1, 0))

Posted by 아로스

,

'------------------------------------------------------------------------------
' Description : byte(바이트) 글자 체크
'------------------------------------------------------------------------------
function fn_ByteLen(str)
tlen=0
tt=len(str)
k=1
for i=1 to tt
if asc(mid(str,k,1)) < 0 then
tlen=tlen+2
else
tlen=tlen+1
end if
k=k+1
next
fn_ByteLen=tlen
end function

Posted by 아로스

,

DB 트랜잭션 처리

Windows/ASP 2009. 6. 3. 10:20

DB.Errors.clear
DB.BeginTrans '트랜잭션 시작
DB.Execute (SQL) 'Execute

if DB.Errors.count>0 Then
DB.RollbackTrans '에러가 발생한다면 트랜잭션 롤백시킨다.
Set objError = Server.CreateObject("ADODB.Error")
for each objError in DB.Errors
Msg (objerror.Description) '에러문 출력
Next
objError.close
Set objError=Nothing
Else
DB.CommitTrans '에러없이 진행한다면 트랜잭션 Commit 시킨다.
End if

[출처] [본문스크랩] [ASP] DB 트랜잭션 처리|작성자 디벨로퍼

Posted by 아로스

,

Html 처리

Windows/ASP 2009. 4. 24. 13:34

-------------------------------------소스-----------------------------------
<%
Function no_html(contents)
contents = trim(contents) '앞, 뒤 공백제거
contents = replace(replace(contents,"<","<"),">",">") '<, > 처리
contents = replace(contents,chr(13)&chr(10)," ") 'Enter 처리
contents = replace(contents,chr(32)," ") 'Space Bar 처리
contents = replace(contents,chr(9),"    ") 'Tab 처리
contents = replace(contents,"'","''") '작은따옴표(') 처리

contents = replace(contents,"<%","<%") 'Asp 불능..처리
contents = replace(contents,"%>","%>")

no_html = contents
End Function

Function html(contents)
contents = trim(contents) '앞, 뒤 공백제거
contents = replace(contents,"<t","<t") '<table 테그 사용금지1
contents = replace(contents,"<T","<T") '<table 테그 사용금지2
'contents = replace(contents,"<tr"&"<Tr","<tr") '<tr 테그 사용금지
'contents = replace(contents,"<td"&"<Td","<td") '<td 테그 사용금지
contents = replace(contents,"'","''") '작은따옴표(') 처리

contents = replace(contents,"<"&chr(37),"<%") 'Asp 불능..처리
contents = replace(contents,chr(37)&">","%>") 'Asp 불능..처리

html = contents
End Function
%>

<%
aa = no_html(request("aa"))
cc = html(request("aa"))
%>

Posted by 아로스

,

asp 한글변환

Windows/ASP 2009. 4. 22. 11:14

1. <%@ codepage="65001" language="VBScript" %>

해당 ASP 파일의 페이지 속성을 정의 하게 되는 부분입니다.

codepage="65001" 는 UTF-8 의 속성을 나타내는 페이지 속성이라고 보심 됩니다.

다음과 같이 페이지 속성을 수정해 주시면 될거같네요 ^^;

<%@ codepage="949" language="VBScript" %>

대표적인 텍스트 인코딩 코드 페이지 값으로는 밑에 있는대로... 나머지는 공부하시면서 찾아보세요 ^^

0 : ANSI (기본값)

949 : 한국어 (EUC-KR)

65001 : 유니코드 (UTF-8)

65535 : 유니코드 (UTF-16)

2. <meta http-equiv="Content-Type" content="text/html; charset=utf-8">

해당 페이지의 (HTML,ASP,JSP,PHP 등) 정보를 가지고 있는 메타 태그를 설정하는 부분입니다.

메타 태그의 속성을 charset=utf-8" 으로 정해 주셨기 때문에 한글이 깨지는 현상이 발생합니다.

다음과 같이 메타 태그의 문자코드 세트명을 변경해 주시면 될거같네요....

3. Session.CodePage = 65001

Session.CodePage는 현재 세션 사용자의 동적 텍스트 인코딩 코드를 설정합니다.

코드 페이지를 설정함... 문자세트를 결정하는 정수를 값으로 받네요 ^^;

다음과 같이 코드 페이지를 설정하면 될거같네요 ^^;

Session.CodePage = 949

4. Response.ChaRset = "utf-8"

ASP의 response.charset을 이용해서 문자 코드 세트명을 지정하는 부분 입니다.

설정시 <html> 태그 보다 앞에 선언 되어야 HTML 이 출력되면서 해당 속성을 인식하게 됩니다.

다음과 같이 문자 코드 세트명을 변경해 주시면 될거같네요 ^^;

Response.ChaRset = "EUC-KR"

Posted by 아로스

,

Windows Server-유용하게 이용되는 ServerVariables collection 몇 가지

Windows/ASP 2008. 12. 4. 16:58

ServerVariables collection 사용으로 서버 및 클라이언트 정보확인이 가능하며
여기서 얻어낸 정보로 도메인 및 설정된 언어에 따라 웹페이지 이동과
파일 업로드, 로그 분석, 약간의 보안설정 등 많은 부분에 이용이 가능합니다.

APPL_PHYSICAL_PATH : E:\HOME\help_tt_co_kr\
메타베이스 경로에 해당하는 실제(디렉터리) 경로를 반환합니다.

- PATH_TRANSLATED : E:\HOME\help_tt_co_kr\servervariables\ServerVariables.asp
실제(디렉토리) 경로를 반환합니다.

- HTTP_HOST : help_tt.co.kr
도메인명을 반환합니다.

- HTTP_URL : /servervariables/ServerVariables.asp
도메인명의 이후 URL을 반환합니다.

- HTTP_METHOD : GET
전송방식을 반환합니다.

- HTTP_REFERER : http://help.tt.co.kr/servervariables/servervariables_start.asp
현재 페이지를 참조했던 이전 페이지 URL 문자열을 반환합니다.

- LOCAL_ADDR : 222.110.110.3
요청에 응답하는 서버 주소를 반환합니다.

- SERVER_PORT : 80
요청에 응답하는 서버 포트번호를 반환합니다.

- SERVER_SOFTWARE : Microsoft-IIS/6.0
요청에 응답하는 서버의 소프트웨어 이름과 버전 확인이 가능합니다.

- REMOTE_ADDR : 222.235.68.2
요청을 하는 원격 호스트 주소를 반환합니다.

- REMOTE_PORT : 2965
요청을 하는 원격 호스트의 포트번호를 반환합니다.

- HTTP_ACCEPT_LANGUAGE : ko
컨텐트를 표시하는 데 사용할 설정 값의 확인이 가능합니다.

위의 정보 확인은 아래의 소스로 확인이 가능합니다.
<%
response.write "APPL_PHYSICAL_PATH : " & Request.ServerVariables("APPL_PHYSICAL_PATH") & " "
response.write "PATH_TRANSLATED : " & Request.ServerVariables("PATH_TRANSLATED") & " "
response.write "HTTP_HOST : " & Request.ServerVariables("HTTP_HOST") & " "
response.write "HTTP_URL : " & Request.ServerVariables("HTTP_URL") & " "
response.write "HTTP_METHOD : " & Request.ServerVariables("HTTP_METHOD") & " "
response.write "HTTP_REFERER : " & Request.ServerVariables("HTTP_REFERER") & " "
response.write "LOCAL_ADDR : " & Request.ServerVariables("LOCAL_ADDR") & " "
response.write "SERVER_PORT : " & Request.ServerVariables("SERVER_PORT") & " "
response.write "SERVER_SOFTWARE : " & Request.ServerVariables("SERVER_SOFTWARE") & " "
response.write "REMOTE_ADDR : " & Request.ServerVariables("REMOTE_ADDR") & " "
response.write "REMOTE_PORT : " & Request.ServerVariables("REMOTE_PORT") & " "
response.write "HTTP_ACCEPT_LANGUAGE : " & Request.ServerVariables("HTTP_ACCEPT_LANGUAGE") & " "
%>

위의 정보 및 다른 값들을 확인하기 위해서는 아래의 소스로 확인이 가능합니다.
<table border="1">
<tr>
<td>변수명</td>
<td>값</td>
</tr>
<%
for each key in request.servervariables
%>
<tr align=left>
<td><%=key%></td>
<td>
<%
if request.servervariables(key)="" then
response.write " "
else
response.write request.servervariables(key)
end if
%>
</td>
</tr>
<%
next
%>
</table>

출처 : [기타] (주)오늘과내일 웹호스팅 페이지 http://tt.co.kr

Posted by 아로스

,

IsDate 함수 : 정상적인 날짜인지 확인

Windows/ASP 2008. 10. 10. 18:10

설명
한 식이 날짜로 변환될 수 있는지 여부를 나타내는 부울값을 반환합니다.
구문
IsDate(expression)
expression 인수는 날짜식 또는 날짜나 시간으로 인식될 수 있는 문자식입니다.

참고
IsDate 함수는 해당 식이 날짜이거나 유효한 날짜로 변환될 수 있는 경우 True를, 그렇지 않으면 False를 반환합니다. Microsoft Windows의 유효한 날짜 범위는 서기 100년 1월 1일에서 서기 9999년 12월 31일까지이지만, 운영 체제에 따라 그 범위가 달라집니다.
아래 예제에서 IsDate 함수는 식이 날짜로 변환될 수 있는 지 여부를 결정합니다.

Dim MyDate, YourDate, NoDate, MyCheck
MyDate = "1962년 10월 19일": YourDate = #10/19/62#: NoDate = "안녕하십니까?"
MyCheck = IsDate(MyDate)            ' True를 반환합니다.
MyCheck = IsDate(YourDate)          ' True를 반환합니다.
MyCheck = IsDate(NoDate)            ' False를 반환합니다.

Posted by 아로스

,

PHP의 implode함수를 ASP로 변환

Windows/ASP 2008. 10. 10. 10:39

php 에서 implode 함수를 찾아보니 아래와 같이 사용한다고 하네요.
<?php
$array = array('lastname', 'email', 'phone');
$comma_separated = implode(",", $array);
echo $comma_separated; // lastname,email,phone
?> 
배열내용을 특정문자를 포함해서 연결시키는 함수네요.
비슷한게 join 이라는게 ASP 에서도 있습니다. 위 예제 함수를 그대로 이용하면
<%
Dim MyArray
Dim MyString
MyArray = array("lastname", "email", "phone");
MyString = join(array, ",")
Response.Write(MyString) '// lastname,email,phone 를 출력합니다.
%>
구분자는 생략가능합니다.

Posted by 아로스

,

나른한 오후~

'Windows/ASP'에 해당되는 글 10건

탭(tab) replace

해당월의 총 일수

이번달 마지막 날짜 구하기

byte check

DB 트랜잭션 처리

Html 처리

asp 한글변환

Windows Server-유용하게 이용되는 ServerVariables collection 몇 가지

IsDate 함수 : 정상적인 날짜인지 확인

PHP의 implode함수를 ASP로 변환

카테고리

최근에 올라온글

최근에 달린 댓글

최근에 받은 트래백

달력

태그목록

링크

티스토리툴바