'ASP 날짜'에 해당되는 글 1건

  1. 2015.01.21 달력 소스 ASP
^   ^

광고 수익의 일부는 블로거에게 제공됩니다

달력 소스 ASP

IT관련/웹(Web) 2015. 1. 21. 10:47

워낙 쉬운 코드라 ... 올리기도 참 민망하지만

요즘 머리가 점점... 기억을 잃어 버려 ㅋㅋ 이렇게 적어놓아본다.

ASP 달력소스

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
<%
    Dim str, d(7), cnt, end_date, st_date, t_date
 
    str = Date()
 
    d(0) = "일"
    d(1) = "월"
    d(2) = "화"
    d(3) = "수"
    d(4) = "목"
    d(5) = "금"
    d(6) = "토"
 
    '이번달 1일의 요일
    st_date = Weekday(DateSerial(Year(str), Month(str), 1))-1
 
    '이번달 마지막일
    end_date = Day(DateSerial(Year(str), Month(str)+1, 1-1))
 
    Response.write "<h2>" & Year(str) & "년 " & Month(str) & "월 </h2><br />"
%>
<table border="1">
    <tr>
<%
 
    For i=0 To 6 Step 1
        Response.write "<td>"&d(i)&"</td>"
 
    Next
 
    Response.write "</tr>"
 
    For i=0 To st_date-1
        Response.write "<td></td>"
 
    Next
 
    For i=1 To end_date
        t_date = Weekday(DateSerial(Year(str), Month(str), i))-1
        Response.write "<td>" & i & "</td>"
 
        If(t_date = 6) Then
            Response.write "</tr><tr>"
        End if
 
    Next
 
    Response.write "</tr>"
%>
</table>

저작자표시 (새창열림)

'IT관련 > 웹(Web)' 카테고리의 다른 글

ASP - 날씨 비동기 호출  (1) 2015.04.16
ASP - 음력 양력 변환 프로그램  (0) 2015.04.16
zeroPlus[숫자 앞에 0자리 채우기]  (0) 2015.01.26
날씨 비동기 호출  (0) 2015.01.21
음-양력 변환 프로그램  (0) 2015.01.21
하단
Posted by 네이션
,
◈ 　　　　　yoit맛집 소개와 일상을 공유하는 블로그입니다.

티스토리툴바