欧美精品国产精品,日本女优在线观看,人人看人人射

asp日歷代碼

深山行者個(gè)人網(wǎng)站 2009/12/22 14:07:45 深山行者字體:大中小瀏覽 14194

演示效果

以下為詳細(xì)代碼

<html> 
<head> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> 
<link  rel="schema.DC" /> 
<title>asp日歷代碼</title 
></head> 
<body bgcolor="#FFFFFF"> 
<% 
' 要調(diào)用的函數(shù)聲明 
'根據(jù)年份及月份得到每月的總天數(shù) 
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 
'得到一個(gè)月開(kāi)始的日期. 
Function GetWeekdayMonthStartsOn(dAnyDayInTheMonth) 
Dim dTemp 
dTemp = DateAdd("d", -(Day(dAnyDayInTheMonth) - 1), dAnyDayInTheMonth) 
GetWeekdayMonthStartsOn = WeekDay(dTemp) 
End Function 
'得到當(dāng)前一個(gè)月的上一個(gè)月. 
Function SubtractOneMonth(dDate) 
SubtractOneMonth = DateAdd("m", -1, dDate) 
End Function 
'得到當(dāng)前一個(gè)月的下一個(gè)月. 
Function AddOneMonth(dDate) 
AddOneMonth = DateAdd("m", 1, dDate) 
End Function 
' 函數(shù)聲明結(jié)束

Dim dDate ' 日歷顯示的日期 
Dim iDOW ' 每一月開(kāi)始的日期 
Dim iCurrent ' 當(dāng)前日期 
Dim iPosition ' 表格中的當(dāng)前位置

' 得到選擇的日期并檢查日期的合法性 
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 "您所選擇的日期格式不正確，系統(tǒng)會(huì)使用當(dāng)前日期.<BR><BR>" 
End If

End If 
End If

'得到日期后我們先得到這個(gè)月的天數(shù)及這個(gè)月的起始日期. 
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> 
<% 
' 如果這個(gè)月的起始日期不是周日的話就加空的單元. 
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

' 繪制這個(gè)月的日歷 
iCurrent = 1 
iPosition = iDOW 
Do While iCurrent <= iDIM 
' 如果是一行的開(kāi)頭就使用 TR 標(biāo)記 
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

' 如果一個(gè)月不是以周六結(jié)束則加上相應(yīng)的空單元. 
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>

前一頁(yè):ASP漢字轉(zhuǎn)拼音，支持自定義特殊詞語(yǔ)

后一頁(yè):asp 當(dāng)日訪問(wèn)量,全部訪問(wèn)量,當(dāng)前在線人數(shù)統(tǒng)計(jì)

相關(guān)閱讀: 昆山旅游網(wǎng); 萬(wàn)圣節(jié)留言板模板; 東莞理工班徽網(wǎng)絡(luò)在線投票; 簡(jiǎn)單的圓角實(shí)現(xiàn)方案; 深山行者留言系統(tǒng)V2.3; 深山旅行社管理系統(tǒng)免費(fèi)版 V2.3; 取得鼠標(biāo)所在位置的對(duì)象; asp截取字符串：根據(jù)右邊第一個(gè)點(diǎn)(.)去掉擴(kuò)展名

共有0條關(guān)于《asp日歷代碼》的評(píng)論: 發(fā)表評(píng)論

正在加載評(píng)論......

返回頂部發(fā)表評(píng)論

呢稱:
表情:
內(nèi) 容:	評(píng)論內(nèi)容:不能超過(guò) 1000 字,需審核,請(qǐng)自覺(jué)遵守互聯(lián)網(wǎng)相關(guān)政策法規(guī)。
驗(yàn)證碼:

網(wǎng)友評(píng)論聲明,請(qǐng)自覺(jué)遵守互聯(lián)網(wǎng)相關(guān)政策法規(guī)。

您發(fā)布的評(píng)論即表示同意遵守以下條款:
一、不得利用本站危害國(guó)家安全、泄露國(guó)家秘密,不得侵犯國(guó)家、社會(huì)、集體和公民的合法權(quán)益;
二、不得發(fā)布國(guó)家法律、法規(guī)明令禁止的內(nèi)容;互相尊重,對(duì)自己在本站的言論和行為負(fù)責(zé);
三、本站對(duì)您所發(fā)布內(nèi)容擁有處置權(quán)。

更多信息>>欄目類別選擇: 百度小程序開(kāi)發(fā); 微信小程序開(kāi)發(fā); 微信公眾號(hào)開(kāi)發(fā); uni-app; asp函數(shù)庫(kù); ASP; DIV+CSS; HTML; python

更多>>同類信息: ASP中Utf-8與Gb2312編碼轉(zhuǎn)換亂碼問(wèn)題的解決方法頁(yè)面編碼聲明; asp顯示隨機(jī)密碼; 通過(guò)阿里云服務(wù)接口獲得ip地址詳細(xì)信息; iis點(diǎn)開(kāi)后任務(wù)欄上有顯示，但是窗口看不到的解決辦法; RSA加密解密插件; 微軟Encoder加密解密函數(shù)

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

更多>>隨機(jī)抽取信息: 符合標(biāo)準(zhǔn)的正常工作的對(duì)聯(lián)廣告(2); 有利于搜索引擎的一些常用的CSS命名規(guī)則; Dreamweaver在onLoad運(yùn)行_onOpen.htm時(shí),發(fā)生了以下javascript錯(cuò)誤; 四川省中國(guó)青年旅行社有限公司高新分社; 關(guān)于深山旅行社演示網(wǎng)站一些錯(cuò)誤; asp計(jì)算器

更多標(biāo)簽熱門(mén)標(biāo)簽

學(xué)習(xí) 代碼 css 時(shí)鐘網(wǎng)頁(yè) 腳本 IE8 標(biāo)語(yǔ) 強(qiáng)度縮放 IP 快捷鍵站長(zhǎng) 建立日期深山v1.0旅行社網(wǎng)站管理系統(tǒng) 設(shè)為首頁(yè) 數(shù)據(jù)庫(kù) 留言板驗(yàn)證碼對(duì)話框關(guān)鍵詞重復(fù) 收縮 link 變色 base ie6 自動(dòng)隱藏 Javascript實(shí)現(xiàn)CSS代碼高亮顯示1 變化判斷記錄 FSO 字節(jié)數(shù) email CAD 項(xiàng)目經(jīng)典陰影效果右擊失效 csss 2.0 插件首頁(yè) 圖片上傳 cpu css 文字 windows 縮小上一頁(yè)

国产免费av片在线观看-国产免费av观看-国产免费av电影-国产免费a-四虎网站在线观看-四虎网站在线

asp日歷代碼