色婷婷5月,成人高清一区,成人免费在线

asp日歷代碼

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

演示效果

以下為詳細(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è)月的起始日期不是周日的話(huà)就加空的單元. 
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

' 如果滿(mǎn)一周的話(huà)表格就另起一行 
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)站的企業(yè)站自定義功能完成。; 旅行社手機(jī)網(wǎng)站模板4; 一個(gè)利用select下拉選擇框進(jìn)行變色的網(wǎng)頁(yè)效果; 深圳市假日通國(guó)際旅行社有限公司; 購(gòu)買(mǎi)系統(tǒng)多久可以安裝？; windows xp 安裝IIS，設(shè)置IIS。; 深山行者v1.0 PSD 源文件下載

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

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

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

呢稱(chē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)。

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

更多>>同類(lèi)信息: 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ī)抽取信息: 利用正則替換生成html，經(jīng)典的，可以用數(shù)組進(jìn)行替換; 生成隨機(jī)字符串的函數(shù); div中設(shè)置文字垂直居中; 如何提高網(wǎng)站的PR值; 純div+css制作的彈出菜單-05; 旅行社手機(jī)網(wǎng)站模板2

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

絕對(duì)定位 html 2.0 相冊(cè) 市留言查找左右網(wǎng)站絕對(duì) 動(dòng)態(tài) outerHTML 邊框 tab DW 像素 exe 經(jīng)典的右鍵復(fù)制 box 萬(wàn)年歷插件旅游 em 偽類(lèi) 操作電腦等高 png 綠色彈窗面板命名 163 文件大小 javascri div 做標(biāo) cookies 百度中英風(fēng)格二級(jí) 斜線自適應(yīng) Dreamweaver 下載搜索引擎縮放

能看的av_午夜黄色av_在线观看国产视频_天天爱综合_国产精品亚洲成在人线_日韩一

asp日歷代碼