asp日歷日程代碼_ASP+JS日歷源代碼

❶ 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>

❷ asp獲取日歷形式的時間

你說的是客戶端的輸入，跟ASP服務端沒關系，這個功能用javascript實現的，但代碼很復雜的，用控制項應該更方便點。jQuery_calendar 這個jQuery插件就可實現你要的功能。基於jQuery的日期插件也很多。你google一下 jQuery calendar 這個關鍵字會有很多的，希望你能找到你所要的。

❸ 找了一個輸入日歷的語句，如何嵌入到ASP程序中調用，請教

即代碼如下，在form中的添加action即提交地址的屬性，然後添加用戶輸入框和提交按鈕。代碼如下
。。。。。。。。。}
</SCRIPT>
</HEAD>

<BODY onclick="hiddenCal()">
<form name="form22" method="post" action="search.asp">
開始日期：<INPUT TYPE="TEXT" name="stadate" ONCLICK="showCalendar(this);this.blur();" class="boxinput" onmouseout="calshow=false"/>
結束日期：<INPUT TYPE="TEXT" name="endstate" ONCLICK="showCalendar(this);this.blur();" class="boxinput" onmouseout="calshow=false"/>
<div id="calendar" style="position:absolute;height:140px;width:160px;display:none;border:1px inset #003399;" onmouseover="calshow=true" onmouseout="calshow=false"/>
<input name="stype" type="radio" value="yhxx" > 用戶信息

<input type="submit" name="submit" value="查詢">
</form>
</BODY>
</HTML>

------
search.asp
--- 取得用戶信息和起止日期
<%
stadate = Request("stadate")
endstate = Request("endstate")
stype = Request("stype")

%>

❹ 您好,非常喜歡你做的日程日歷控制項http://.baidu.com/question/233798813.html 能否給予代碼參考

cs代碼==========================================
using System;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Text;
using System.Collections.Generic;
using System.Data;

using NaLong.Model;
using NaLong.DAL;
using NaLong.Web;

/// <summary>
/// 寫工作報告頁面
/// </summary>
public partial class Diary : System.Web.UI.Page
{
protected void Page_Load(object sender, EventArgs e)
{
//btnSubmit.Attributes.Add("onclick", "if (typeof(MyObject) != \"undefined\"){MyObject.UpdateEditorFormValue(); return true;}else{return true;}");

if (!Page.IsPostBack)
{
StartDate = new DateTime(Calendar1.TodaysDate.Year, Calendar1.TodaysDate.Month, 1);
GetCurMonthDiarys();
}
}

#region 屬性

//操作類型 -1:創建 !-1:編輯
private int Id
{
get { return (int)ViewState["Id"]; }
set { ViewState["Id"] = value; }
}

//當前編輯日期
private DateTime EditDate
{
get { return (DateTime)ViewState["EditDate"]; }
set { ViewState["EditDate"] = value; }
}

/// <summary>
/// 當前月報告列表
/// </summary>
private IDictionary<DateTime, string> DiaryList
{
get { return (IDictionary<DateTime, string>)ViewState["DiaryList"]; }
set { ViewState["DiaryList"] = value; }
}

//當前月的開始日期
private DateTime StartDate
{
get { return (DateTime)ViewState["StartDate"]; }
set { ViewState["StartDate"] = value; }
}

/// <summary>
/// 當前登錄用戶的姓名
/// </summary>
protected string Name
{
get
{
User user = Session["user"] as User;
return user.Name;
}
}

#endregion

//獲取當前月報告列表保存到viewState
private void GetCurMonthDiarys()
{
User user = Session["user"] as User;
DiaryList = DiaryService.GetByMonth(StartDate, StartDate.AddMonths(1), user.Id);
}

protected void Calendar1_DayRender(object sender, DayRenderEventArgs e)
{
if (e.Day.IsOtherMonth)
{
e.Cell.Controls.Clear();
}
else
{
StringBuilder sb = new StringBuilder();
sb.AppendFormat("<a href={0}>", e.SelectUrl);
sb.Append(SetCellAttribute(e.Cell, e.Day));

if (DiaryList.ContainsKey(e.Day.Date))
{
sb.AppendFormat("<p>{0}</p>", DiaryList[e.Day.Date]);
}

sb.Append("</a>");
e.Cell.Text = sb.ToString();
}
}

//設置格子樣式和腳本
private string SetCellAttribute(TableCell cell, CalendarDay date)
{
string div = string.Empty;
if (date.IsToday) //今天日期字體加粗背景灰色,整個cell背景黃色
{
div = string.Format("<div class='today'>{0}</div>", date.Date.Day);
cell.Style.Add(HtmlTextWriterStyle.BackgroundColor, "#FFFFCC");
}
else if (date.IsWeekend) //周末
{
div = string.Format("<div class='weekend'>{0}</div>", date.Date.Day);
}
else//平時
{
div = string.Format("<div class='date'>{0}</div>", date.Date.Day);
}

cell.Attributes.Add("onmouseover", "color=this.style.backgroundColor;this.style.backgroundColor='#FFFFCC'");
cell.Attributes.Add("onmouseout", "this.style.backgroundColor=color");
return div;
}

protected void Calendar1_SelectionChanged(object sender, EventArgs e)
{
UpdatePanel2.Update();
GetDiary();
ModalPopupExtender1.Show();
}

private void GetDiary()
{
lblDate.Text = "於" + Calendar1.SelectedDate.ToLongDateString();

User user = Session["user"] as User;
NaLong.Model.Diary diary = DiaryService.Get(Calendar1.SelectedDate, user.Id);
//如果存在這條的則顯示信息
if (diary != null)
{
txtTitle.Text = diary.Title;
FCKeditor1.Value = diary.Content;
txtExperience.Text = diary.Experience;

if (diary.Comment.Length > 0) //顯示批示
{
trComment.Visible = true;
lblComment.Text = diary.Comment;
}

this.Id = diary.Id;
btnDelete.Visible = true;
}
else
{
txtTitle.Text = string.Empty;
FCKeditor1.Value = string.Empty;
txtExperience.Text = string.Empty;
trComment.Visible = false;

this.Id = -1;
btnDelete.Visible = false;
}

//同時點擊一個日期不會引發事件,所以這里每次要另指日期
this.EditDate = Calendar1.SelectedDate;
Calendar1.SelectedDate = Convert.ToDateTime("2000-1-1");
}

protected void Calendar1_VisibleMonthChanged(object sender, MonthChangedEventArgs e)
{
//觸發VisibleMonthChanged事件後可以獲得VisibleDate
StartDate = new DateTime(Calendar1.VisibleDate.Year, Calendar1.VisibleDate.Month, 1);
GetCurMonthDiarys();
}

protected void btnSubmit_Click(object sender, EventArgs e)
{
User user = Session["user"] as User;
NaLong.Model.Diary diary = this.Id == -1 ? new NaLong.Model.Diary() : DiaryService.GetT(this.Id);
diary.TaskId = -1;
diary.Title = txtTitle.Text.Trim();
diary.Content = FCKeditor1.Value;
diary.Experience = txtExperience.Text;
diary.Date = this.EditDate;
diary.SubmitDate = DateTime.Today;
diary.UserId = user.Id;

if (this.Id == -1)
{
DiaryService.Insert(diary);
}
else
{
DiaryService.Update(diary);
}

ModalPopupExtender1.Hide();
UpdatePanel1.Update();
GetCurMonthDiarys();
}

protected void btnDelete_Click(object sender, EventArgs e)
{
User user = Session["user"] as User;
DiaryService.Delete(this.EditDate, user.Id);
UpdatePanel1.Update();
GetCurMonthDiarys();
}

}

aspx頁面===============================================================
<%@ Page Language="C#" MasterPageFile="~/UserMaster.master" AutoEventWireup="true"
CodeFile="Diary.aspx.cs" Inherits="Diary" ValidateRequest="false" %>

<%@ Register Assembly="FredCK.FCKeditorV2" Namespace="FredCK.FCKeditorV2" TagPrefix="FCKeditorV2" %>
<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" runat="Server">

<script type="text/javascript" language="javascript">

// Some Class
function MyClass()
{
this.UpdateEditorFormValue = function(val)
{
for ( i = 0; i < parent.frames.length; ++i )
if( parent.frames[i].FCK )
{
parent.frames[i].FCK.UpdateLinkedField();
}
}
}
// instantiate the class
var MyObject = new MyClass();

function Submitting()
{
var title = document.getElementById("<%=txtTitle.ClientID %>");
if(title.value.length==0)
{
alert("請輸入標題!");
return false;
}

if (typeof(MyObject) != "undefined")
{
MyObject.UpdateEditorFormValue();
}

setTimeout("document.getElementById('<%=btnSubmit.ClientID %>').setAttribute('disabled','disabled')",1);
return true;
}
</script>

<h3 class="ptitle">
<span>工作報告管理</span>
</h3>
<p class="pextra viewdiary">
<a href="DiaryList.aspx">列表顯示方式</a>
</p>
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="ContentPlaceHolder2" runat="Server">
<asp:UpdatePanel ID="UpdatePanel1" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:Calendar ID="Calendar1" runat="server" CellPadding="0" Width="100%" OnSelectionChanged="Calendar1_SelectionChanged"
OnDayRender="Calendar1_DayRender" DayNameFormat="Full" FirstDayOfWeek="Monday"
NextMonthText=">>" PrevMonthText="<<" BorderWidth="0px"
OnVisibleMonthChanged="Calendar1_VisibleMonthChanged">
<TitleStyle CssClass="TitleStyle" />
<DayHeaderStyle CssClass="DayHeaderStyle" />
<OtherMonthDayStyle CssClass="OtherMonthDayStyle" />
<DayStyle CssClass="day" />
<WeekendDayStyle CssClass="day" />
</asp:Calendar>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel ID="UpdatePanel2" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:Panel ID="pnlDiary" runat="server" CssClass="modalPopup" Style="display: none;
width: 750px;">
<table>
<caption>
添加/編輯工作報告<input type="button" onclick="$find('popup').hide()" class="dialogclose" />
</caption>
<tr>
<th>
標題
</th>
<td>
<asp:TextBox ID="txtTitle" runat="server" Width="580px" ToolTip='請填寫當天工作的核心內容如:"今天去哪裡出差"'></asp:TextBox>
<asp:Label ID="lblDate" runat="server"></asp:Label>
</td>
</tr>
<tr>
<th>
內容
</th>
<td>
<FCKeditorV2:FCKeditor ID="FCKeditor1" runat="server" Height="300px" ToolbarSet="Simple"
ToolbarStartExpanded="false">
</FCKeditorV2:FCKeditor>
</td>
</tr>
<tr>
<th>
心得
</th>
<td>
<asp:TextBox ID="txtExperience" runat="server" Height="50px" Width="99%"
TextMode="MultiLine"></asp:TextBox>
</td>
</tr>
<tr runat="server" id="trComment">
<th>
批示
</th>
<td>
<asp:Label ID="lblComment" runat="server" Text=""></asp:Label>
</td>
</tr>
<tr class="footer">
<td colspan="2">
<asp:Button ID="btnSubmit" runat="server" Text="保存" CssClass="btn" OnClick="btnSubmit_Click"
OnClientClick="return Submitting()"/>

<asp:Button ID="btnDelete" runat="server" Text="刪除" CssClass="btn" Visible="false"
OnClick="btnDelete_Click" OnClientClick='return confirm("您確定要刪除該天的工作報告嗎?")' />
<input type="button" value="關閉" onclick="$find('popup').hide()" class="btn" />
</td>
</tr>
</table>
</asp:Panel>
<asp:HiddenField ID="HiddenField1" runat="server" />
<asp:ModalPopupExtender ID="ModalPopupExtender1" runat="server" PopupControlID="pnlDiary"
TargetControlID="HiddenField1" BackgroundCssClass="modalBackground" BehaviorID="popup">
</asp:ModalPopupExtender>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>

css樣式===================================
/****************** calendar ***********************/

/* 題頭月份 table*/
.TitleStyle td
{
background: #C3D9FF;
padding-left: 10px;
}

/* 星期 th*/
.DayHeaderStyle
{
background: #C3D9FF;
text-align: center;
height: 22px;
vertical-align: middle;
font-size: 11px;
line-height: 18px;
font-weight: normal;
}

/* 灰色日期 td*/
.OtherMonthDayStyle
{
border: 1px solid #CCDDEE;
background: #EDEDED;
}

/* 日期格式 */
.day
{
border: 1px solid #CCDDEE;
background: #fff;
height: 70px;
vertical-align: top;
}

.day a
{
text-decoration: none;
font-size: 13px;
display: block;
width: 100%;
height: 100%;
color: #5D5D5E;
}

/* 日期數字 */
.day a div
{
padding: 2px 4px;
text-align: right;
color: #000;
}

/* 日期內容 */
.day a p
{
font: 13px Arial, Helvetica, sans-serif;
text-align: left;
padding: 2px 1px;
line-height: 25px;
margin: 0px;
word-wrap: break-word;
word-break: break-all;
overflow: hidden;
cursor: pointer;
}

.day a .attendancep1
{
font-size: 14px;
text-align: center;
line-height: 22px;
}
.day a .bad
{
color: Red;
}
.day a .attendancep2
{
font-size: 15px;
text-align: center;
line-height: 45px;
}

/* 非周末 */
.day a .date
{
background: #E8EEF7;
}

/* 周末 */
.day a .weekend
{
background: #EFFCC6;
}

.day a .today
{
font-weight: bold;
background: #bbccdd;
}

❺ 用asp做個日歷的代碼該怎麼寫,誰知道,可以告訴我嗎,

<%
Sub Calendar()

Dim y, m, d
Dim i, j, n, c, w
Dim iEnd

' y, m, d 年月日
y = Year(Date())
m = Month(Date())
d = Day(Date())

' n 一年的天數
If y Mod 400 = 0 Or (y Mod 4 = 0 And y Mod 100 <> 0) Then
n = 366
Else
n = 365
End If

' c 當前月的天數
Select Case m
Case 1, 3, 5, 7, 8, 10, 12
c = 31
Case 2
If n = 366 Then
c = 29
Else
c = 28
End If
Case Else
c = 30
End Select

' w 當前月第一天是星期幾
w = CInt(Weekday(DateSerial(y, m, 1)))
iEnd = ((w+c-1)\7-CInt((w+c-1)\7<>(w+c-1)/7))*7

Response.Write "<table id=""calendar"">"
Response.Write "<tr><td class=""sunday"">日</td><td>一</td><td>二</td><td>三</td><td>四</td><td>五</td><td>六</td></tr>"
For i = 1 To iEnd
If i = 1 Then Response.Write "<tr>"
If i > w-1 And i < w+c Then
If i Mod 7 = 1 Then
Response.Write "<td class=""sunday"">"
Else
Response.Write "<td>"
End If
If i-w+1 = d Then
Response.Write "<span id=""today"" style=""font-weight:bold;"">" & i-w+1 & "</span>"
Else
Response.Write i-w+1
End If
Response.Write "</td>"
Else
Response.Write "<td></td>"
End If
If i Mod 7 = 0 And i <> iEnd Then Response.Write "</tr><tr>"
If i = iEnd Then Response.Write "</tr>"
Next
Response.Write "</table>"
End Sub
%>
<%Calendar()%>

❻ asp源碼，點擊日歷輸入，最好有完整樣本，謝謝。

給你個簡單的，不過不知是不是你要的

❼ 怎麼用ASP寫一個日歷的程序同時輸出access數據表中的數據到對應的日期

網上有關於日歷的JS代碼，將其插入到你的ASP網頁中，此時日歷會自動回獲取你當前的伺服器時間，答此時以ASP程序獲取當前服務時間並設立設立條件語句，首先要你的資料庫能獲取你設定的時間時間，當達到你設定的日期時間時，再以Response.Write("")來輸出資料庫的值久可以了。

❽ asp日歷急需

www.moon-soft.com/download/sort/46_1.htm
這有源碼～你可以自己設置
你是有自己的網站吧？

❾ 誰能發給我一個ASP自動生成日期的代碼

導航:首頁 > 編程語言 > asp日歷日程代碼

asp日歷日程代碼

與asp日歷日程代碼相關的資料

友情鏈接