목록ASP (45)

아는 것이 좋은 것이다.

[ASP]두 날짜간 년수 개월수 일수 구하기

12months = months - 12years = years + 1loop getDateExperience = years & "년 " & months & "개월 " & days & "일"End Function Response.write getDateExperience("2012-05-19", "2014-06-30")%>
ASP 2015. 3. 20. 16:42
[ASP] AJAX 한글 깨짐 해결방법, encodeURI로 변환값 ASP로 디코딩(한글깨짐 방지)

Public Function URLDecodeUTF8(byVal pURL)  Dim i, s1, s2, s3, u1, u2, result  pURL = Replace(pURL,"+"," ")  For i = 1 to Len(pURL)   if Mid(pURL, i, 1) = "%" then    s1 = CLng("&H" & Mid(pURL, i + 1, 2))    '2바이트일 경우    if ((s1 AND &HC0) = &HC0) AND ((s1 AND &HE0) &HE0) then     s2 = CLng("&H" & Mid(pURL, i + 4, 2))     u1 = (s1 AND &H1C) / &H04     u2 = ((s1 AND &H03) * &H04 + ((s2 AND &H30) /..
ASP 2014. 7. 10. 09:20
[ASP] form utf-8 -> euc-kr 로 변환하여 전송

accept-charset="euc-kr" onsubmit="document.charset='euc-kr';" 위의 태그 2개를 삽입하여 주면 utf-8 페이지에서 euc-kr로 변환후 받는페이지에서 euc-kr로 처리하여 DB에 insert가 가능하다
ASP 2014. 7. 8. 08:58
[ASP] 한글, 영문 문자열 자르기

Function simpleCut(ByVal cutString, num) ' 한글,영문을 같이 쓸경우 정확하지 않다 If len(cutString) > num Then simpleCut = left(cutString,num - 1) & "..." End If End FunctionFunction strCutting(Str, Num) strLength = 0 For strNum = 1 To Len(str) ' strNum이 0부터 시작하면 오류가 발생한다. Temp = Asc(Mid(Str, strNum, 1)) strCut  = strCut & Mid(Str, strNum, 1) If Temp strLength = strLength + 1.4 Else          strLength ..
ASP 2014. 7. 7. 09:38
[ASP] 숫자 앞에 원하는 개수만큼 0 붙이기

'------------------------------------------------' 사용예 : format(123, "00000") ==> 000123'------------------------------------------------function format(ByVal szString, ByVal Expression)if len(szString) < len(Expression) thenformat = left(expression, len(szString)) & szStringelseformat = szStringend ifend function
ASP 2014. 7. 6. 12:31
[ASP] XML 읽어서 출력

XML의 파일을 읽어들여서 갯수와 해당항목을 출력한다. 상품1 상품코드1 10000 상품2 상품코드2 20000 상품3 상품코드3 30000 테스트용으로 만든 XML(data.xml) 여기의 데이터를 읽어서 뿌려준다.
ASP 2014. 6. 28. 12:54
[ASP] 변수로 인클루드(include) 하기

위와 같은 방식으로 인클루드를 할경우 오류가 난다. 위와 같은 방식으로 사용은 가능하나 변수가 많아지면 비효율적이다. 위와 같은 방식으로 간단하게 인클루드가 가능해진다.
ASP 2014. 6. 23. 10:00
[ASP] XMLHTTP GET으로 파일 읽어오기

function GetFileFrom(sURL, sSavepath) on error resume next dim oHTTP, oStream Const adTypeBinary = 1 Const adSaveCreateOverWrite = 2 set oHTTP = Server.CreateObject("Microsoft.XMLHTTP") oHTTP.open "GET", sURL, False oHTTP.send set oStream = Server.Createobject("ADODB.Stream") oStream.type = adTypeBinary oStream.open oStream.write oHTTP.responseBody oStream.savetofile sSavepath, adSaveCreateOverW..
ASP 2014. 6. 11. 15:28
[ASP] ASP 쌍따옴표 replace

">">
ASP 2014. 6. 5. 09:25
[ASP] 랜덤함수

'랜덤함수'4지선다 답 맞추기. 답이 맞으면 포인트부여 Randomize() answer = Int((Rnd * 4) + 1)               '최대 4, 최소 1 Randomize() answer_value = Int((Rnd * 4) + 1) Dim Get_Point(4) Get_Point(1) = 500 Get_Point(2) = 300 Get_Point(3) = 200 Get_Point(4) = 100 If answer = answer_value Then  Get_Point_Value = Get_Point(answer) Else   Get_Point_Value = Get_Point(4) End If%>
ASP 2014. 5. 23. 17:14
Prev 1 2 3 4 5 Next