ASP/ASP.NET | 캘린더

페이지 정보

작성자 : 에렐리앙 쪽지보내기 메일보내기 자기소개 아이디로 검색 전체게시물 날짜 : 작성일12-04-10 13:08 조회 : 236회

본문


<%
 Dim OnDate, intN, objOpen
 
 OnDate = Request.QueryString("od")
 intN = Request.QueryString("n")
 objOpen = Request.QueryString("o")
%>
<html>
<head>
<title>달력</title>
<script language=javascript>
<!--
window.resizeTo(220,260);
//-->
</script>
</head>
<body>
<%
 Call DrawCalendar(OnDate, intN)
%>
</body>
</html>
<%
 '// OnDate : 달력에서 선택된 일자
 '// intN : OnDate 를 기준으로 이동할 달(월) 수
 Function DrawCalendar(ByVal OnDate, intN)
  Dim WeekdayNames
  Dim Days(42)
  Dim BeginDate, EndDate
  Dim BeginIndex, EndIndex
  Dim i, j, intDay, tempDate
 
  If Not IsDate(OnDate) Then OnDate = FormatDateTime(Date, 2)
  If intN = "" Or Not IsNumeric(intN) Then intN = 0
 
  Select Case intN
   Case 12: OnDate = DateAdd("yyyy", 1, OnDate)
   Case -12: OnDate = DateAdd("yyyy", -1, OnDate)
   Case Else: OnDate = DateAdd("m", intN, OnDate)
  End Select
 
  WeekdayNames = Array("일", "월", "화", "수", "목", "금", "토")
  BeginDate = Year(OnDate) & "-" & Month(OnDate) & "-01"
  EndDate = DateAdd("d", -1, DateAdd("m", 1, BeginDate))
 
  BeginIndex = Weekday(BeginDate) - 1
  EndIndex = Day(EndDate) + BeginIndex - 1
 
  '// 배열에 일자값을 저장한다.
  intDay = 1
  For i = BeginIndex To EndIndex
   tempDate = Year(OnDate) & "-" & Month(OnDate) & "-" & intDay
   Days(i) = "<a href=""javascript:Day_OnClick('" & FormatDateTime(tempDate, 2)  & "', '" & WeekdayNames(i Mod 7) & "');"""
   If i Mod 7 = 0 Then
    Days(i) = Days(i) & " class=sunday>"
   ElseIf i Mod 7 = 6 Then
    Days(i) = Days(i) & " class=saturday>"
   Else
    Days(i) = Days(i) & " class=normal>"
   End If
  
   If intDay = Day(OnDate) Then
    Days(i) = Days(i) & "<b>" & intDay & "</b>"
   Else
    Days(i) = Days(i) & intDay
   End If
  
   Days(i) = Days(i) & "</a>"
 
   intDay = intDay + 1
  Next
%>
<style type="text/css">
.header { font-size:9pt; }
.normal { font-size:9pt; text-decoration:none; color:black; }
.saturday { font-size:9pt; text-decoration:none; color:blue; }
.sunday { font-size:9pt; text-decoration:none; color:red; }
.selected { font-size:9pt; ; font-weight: bold; text-decoration: none}
.flatBox {  background-color: #EEEEEE; border-color: #CCCCCC #999999 #999999 #CCCCCC; border-style: solid; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px}
</style>
 
<script language=javascript>
<!--
function Day_OnClick(SelectedDate, sDayName)
{
 var f = eval("opener.document.<%=objOpen%>");
 f.value = SelectedDate + ' ' + sDayName + '요일';
 opener.focus();
 window.close();
}
 
function goMonth(n)
{
 document.location = "DrawCalendar.asp?o=<%=objOpen%>&od=<%=OnDate%>&n=" + n;
}
//-->
</script>
<table border=0 cellspacing=1 cellpadding=5 width=190 align=center ID="Table1">
 <tr>
  <td align=center class=normal>
   <input type="button" name="Button" value="<<" class="flatBox" onclick="goMonth(-12);" ID="Button1"><input type="button" name="Button2" value="<" class="flatBox" onclick="goMonth(-1);" ID="Button2">
   <b><%=Year(OnDate)%>년 <%=Month(OnDate)%>월</b>
   <input type="button" name="Button3" value=">" class="flatBox" onclick="goMonth(1);" ID="Button3"><input type="button" name="Button4" value=">>" class="flatBox" onclick="goMonth(12);" ID="Button4">
  </td>
 </tr>
</table>
<table border="0" cellspacing="1" cellpadding="3" bgcolor="#333333" ID="Table2" align=center width=190>
 <tr align="center" bgcolor="#666666">
  <td width="20" class="header"  height=25><font color="#FFFFFF">일</font></td>
  <td width="20" class="header"><font color="#FFFFFF">월</font></td>
  <td width="20" class="header"><font color="#FFFFFF">화</font></td>
  <td width="20" class="header"><font color="#FFFFFF">수</font></td>
  <td width="20" class="header"><font color="#FFFFFF">목</font></td>
  <td width="20" class="header"><font color="#FFFFFF">금</font></td>
  <td width="20" class="header"><font color="#FFFFFF">토</font></td>
 </tr>
 <% For i = 0 To 5 %>
 <tr align="center" bgcolor="#FFFFFF">
  <% For j = 0 To 6 %>
  <td height="20" class="normal"><%=Days(i*7+j)%></td>
  <% Next %>
 </tr>
 <%
  If i = 4 And Days(35) & "" = "" Then
   Exit For
  End If
 %>
 <% Next %>
</table>
<% 
 End Function
%>
Total 30건 1 페이지
게시물 검색
웹스터디 목록
번호 제목 글쓴이 날짜 조회
30 ASP/ASP.NET asp폴더생성 에렐리앙 쪽지보내기 메일보내기 자기소개 아이디로 검색 전체게시물 14-07-04 114
29 ASP/ASP.NET 데이터 받아서 asp파일로 txt파일 저장하기 에렐리앙 쪽지보내기 메일보내기 자기소개 아이디로 검색 전체게시물 13-11-26 157
28 ASP/ASP.NET 다른사이트의 정보를 내사이트에 연동하기 에렐리앙 쪽지보내기 메일보내기 자기소개 아이디로 검색 전체게시물 13-11-26 161
27 ASP/ASP.NET 숫자에 콤마(,) 넣기 에렐리앙 쪽지보내기 메일보내기 자기소개 아이디로 검색 전체게시물 13-11-08 174
26 ASP/ASP.NET ABCUpload_v4.1 첨부파일 에렐리앙 쪽지보내기 메일보내기 자기소개 아이디로 검색 전체게시물 13-04-29 241
25 ASP/ASP.NET CkString.dll 첨부파일 에렐리앙 쪽지보내기 메일보내기 자기소개 아이디로 검색 전체게시물 13-04-29 224
24 ASP/ASP.NET cXImageATL.dll 첨부파일 에렐리앙 쪽지보내기 메일보내기 자기소개 아이디로 검색 전체게시물 13-04-29 273
23 ASP/ASP.NET NanumiImagePlus_v1_22 첨부파일 에렐리앙 쪽지보내기 메일보내기 자기소개 아이디로 검색 전체게시물 13-04-29 279
22 ASP/ASP.NET ASP 문자 숫자 랜덤으로 출력하기 에렐리앙 쪽지보내기 메일보내기 자기소개 아이디로 검색 전체게시물 13-03-21 317
21 ASP/ASP.NET asp 달력소스 에렐리앙 쪽지보내기 메일보내기 자기소개 아이디로 검색 전체게시물 12-07-30 412
열람중 ASP/ASP.NET 캘린더 에렐리앙 쪽지보내기 메일보내기 자기소개 아이디로 검색 전체게시물 12-04-10 237
19 ASP/ASP.NET 텍스트함수 에렐리앙 쪽지보내기 메일보내기 자기소개 아이디로 검색 전체게시물 11-12-12 247
18 ASP/ASP.NET 날짜표시 관련 Now() 에렐리안 쪽지보내기 메일보내기 자기소개 아이디로 검색 전체게시물 11-11-24 1006
17 ASP/ASP.NET Http 를 SSL 적용 하여 Https 로 변경하여 출력하기 에렐리앙 쪽지보내기 메일보내기 자기소개 아이디로 검색 전체게시물 11-11-17 371
16 ASP/ASP.NET ASP ServerVariables Collection 에렐리앙 쪽지보내기 메일보내기 자기소개 아이디로 검색 전체게시물 11-11-17 275
15 ASP/ASP.NET 메일보내기 소스 에렐리앙 쪽지보내기 메일보내기 자기소개 아이디로 검색 전체게시물 11-06-23 1035
14 ASP/ASP.NET ASP에서 첨부파일이 다운로드 되지않는현상 UTF-8 방식 에렐리앙 쪽지보내기 메일보내기 자기소개 아이디로 검색 전체게시물 11-06-10 970
13 ASP/ASP.NET ASP에서 Fckeditor 한글오류문제 해결 에렐리앙 쪽지보내기 메일보내기 자기소개 아이디로 검색 전체게시물 11-05-24 1296
12 ASP/ASP.NET ASP 금지단어 필터 에렐리앙 쪽지보내기 메일보내기 자기소개 아이디로 검색 전체게시물 11-04-14 1544
11 ASP/ASP.NET #include 와 Server.Execute 의 차이점 에렐리앙 쪽지보내기 메일보내기 자기소개 아이디로 검색 전체게시물 11-04-12 1261
Today 156 Yesterday 247
Total 86,160