国产精品一二区,久久精品,国产精品久久av

asp日歷代碼

深山行者個人網站 2009/12/22 14:07:45 深山行者字體:大中小瀏覽 14196

演示效果

以下為詳細代碼

<html> 
<head> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> 
<link  rel="schema.DC" /> 
<title>asp日歷代碼</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 當日訪問量,全部訪問量,當前在線人數統計

相關閱讀: 防網頁機器人隨處發帖; 旅行社網站模板默認風格13; 積分系統; asp中qequest讀取優先級順序（通過優化之后提高速度）; 商務會議系統; 購買系統可以免費提供修改服務嗎？; 振輝除氧器; 詳談CSS設計中import與link的區別所在

共有0條關于《asp日歷代碼》的評論: 發表評論

正在加載評論......

返回頂部發表評論

呢稱:
表情:
內容:	評論內容:不能超過 1000 字,需審核,請自覺遵守互聯網相關政策法規。
驗證碼:

網友評論聲明,請自覺遵守互聯網相關政策法規。

您發布的評論即表示同意遵守以下條款:
一、不得利用本站危害國家安全、泄露國家秘密,不得侵犯國家、社會、集體和公民的合法權益;
二、不得發布國家法律、法規明令禁止的內容;互相尊重,對自己在本站的言論和行為負責;
三、本站對您所發布內容擁有處置權。

更多信息>>欄目類別選擇: 百度小程序開發; 微信小程序開發; 微信公眾號開發; uni-app; asp函數庫; ASP; DIV+CSS; HTML; python

更多>>同類信息: ASP中Utf-8與Gb2312編碼轉換亂碼問題的解決方法頁面編碼聲明; asp顯示隨機密碼; 通過阿里云服務接口獲得ip地址詳細信息; iis點開后任務欄上有顯示，但是窗口看不到的解決辦法; RSA加密解密插件; 微軟Encoder加密解密函數

更多>>最新添加文章: dw里面查找替換使用正則刪除sqlserver里面的CONSTRAINT; Android移動端自動化測試：使用UIAutomatorViewer與Selenium定位元素; 抖音直播音掛載小雪花懂車帝小程序; javascript獲取瀏覽器指紋可以用來做投票; 火狐Mozilla Firefox出現：無法載入您的Firefox配置文件它可能已經丟失或是無法訪問問題解決集合處理辦法; 在Android、iOS、Windows、MacOS中微信小程序的文件存放路徑; python通過代碼修改pip下載源讓下載庫飛起; python里面requests.post返回的res.text還有其它的嗎

更多>>隨機抽取信息: excel中End(xlUp)取活動單元表的第一列最后一個有值的行號; 正則的常表達式; 仙美境健身館網站; 微信公眾號生成帶參數的二維碼asp源碼下載; css分頁放大效果; CSS教程:CSS兼容的技巧

更多標簽熱門標簽

lightbox 火狐 input 事務網易關于我們 mssql email script 愛國案例 javascri xhtml radio 收縮九宮格快捷 Java iis 上下左右憂化首頁規則簡易游覽器容器小偷選擇框漸隱色彩 jpg FSO DIV CSS做的透明菜單兼容IE、FF等數字文件大小圖片上傳創業框 ie7 hover 265 放大 JavaScript實現文本框提示效果翻轉固定自動隱藏 ctrl 深山行者V1.2旅行社網站管理系統源文件灰色

99亚洲_成人性视频免费网站_av在线播放网址_免费成人在线网站_亚洲综合婷婷_亚洲一区二区国产

asp日歷代碼