亚洲欧洲日本精品,蜜桃视频成人在线观看,538在线视频观看

asp日歷代碼

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

演示效果

以下為詳細代碼

<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 當日訪問量,全部訪問量,當前在線人數統計

相關閱讀: 大紅袍形象設計暨旅游商品設計大賽在線投票評選; windows顏色選擇框; div+css中文字居于底部的解決方法與代碼; 綿陽市康輝國際旅行社有限責任公司; document對象詳解; 怎樣增加網站外鏈接和注意事項; Instagram 廣告投放操作與技巧; 一個可以選擇變化背景色的小程序

共有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還有其它的嗎

更多>>隨機抽取信息: 樂旅行; 網站終于在計劃時間內完成了; 東莞理工班徽網絡在線投票; httpd.ini中的RewriteRule、RewriteCond規則了解以有二級域名解析實例; 振輝消音器; css解決中英混合鏈接下劃線不對齊問題

更多標簽熱門標簽

故事 web 2.0 快捷網站地圖 html maryabbsby 快捷鍵方法硬件禁止強度 ie6 email xml 首字母管理系統 Session 貨幣 rss word-break 商城復制 mop button div 文本框我想你 VBScript css 透明增高 title onmouserout 省略彩色千位層結果工作室 letter-spacing 策劃 png FireFox openwin 頂部十字加密浮動對象站長 web2.0 錨點

隔壁人妻偷人bd中字_特黄特黄一级片_国产午夜大地久久_污色网站在线观看_a天堂资源在线观看_精品日韩久久久_欧美日韩福利在线_欧美日韩一区二区在线免费观看_欧美大尺度做爰床戏_国产情侣av自拍

asp日歷代碼