|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
缺乏可以共同遵循的行业标准,ASP还处在发展初期,大家对它的理解不同,如产品和服务标准,收费标准等,不利于行业的健康发展。控件1.UCCalendar.ascx
<%@controlLanguage="vb"AutoEventWireup="false"Codebehind="UCCalendar.aspx.vb"Inherits="WebApplication1.UCCalendar"%>
<FONTface="新明w">
<scriptlanguage="javascript">
functionCheckDate(o){
varStr=newString;
varStrEnd=newString;
Str=o.value;
if(Str!="")
{
if(chkformat(Str)==false)
{
o.focus();
}
}
}
functionchkformat(datestr)
{
varlthdatestr
lthdatestr=datestr.length;
vartmpy="";
vartmpm="";
vartmpd="";
//vardatestr;
varstatus;
status=0;
for(i=0;i<lthdatestr;i++){
if(datestr.charAt(i)==/){
status++;
}
if(status>2){
alert("日期e`");
returnfalse;
}
if((status==0)&&(datestr.charAt(i)!=/)){
tmpy=tmpy+datestr.charAt(i)
}
if((status==1)&&(datestr.charAt(i)!=/)){
tmpm=tmpm+datestr.charAt(i)
}
if((status==2)&&(datestr.charAt(i)!=/)){
tmpd=tmpd+datestr.charAt(i)
}
}
year=newString(tmpy);
month=newString(tmpm);
day=newString(tmpd)
//tempdate=newString(year+month+day);
//alert(tempdate);
if((tmpy.length!=4)||(tmpm.length>2)||(tmpd.length>2))
{
alert("日期e`");
//alert("date");
returnfalse;
}
if(!((1<=month)&&(12>=month)&&(31>=day)&&(1<=day)))
{
alert("日期e`");
returnfalse;
}
if(!((year%4)==0)&&(month==2)&&(day==29))
{
alert("日期e`");
returnfalse;
}
if((month<=7)&&((month%2)==0)&&(day>=31))
{
alert("日期e`");
returnfalse;
}
if((month>=8)&&((month%2)==1)&&(day>=31))
{
alert("日期e`");
returnfalse;
}
if((month==2)&&(day==30))
{
alert("日期e`");
returnfalse;
}
returntrue;
}
</script>
<divalign="center"><asp:textboxid="txtCalendar"onblur="CheckDate(this)"runat="server"Width="181px"></asp:textbox><asp:buttonid="btnCandelar"runat="server"Text="...."></asp:button><asp:calendarid="Calendar1"runat="server"Width="208px"Height="200px"BorderWidth="1px"BackColor="White"
ForeColor="#003399"Font-Size="8pt"Font-Names="Verdana"BorderColor="#3366CC"CellPadding="1"ShowGridLines="True">
<TodayDayStyleForeColor="White"BackColor="#99CCCC"></TodayDayStyle>
<SelectorStyleForeColor="#336666"BackColor="#99CCCC"></SelectorStyle>
<NextPrevStyleFont-Size="8pt"ForeColor="#CCCCFF"></NextPrevStyle>
<DayHeaderStyleHeight="1px"ForeColor="#336666"BackColor="#99CCCC"></DayHeaderStyle>
<SelectedDayStyleFont-Bold="True"ForeColor="#CCFF99"BackColor="#009999"></SelectedDayStyle>
<TitleStyleFont-Size="10pt"Font-Bold="True"Height="25px"BorderWidth="1px"ForeColor="#CCCCFF"
BorderStyle="Solid"BorderColor="#3366CC"BackColor="#003399"></TitleStyle>
<WeekendDayStyleBackColor="#CCCCFF"></WeekendDayStyle>
<OtherMonthDayStyleForeColor="#999999"></OtherMonthDayStyle>
</asp:calendar></div>
</FONT>
2.UCCalendar.ascx.vb
PublicClassUCCalendar
InheritsSystem.Web.UI.UserControl
#Region"WebFormO工具a生的程式a"
此WebFormO工具所需的呼唤。
<System.Diagnostics.DebuggerStepThrough()>PrivateSubInitializeComponent()
EndSub
ProtectedWithEventsCalendar1AsSystem.Web.UI.WebControls.Calendar
ProtectedWithEventstxtCalendarAsSystem.Web.UI.WebControls.TextBox</p>asp可以使用微软的activeX使得网页功能无比强大,不过安全性也较差,而且是基于的windows服务器,所以性能稳定性也一般 |
|