仓酷云

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

[学习教程] ASP编程:asp制造的日过程序

[复制链接]
只想知道 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:06:02 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

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

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

x
ASP在国内异常流行,因为国内大多使用的是盗版的Windows和盗版的SQLServer,而ASP+COM+SQLServer实际上也是一种不错的搭配,其性能也不输于PHP+MYSQL,特别是Windows系统和SQLServer都有图形界面,比APACHE和MYSQL易于维护,因此对于不重视知识产权的国家来说也是一种不错的选择。纯ASP打造的日过程序,可自行丑化,这里仅供应最复杂的CSS款式。。。
<style>
body{font-size:12px;margin:20px0020px;padding:0}
tr,td{text-align:center;}
</style>
<%
=================================
申明:日历文件
=================================
掏出对应的年代博客日记数据
=======================
Ryear=CInt(request.querystring("year"))
Rmonth=CInt(request.querystring("month"))
IfRyear=0OrRyear=NULLThenRyear=year(now)
IfRmonth=0OrRmonth=NULLThenRmonth=month(now)
nowtime=Ryear&"-"&Rmonth&"-1"失掉本月第一天
nowyear=year(nowtime)年份
nowmonth=month(nowtime)月份
nowweekday=weekday(nowtime)-1以后星期
猎取2月天数
febdays=28
Ifnowyear/4=0Thenfebdays=29
猎取本月天数
Ifnowmonth=1then
monthdays=31
ElseIfnowmonth=2Then
monthdays=febdays
ElseIfnowmonth=3Then
monthdays=31
ElseIfnowmonth=4Then
monthdays=30
ElseIfnowmonth=5Then
monthdays=31
ElseIfnowmonth=6Then
monthdays=30
ElseIfnowmonth=7Then
monthdays=31
ElseIfnowmonth=8Then
monthdays=31
ElseIfnowmonth=9Then
monthdays=30
ElseIfnowmonth=10Then
monthdays=31
ElseIfnowmonth=11Then
monthdays=30
Else
monthdays=31
EndIf
calendar="<ahref=calendar.asp?year="&nowyear-1&"&month="&nowmonth&"><<</a>"
willshowmonthmonth=nowmonth
Ifwillshowmonthmonth-1<=0Thenwillshowmonthmonth=2
calendar=calendar&"<ahref=calendar.asp?year="&nowyear&"&month="&willshowmonthmonth-1&"><</a>"
Ifwillshowmonthmonth+1>12Thenwillshowmonthmonth=11
calendar=calendar&"<ahref=calendar.asp?year="&nowyear&"&month="&willshowmonthmonth+1&">></a>"
calendar=calendar&"<ahref=calendar.asp?year="&nowyear+1&"&month="&nowmonth&">>></a>"
calendar=calendar&"<tablebgcolor=#000000cellspacing=1width=200><trbgcolor=#ffffff><tdcolspan=7>"&nowyear&"-"&nowmonth&"-"&day(now)&"</td></tr>"&VBCRLF
calendar=calendar&"<trbgcolor=#ffffff>"&VBCRLF
calendar=calendar&"<td>日</td>"&VBCRLF
calendar=calendar&"<td>一</td>"&VBCRLF
calendar=calendar&"<td>二</td>"&VBCRLF
calendar=calendar&"<td>三</td>"&VBCRLF
calendar=calendar&"<td>四</td>"&VBCRLF
calendar=calendar&"<td>五</td>"&VBCRLF
calendar=calendar&"<td>六</td>"&VBCRLF
calendar=calendar&"</tr>"&VBCRLF
calendar=calendar&VBCRLF&"<trbgcolor=#ffffff>"&VBCRLF
把后面的空缺增补出来
nowmonthfirstiweekday=weekday(nowyear&"-"&nowmonth&"-1")-2本月第一天的礼拜
Fori=0Tonowmonthfirstiweekday
calendar=calendar&"<tdbgcolor=#efefef></td>"&VBCRLF
Next
入手下手轮回写日期
t=1
Fori=1Tomonthdays
Ifyear(now)=year(nowyear&"-"&nowmonth&"-"&i)andday(now)=day(nowyear&"-"&nowmonth&"-"&i)Then高亮显现昔日

calendar=calendar&"<tdbgcolor=#cccccc><ahref=>"&i&"</a></td>"&VBCRLF
Else
calendar=calendar&"<td>"&i&"</td>"&VBCRLF
EndIf

Ifweekday(nowyear&"-"&nowmonth&"-"&i)=7Then
t=t+1
calendar=calendar&"</tr><trbgcolor=#ffffff>"&VBCRLF
Endif
Next
Fori=1To(7*t-(nowmonthfirstiweekday+1+monthdays))
calendar=calendar&"<tdbgcolor=#ffffff></td>"&VBCRLF
Next
calendar=calendar&VBCRLF&"</tr>"
calendar=calendar&"</table>"&VBCRLF
Response.Writecalendar
%>
写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了.另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们)
admin 该用户已被删除
沙发
发表于 2015-1-18 07:35:00 | 只看该作者
如何更好的使自己的工具看上去很不错等等。其实这些都不是问题的实质,我们可以在实践中不断提升自己,不断充实自己。
金色的骷髅 该用户已被删除
板凳
发表于 2015-1-21 13:51:12 | 只看该作者
Response:从字面上讲是“响应”,因此这个是服务端向客户端发送东西的,例如Response.Write
若相依 该用户已被删除
地板
发表于 2015-1-30 19:40:35 | 只看该作者
掌握asp的特性而且一定要知道为什么。
精灵巫婆 该用户已被删除
5#
发表于 2015-2-6 15:30:18 | 只看该作者
ASP.Net和ASP的最大区别在于编程思维的转换,而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程,而那些脚本语言属于弱类型、面向结构的编程语言,而非面向对象,这就明显产生以下几个问题:
蒙在股里 该用户已被删除
6#
发表于 2015-2-16 21:37:39 | 只看该作者
Session:这个存储跟客户端会话过程的数据,默认20分钟失效
飘灵儿 该用户已被删除
7#
发表于 2015-3-5 10:04:39 | 只看该作者
我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页,这其中就用到了ASP,我想它的作用是可想而知的。
海妖 该用户已被删除
8#
发表于 2015-3-12 03:41:19 | 只看该作者
Server:这个表示的服务器,操作服务器的一些东西使用这个,如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件
若天明 该用户已被删除
9#
发表于 2015-3-19 17:57:36 | 只看该作者
从事这个行业,那么你可以学ASP语言,简单快速上手,熟练dreamweav排版,写asp代码,熟练photoshop处理图片,打好基础就行了
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2025-1-10 03:28

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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