繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 用ASP开发WEB日期选择器
- ASP
- asp分页（自己整理的2个分页程序）
- ASP常用的系统配置函数
- 雨哲防采集策略之列表篇
- 雨哲浅谈关于防采集而不影响收录内容篇
- asp数据库连接函数
- ajax XMLHTTP Post Form时的表单乱码综合解决
- ASP注入详细命令40条
- 用ASP实现MSSQL用户密码破解
- ASP创建对象的两种方法比较
- ASP字符串转换为整形、双精度型、布尔
- ASP计算str2在str1中出现的次数
- asp采集抓取网上房产信息的代码
- ASP注册登陆实例代码
- ASP中使用FileSystemObject时提高性能的方法
- 分享一个好东东,动态Include文件 (Dynamic File Includes)
- 解决 JScript 中使用日期类型数据时出现类型错误的问题
- 在ASP里面创建GUID
- 在JScript中使用缓存技术的实际代码
- ASP javascript Application对象的Contents和StaticObjects做Cache的一些经验
- 海阳2006+功能中的潜水王
用ASP开发WEB日期选择器
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 193 ::
收藏到网摘: n/a
1、在文本框中让用户按规定好的日期格式直接输入。这种方法最简单，可是用户使用起来很麻烦，而且程序员还要在后台对输入的日期进行数据验证，所以显得很笨拙；
2、用下拉列表列出年份、月份、天数由用户选择输入。这种方法更麻烦，用户操作看似比上一种方便了，可是每一个日期输入都需要程序员在后台对年份、月份、天数一一循环列出，而且在列出前或用户输入后还是要对日期信息进行验证，所以这种方法也不可取；
3、用ActiveX日历控件，在前台输入。这种方法很方便，可是唯一缺点也是最致命的一个弱点：需要每个客户端都要装有ActiveX控件。
最近，笔者用ASP结合JavaScript，开发了这样一个模仿控件式的日期选择器。用户操作更直观、更方便；程序后台实现时可以在每次需要时很方便的调用，而不需要客户端安装任何程序。
在此，将源代码贡献出来与大家一起分享。
[原理]
使用页面通过打开定制窗口调用日期选择程序，并将使用页面内的FormName,FiledName元素属性传给日期选择程序。在日期选择程序中，用ASP在后台计算并显示出日历，用户选择后，将日期值再传回使用页面的Filed.value,最后自动关闭弹出窗口完成选择。
[源程序]
1、sample.htm (使用页面)
2、calendar.asp (日期选择器程序)
1、sample.htm
========================================================
<html>
<head>
<title>Calendar Sample</title>
</head>
<body>
<form method="POST" action="sample.htm" name="sample">
<b><font face="Arial">Sample</font></b><p>
<font face="Arial"><span style="font-size: 9pt; font-weight:
700">Date: </span>
</font><input type="text" name="date" size="10" readonly>
<a href="#SelectDate"
onClick="JavaScript:window.open('calendar.asp?form=sample&field=date'
,'','directorys=no,toolbar=no,status=no,menubar=no,scrollbars=no,resi
zable=no,width=190,height=140');">
<img border="0" src="/upload/tech/20091103/20091103101615_a8c88a0055f636e4a163a5e3d16adab7.gif"" width="24"
height="16"></a></p>
<p><input type="submit" value="submit" name="B1"></p>
</form>
</body>
</html>
===========================================================
2、calendar.asp
===========================================================
<%
'WEB Calendar
'By Chaiwei 2002-7-31
'--------------------------------
'月份名称定义
Dim Month_Name(12)
Month_Name(1) = "January"
Month_Name(2) = "February"
Month_Name(3) = "March"
Month_Name(4) = "April"
Month_Name(5) = "May"
Month_Name(6) = "June"
Month_Name(7) = "July"
Month_Name(8) = "August"
Month_Name(9) = "September"
Month_Name(10) = "October"
Month_Name(11) = "November"
Month_Name(12) = "December"
'年份处理,默认值为服务器当前年份
if request.querystring("year")<>"" then
Year_var=cint(request.querystring("year"))
else
Year_var=year(date())
end if
'上一年、下一年赋值
Previous_year=Year_var-1
Next_year=Year_var+1
'月份处理,默认值为服务器当前月份
if request.querystring("Month")<>"" then
Month_var=cint(request.querystring("Month"))
else
Month_var=month(date())
end if
'上一月、下一月赋值
if Month_var<=1 then
Next_month=Month_var+1
Previous_month=1
else
if Month_var>=12 then
Next_month=12
评论 (0) All
