⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 thecrange.aspx

📁 用VB实现
💻 ASPX
字号:

<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>选择日历范围</title>
</head>
	<script  runat="server">
		Sub myCalendar_SelectionChanged(sender As Object, e As System.EventArgs)
		  If myCalendar.SelectedDates.Count > 1 then 		
			  txtSDate.Text = myCalendar.SelectedDates(0)
			  txtEDate.Text = myCalendar.SelectedDates(6)
		  Else
		      txtSDate.Text = myCalendar.SelectedDate
			  txtEDate.Text = myCalendar.SelectedDate		  
		  End If
		End Sub
	</script>


<body>
<form runat="server">
  <div align="center">选择范围 :
    <asp:TextBox ID="txtSDate" runat="server" />     
    <asp:TextBox ID="txtEDate" runat="server" />     
    <p>&nbsp;</p>
    <asp:Calendar DayNameFormat="Short" FirstDayOfWeek="Sunday" ID="myCalendar" runat="server" SelectionMode="DayWeek" OnSelectionChanged="myCalendar_SelectionChanged"></asp:Calendar>
  </div>
</form>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -