日歷事件源碼
❶ ASP+JS日歷源代碼
直接保存成 asp文件 運行就可以
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="http://purl.org/dc" rel="schema.DC" />
<title>日歷</title
</head>
<body bgcolor="#FFFFFF">
<%
' 要調用的函數聲明
'根據年份及月份得到每月的總天數
Function GetDaysInMonth(iMonth, iYear)
Select Case iMonth
Case 1, 3, 5, 7, 8, 10, 12
GetDaysInMonth = 31
Case 4, 6, 9, 11
GetDaysInMonth = 30
Case 2
If IsDate("February 29, " & iYear) Then
GetDaysInMonth = 29
Else
GetDaysInMonth = 28
End If
End Select
End Function
'得到一個月開始的日期.
Function GetWeekdayMonthStartsOn(dAnyDayInTheMonth)
Dim dTemp
dTemp = DateAdd("d", -(Day(dAnyDayInTheMonth) - 1), dAnyDayInTheMonth)
GetWeekdayMonthStartsOn = WeekDay(dTemp)
End Function
'得到當前一個月的上一個月.
Function SubtractOneMonth(dDate)
SubtractOneMonth = DateAdd("m", -1, dDate)
End Function
'得到當前一個月的下一個月.
Function AddOneMonth(dDate)
AddOneMonth = DateAdd("m", 1, dDate)
End Function
' 函數聲明結束
Dim dDate ' 日歷顯示的日期
Dim iDOW ' 每一月開始的日期
Dim iCurrent ' 當前日期
Dim iPosition ' 表格中的當前位置
' 得到選擇的日期並檢查日期的合法性
If IsDate(Request.QueryString("date")) Then
dDate = CDate(Request.QueryString("date"))
Else
If IsDate(Request.QueryString("month") & "-" & Request.QueryString("day") & "-" & Request.QueryString("year")) Then
dDate = CDate(Request.QueryString("month") & "-" & Request.QueryString("day") & "-" & Request.QueryString("year"))
Else
dDate = Date()
If Len(Request.QueryString("month")) <> 0 Or Len(Request.QueryString("day")) <> 0 Or Len(Request.QueryString("year")) <> 0 Or Len(Request.QueryString("date")) <> 0 Then
Response.Write "您所選擇的日期格式不正確,系統會使用當前日期.<BR><BR>"
End If
End If
End If
'得到日期後我們先得到這個月的天數及這個月的起始日期.
iDIM = GetDaysInMonth(Month(dDate), Year(dDate))
iDOW = GetWeekdayMonthStartsOn(dDate)
%>
<table width="180" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><table width="150" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="5"> </td>
</tr>
</table>
<table width="180" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center" colspan="7"><table border="0" cellpadding="0" cellspacing="0"width="100%">
<tr>
<td height="22" align="right"><a href="rl.asp?date=<%= SubtractOneMonth(dDate) %>"><img src="../images/dot_left.gif" width="15" height="14" border="0" /></a></td>
<td align="center"><font color="999999"><b><%= MonthName(Month(dDate)) & " " & Year(dDate) %></b></font></td>
<td><a href="rl.asp?date=<%= AddOneMonth(dDate) %>"><img src="../images/dot_right.gif" width="15" height="14" border="0" /></a></td>
</tr>
</table></td>
</tr>
<tr>
<td width="25" height="22" align="center"><font
color="d08c00"><b>日</b></font> </td>
<td width="25" align="center"><b><font color="999999">一</font></b> </td>
<td width="25" align="center"><b><font color="999999">二</font></b> </td>
<td width="25" align="center"><b><font color="999999">三</font></b> </td>
<td width="25" align="center"><b><font color="999999">四</font></b> </td>
<td width="25" align="center"><b><font color="999999">五</font></b> </td>
<td width="25" align="center"><b><font color="d08c00">六</font></b> </td>
</tr>
<%
' 如果這個月的起始日期不是周日的話就加空的單元.
If iDOW <> 1 Then
Response.Write vbTab & "<TR>" & vbCrLf
iPosition = 1
Do While iPosition < iDOW
Response.Write vbTab & vbTab & "<TD></TD>" & vbCrLf
iPosition = iPosition + 1
Loop
End If
' 繪制這個月的日歷
iCurrent = 1
iPosition = iDOW
Do While iCurrent <= iDIM
' 如果是一行的開頭就使用 TR 標記
If iPosition = 1 Then
Response.Write vbTab & "<TR>" & vbCrLf
End If
' 如果這一天是我們選擇的日期就高亮度顯示該日期.
If iCurrent = Day(dDate) Then
Response.Write vbTab & vbTab & "<TD BGCOLOR=#eeeeee height=18 align=center><B>" & iCurrent & "</B></TD>" & vbCrLf
Else
Response.Write vbTab & vbTab & "<TD height=18 align=center><A HREF=""./rl.asp?date=" & Month(dDate) & "-" & iCurrent & "-" & Year(dDate) & """>" & iCurrent & "</A></TD>" & vbCrLf
End If
' 如果滿一周的話表格就另起一行
If iPosition = 7 Then
Response.Write vbTab & "</TR>" & vbCrLf
iPosition = 0
End If
iCurrent = iCurrent + 1
iPosition = iPosition + 1
Loop
' 如果一個月不是以周六結束則加上相應的空單元.
If iPosition <> 1 Then
Do While iPosition <= 7
Response.Write vbTab & vbTab & "<TD></TD>" & vbCrLf
iPosition = iPosition + 1
Loop
Response.Write vbTab & "</TR>" & vbCrLf
End If
%>
</table>
<table width="150" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="5"> </td>
</tr>
</table></td>
</tr>
</table>
❷ 徵求簡單的日歷記事本java源代碼
import java.awt.*;
import java.awt.event.*;
import java.io.*;
public class Note extends Frame implements ActionListener{
private Menu filemenu = new Menu("文件");
private Menu editmenu = new Menu("編輯");
private Menu formatmenu = new Menu("格式");
private Menu helpmenu = new Menu("幫助");
private Menu lookmenu = new Menu("查看");
private MenuItem filenew = new MenuItem("新建");
private MenuItem fileopen = new MenuItem("打開...");
private MenuItem filesave = new MenuItem("保存");
private MenuItem fileexit = new MenuItem("退出");
private MenuItem filesaveas = new MenuItem("另存為...");
private MenuItem cut = new MenuItem("剪切");
private MenuItem = new MenuItem("復制");
private MenuItem paste = new MenuItem("粘貼");
private MenuItem allselect = new MenuItem("全選");
private MenuItem delete = new MenuItem("刪除");
private MenuItem font = new MenuItem("字體...");
private MenuItem statusbar = new MenuItem("狀態欄");
private MenuItem help = new MenuItem("幫助...");
private TextArea text = new TextArea();
private String filename="";//用來記錄文件地址和文件名
private String pasteplate;//剪切板
private class WindowCloser extends WindowAdapter
{
public void windowClosing(WindowEvent e)
{System.exit(0);}
}
public Note(String title)
{
super(title);
//添加文件菜單項
filemenu.add(filenew);
filemenu.add(fileopen);
filemenu.add(filesave);
filemenu.add(filesaveas);
filemenu.addSeparator();
filemenu.add(fileexit);
//添加編輯菜單項
editmenu.add(cut);
editmenu.add();
editmenu.add(paste);
editmenu.add(allselect);
editmenu.add(delete);
//添加格式菜單項
formatmenu.add(font);
//添加查看菜單項
lookmenu.add(statusbar);
//添加幫助菜單項
helpmenu.add(help);
MenuBar menu = new MenuBar();
menu.add(filemenu);
menu.add(editmenu);
menu.add(formatmenu);
menu.add(lookmenu);
menu.add(helpmenu);
setMenuBar(menu);
setLayout(new BorderLayout());
add("Center",text);
text.setEditable(true);
setSize(800,500);
❸ 求 網頁日歷代碼
這個網站上有源代碼,你可以先將它拷下來存在一個文本文件,然後將後綴改成.HTML,而後點擊這個HTML就可以運行了,不過彈出的網頁要點擊IE上面的黃色的東西,讓IE允許執行JAVASCRIPT腳本,才能看見!如果看不到的話你就發一個EMAIL過來
❹ 求C#語言編寫的日歷程序,並帶有提醒功能,可以自己設置重要事件。
jquery
❺ 請問您有日歷日程,日程添加到資料庫的源代碼嗎
我想你的問題可能是如何將日期格式的數據存儲到資料庫,
我可以給你一個思路:
日歷日程一般的表達方式:
起始日期1、結束日期1,事件內容1...;
起始日期2、結束日期2,事件內容2...;
... ...
一般日期表達方式有:字元串、長整數、日期時間格式
具體的資料庫操作就是用一條sql語句添加一條數據記錄,可以多次添加,也可以一次添加多條。
添加記錄的SQL語句為insert.語法大同小異。
使用不同的編程語言,源代碼的差別很大
❻ JS日歷代碼求助
雖然我調試不了。但是試下看看成不成(
<script type="text/javascript">
funtion PopCalendar()
{
var txbox=window.document.getElementById("selectdate");
txbox.select();
fPopCalendar(txbox,txbox,txbox);
}
</script>
<input id="Button1" type="button" onclick="PopCalendar();" />
❼ 急需日歷記事本JAVA源代碼
能留下郵箱嗎?給你發過去
❽ 網上很多php日歷的源碼,但是我想做的是把日歷嵌入我的頁面,然後能夠點擊某一日後檢索出改日的信息記錄,
vbfbn
❾ 求C語言編日歷源代碼的詳細說明
/* 稍微改了下對齊格式,加了注釋 */
/*
1、閏年的演算法:
如果某年能被4整除但不能被100整除,
或者能被400整除,
則該年是閏年.
用表達式表示就是
(year %4 == 0 && year%100 != 0) || (year%400 == 0)
2、計算某一天是星期幾:
已知1900年的1月1號為星期一,
然後就可以用某一天和1900年的1月1號相差的天數對7取余來求星期,
本題是用的公元1年的1月1號作為基準
*/
#include <stdio.h>
#include<conio.h>
#include<stdlib.h>
int IsLeapYear(int); //函數定義
void main()
{
int i;
int day;
int year;
int temp;
int temp_i;
long int Year_days = 0;
int Year_Start = 1;
int Per_Year_Days;
int month_day[]={31,28,31,30,31,30,31,31,30,31,30,31,29};
printf("Please enter the year: ");
scanf("%d",&year); //輸入年份
while(Year_Start < year) //從公元1年開始執行while循環, 該年的一月一號為星期一
{
if( IsLeapYear( Year_Start ) )
Per_Year_Days = 366; //如果是閏年, 則一年有366天
else
Per_Year_Days = 365; //如果不是閏年, 則一年有365天
Year_days = Year_days + Per_Year_Days; //Year_days為從公元1年到輸入年份的前一年的天數的總和
Year_Start++;
}
for( temp = 1; temp <=12; temp++ ) //temp從1到12, 對應一年內12個月
{
switch( temp ) //用switch語句將temp和12個月對應起來
{
case 1:
printf(" January(%d)\n",year); //一月
break;
case 2:
printf(" February(%d)\n",year); //二月
break;
case 3:
printf(" March(%d)\n",year); //三月
break;
case 4:
printf(" April(%d)\n",year); //四月
break;
case 5:
printf(" May(%d)\n",year); //五月
break;
case 6:
printf(" June(%d)\n",year); //六月
break;
case 7:
printf(" July(%d)\n",year); //七月
break;
case 8:
printf(" August(%d)\n",year); //八月
break;
case 9:
printf(" September(%d)\n",year); //九月
break;
case 10:
printf(" October(%d)\n",year); //十月
break;
case 11:
printf(" November(%d)\n",year); //十一月
break;
case 12:
printf(" December(%d)\n",year); //十二月
break;
}
i = Year_days % 7; //每個星期有7天, 故用每年的天數對7取余
printf("Mon\tTue\tWed\tThu\tFri\tSat\tSun\n");
if( i != 0 ) //如果余數不為零
for( temp_i = 0; temp_i < i; temp_i++)
printf("\t"); //則列印空格(這里用\t代替空格, 更加美觀), 空格數為i
day = 1; //初始化day為1, 為下面的while循環做准備
if( IsLeapYear(year) && temp == 2) //如果輸入的年份是閏年, 並且月份為2
while( day <= month_day[12] ) //day為一循環變數, 取值為1-365(閏年的話為1-366)
{
if( day >1 ) //如果天數大於一
if( Year_days % 7 == 0 ) //如果是星期日, 則換行
printf("\n");
if( day >= 10 )
printf("%d\t",day); //列印天數+空格
else
printf("%d\t",day);
Year_days++;
day++;
}
else //如果不滿足"輸入的年份是閏年, 並且月份為2"
while (day <= month_day[temp-1])
{
if( day > 1 )
if( Year_days % 7 == 0 )
printf("\n");
if( day >=10 )
printf("%d\t",day);
else
printf("%d\t",day);
Year_days++;
day++;
}
printf("\n");
if( getch() == 'q' ) //如果輸入為q, 則退出程序
exit(0);
}
getch(); //每按一次鍵, 列印一個月份
}
int IsLeapYear( int year )
{
//判斷是否是閏年, 是則返回1, 否則返回0
if ((year %4 == 0) && (year % 100 != 0) ||
(year % 400 == 0) )
return 1;
else
return 0;
}