仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 459|回复: 8
打印 上一主题 下一主题

[学习教程] ASP网页设计ASP完成的日历代码实例程序

[复制链接]
活着的死人 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:21:42 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
asp可以使用微软的activeX使得网页功能无比强大,不过安全性也较差,而且是基于的windows服务器,所以性能稳定性也一般程序|日历<style>
td{font-family:"宋体";font-size:9pt}
</style>
<bodybgcolor="eeeeee">
<tablewidth="180"cellpadding="0"cellspacing="1"bgcolor="dddddd"align=center>
<%
以下为ASP中经由过程该日历算法完成的详细代码

先判别是不是指定了一个年份和月份,没有则依据以后的年和月份显现
IfRequest("ReqDate")=""then
CurrentDate=Date
else
CurrentDate=Trim(Request("ReqDate"))
endif
pyear=year(CurrentDate)
pmonth=month(CurrentDate)

以下的代码天生日历显现的表格头内容
%>
<tralign="LEFT"bgcolor="#dddddd">
<tdwidth="14%"height="19"align="center">
<inputtype="button"value="<<"m",-1,CurrentDate)%>">
</td>
<tdcolspan="5"align="center">
<%=pyear%>年<%=pmonth%>月
</td>
<tdwidth="14%"align="center">
<inputtype="button"value=">>"m",1,CurrentDate)%>">
</td>
</tr>
<tralign="center"bgcolor="#CCCCCC">
<tdwidth="14%"height="19">日</td>
<tdwidth="14%">一</td>
<tdwidth="14%">二</td>
<tdwidth="14%">三</td>
<tdwidth="14%">四</td>
<tdwidth="14%">五</td>
<tdwidth="14%">六</td>
</tr>
<tralign=centerbgcolor=ffffffheight=19>
<%
因为ASP中没有猎取指定月共有几天的函数,因而我们必要经由过程其他算法来取得,算法实在很复杂,就是盘算一下要显现月份的1日至下个月的1日一共相差几天
fromDate=FormatDateTime(month(CurrentDate)&"/1/"&year(CurrentDate))
toDate=FormatDateTime(DateAdd("m",1,fromDate))
取得要显现月份的第一天为周几
nunmonthstart=weekday(fromDate)-1
取得要显现的1日至下个月的1日一共相差几天(月份一共有几天)
nunmonthend=DateDiff("d",fromDate,toDate)
判别显现日历必要用几行表格来显现(每行显现7天)
ifnunmonthstart+nunmonthend<36then
maxi=36
else
maxi=43
endif
轮回天生表格并显现
i=1
dowhilei<maxi
iv=i-nunmonthstart
ifi>nunmonthstartandi<=nunmonthend+nunmonthstartthen
假如为显现的是明天则用白色背景显现
ifiv=Day(now)andmonth(now)=pmonthandyear(now)=pyearthen
response.write("<tdalign=centerbgcolor=ffaaaa><ahref=#target=_blank>"&iv&"</a></td>")
else
response.write("<tdalign=center><ahref=#target=_blank>"&iv&"</a></td>")
endif
else
response.write("<td></td>")
endif

假如能被7整除(每行显现7个)则输入一个换行
ifimod7=0then
response.write("</tr><tralign=centerbgcolor=ffffffheight=19>")
endif
i=i+1
loop
%>
</table>
</body>结论:和PHP一样,ASP简单而易于维护,很适合小型网站应用,通过DCOM和MTS技术,ASP甚至还可以完成小规模的企业应用,但ASP的致命缺点就是不支持跨平台的系统,在大型项目开发和维护上非常困难。
再见西城 该用户已被删除
沙发
发表于 2015-1-18 20:54:17 | 只看该作者
多看多学多思。多看一些关于ASP的书籍,一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人,向同学老师多多学习,不论知识的大小;多思则是要将学到的知识灵活运用。
乐观 该用户已被删除
板凳
发表于 2015-1-23 13:37:44 来自手机 | 只看该作者
从事这个行业,那么你可以学ASP语言,简单快速上手,熟练dreamweav排版,写asp代码,熟练photoshop处理图片,打好基础就行了
爱飞 该用户已被删除
地板
发表于 2015-1-31 17:02:40 | 只看该作者
ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。  因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。
愤怒的大鸟 该用户已被删除
5#
发表于 2015-2-6 20:47:02 | 只看该作者
Request:从字面上讲就是“请求”,因此这个是处理客户端提交的东东的,例如Resuest.Form,Request.QueryString,或者干脆Request("变量名")
简单生活 该用户已被删除
6#
发表于 2015-2-18 17:11:06 | 只看该作者
Server:这个表示的服务器,操作服务器的一些东西使用这个,如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件
蒙在股里 该用户已被删除
7#
发表于 2015-3-6 08:54:33 | 只看该作者
我们必须明确一个大方向,不要只是停留在因为学而去学,我们应有方向应有目标.
灵魂腐蚀 该用户已被删除
8#
发表于 2015-3-12 22:54:52 | 只看该作者
如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:
老尸 该用户已被删除
9#
发表于 2015-3-20 05:12:24 | 只看该作者
作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-23 00:12

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表