chinese女烈真实刑讯11,男女互插小说,免费国产怡红院在线观看

asp日歷代碼

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

演示效果

以下為詳細代碼

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

相關閱讀: CSS關于box（盒模式）的一系列問題詳解; asp數組隨機排序; 網站策劃：網站欄目和頁面的策劃; 用ASP對網頁進行限制性的訪問; css優先級的例子; ASP連接各種數據庫的方法; asp利用sina提供的ip庫端口來獲得當前IP所有的地區，所在國，所在省，所在市，在線解析json; CSS的十八般技巧

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

更多>>隨機抽取信息: 一個非常不錯的文字的提示; asp利用XMLHTTP獲取xml數據方法; ASP利用fso讀取文件夾里所有文件的名字; 巧用ASP技術保護DHTML源代碼; 另外一種符合web2.0的鏈接打開方式--利用base打開鏈接; 利div+css做的柱狀圖，代碼超級簡潔

更多標簽熱門標簽

間隔樣式調色板滑輪我想你單選貨幣 exe 中英 border px Excel csss 復制 div的高度列表翻轉下載建立日期 display 浮動 onmouserout 柱狀 dt RegExp 告方法 adobe 蜘蛛關閉拼音注冊表透明十字防止控件上一頁第幾樓 vista 層路徑按鈕 JavaScript實現文本框提示效果收縮展開鏈接樣式顏色 pr 浮動對象逗號

伦理片hd-伦理片 在线播放-伦理片 在线-伦理免费在线观看-综合图片区-综合婷婷

asp日歷代碼

伦理片hd-伦理片在线播放-伦理片在线-伦理免费在线观看-综合图片区-综合婷婷