★→ASP程序学习群:62655404 微信公众号开发
订阅本栏目 RSS您所在的位置: 深山工作室 > ASP学习 > 正文

纯asp根据当前日期计算出当前年份的属相

深山工作室 2019/9/18 22:33:05 深山工作室 字体:  浏览 7024 我要评论
需要定制网站程序、公众号程序、微信小程序可以联系:565449214或者加微信13961347334(备注:需要技术)
或者在处理一些技术问题时,有什么不懂的地方,随时可以加我QQ:565449214讨论技术或者加QQ群62655404讨论
纯asp根据当前日期计算出当前年份的属相
以下是asp根据当前日期的年份计算出相应年份的属相,以上是演示效果


<%
curTime = Now()
curYear = Year(curTime)

function ren_shuxiang(s_year)
sx_year = (((curYear - 4) Mod 60) Mod 12)
select case sx_year
case 0: sx_show="鼠"
case 1: sx_show="牛"
case 2: sx_show="虎"
case 3: sx_show="兔"
case 4: sx_show="龙"
case 5: sx_show="蛇"
case 6: sx_show="马"
case 7: sx_show="羊"
case 8: sx_show="猴"
case 9: sx_show="鸡"
case 10:sx_show="狗"
case 11:sx_show="猪"
end select
ren_shuxiang = sx_show
end function

response.write "现在时间:" & curTime & "<br>"
response.write "年份:" & curYear & "<br>"
response.write "属相:" & ren_shuxiang(curYear) & "<br>"
response.end
%>
相关阅读
( 2021/8/6 17:01:01 )uni-app开发表单input组件的一些规则说明自己预留使用
( 2021/7/28 10:35:24 )查询某个字符在字符串中出现的位置数组
( 2021/6/10 8:56:21 )百度小程序开发第一坑tcomponent自定义组件命名坑Compile san component failed. . [SAN ERROR] ROOT>swan-custom-component>view>千万不要用下划线作为自定义组件名
( 2021/6/8 23:24:05 )开始百度小程序开发需要准备工作
( 2021/5/26 14:13:02 )uni-app:使用uni.downloadFile下载word或pdf文件并保存到手机
( 2021/5/26 10:02:19 )小程序中利用addPhoneContact将联系人的信息添加到手机通讯录支持保存联系人头像
( 2021/5/11 19:12:56 )小程序打开pdf文件并保存到本地 支持远程pdf、word、xls表格文件打开
( 2021/5/11 18:58:19 )uni-app里面复制内容时保留换行利用正则替换br标签替换成回车换行符
共有0条关于《纯asp根据当前日期计算出当前年份的属相》的评论
发表评论
正在加载评论……
返回顶部发表评论
呢 称:
表 情:
内 容:
评论内容:不能超过 1000 字,需审核,请自觉遵守互联网相关政策法规。
验证码: 验证码 
深山工作室网友评论声明,请自觉遵守互联网相关政策法规。

您发布的评论即表示同意遵守以下条款:
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家、社会、集体和公民的合法权益;
二、不得发布国家法律、法规明令禁止的内容;互相尊重,对自己在本站的言论和行为负责;
三、本站对您所发布内容拥有处置权。

更多信息>>栏目类别选择
uni-app
rss学习
个人空间
网站设计
网站公告
下载
photoshop学习
ASP学习
DIV+CSS学习
SEO搜索引擎忧化
java学习
HTML学习
网站信息
网站类信息
更多>>同类信息
asp无限级调用分类显示
实现iis6与iis7环境下支持mp4视频随意拖动、预览播放、边下载边播放
做好的网站把http改成https申请SSL域名证书
ASP利用fso读取文件夹里所有文件的名字
asp实现获得当前文章的上一篇信息与下一篇信息功能及代码
asp导出内容到excel表并自定义命名后下载(非打开)
'禁止站外提交页面和数据
asp将中文汉字字符转为unicode编码(\u编码)与把unicode编码转为汉字
更多>>最新添加文章
uni-app开发表单input组件的一些规则说明自己预留使用
查询某个字符在字符串中出现的位置数组
百度小程序开发第一坑tcomponent自定义组件命名坑Compile san component failed. . [SAN ERROR] ROOT>swan-custom-component>view>千万不要用下划线作为自定义组件名
开始百度小程序开发需要准备工作
uni-app:使用uni.downloadFile下载word或pdf文件并保存到手机
小程序中利用addPhoneContact将联系人的信息添加到手机通讯录支持保存联系人头像
小程序打开pdf文件并保存到本地 支持远程pdf、word、xls表格文件打开
uni-app里面复制内容时保留换行利用正则替换br标签替换成回车换行符
更多>>随机抽取信息
根据页面模板动态生成html页面
理解css里的!important是什么意思?
uni-app浏览历史记录功能实现
详谈CSS设计中import与link的区别所在
asp过滤所有html标签
一个javascript写的RGB的调色器,非常不错
一个select表单移处数据的效果,非常好用。
IIS上传文件大小解处限制的方法