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

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

深山工作室 2019/9/18 22:33:05 深山工作室 字体:  浏览 2071 我要评论
纯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
%>
相关阅读
( 2020/8/10 14:37:08 )jquery实现移动端下拉加载刷新更多信息
( 2020/8/10 14:31:47 )删除程序页面代码中的注释标签
( 2020/7/20 11:23:03 )利用background-color:#000000a8在背景颜色16进制代码之后加字母加上数字让背景色透明
( 2020/6/17 14:20:58 )canvas绘制的文字如何换行
( 2020/5/4 15:19:18 )css背景使用base64编码或者将base64编码放在img图片标签中
( 2020/4/15 15:35:26 )asp利用hasOwnProperty验证某个json中的某个标签是否存在
( 2020/1/20 13:48:55 )利用css3中的-webkit-font-smoothing把网页文字的毛边去掉
( 2020/1/18 20:42:10 )兼容pc、移动端用js实现复制内容到剪切板(支持苹果safari浏览器)
共有0条关于《纯asp根据当前日期计算出当前年份的属相》的评论
发表评论
正在加载评论……
返回顶部发表评论
呢 称:
表 情:
内 容:
评论内容:不能超过 1000 字,需审核,请自觉遵守互联网相关政策法规。
验证码: 验证码 
深山工作室网友评论声明,请自觉遵守互联网相关政策法规。

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

更多信息>>栏目类别选择
rss学习
个人空间
网站设计
网站公告
下载
photoshop学习
ASP学习
DIV+CSS学习
SEO搜索引擎忧化
java学习
HTML学习
网站信息
网站类信息
更多>>同类信息
实现iis6与iis7环境下支持mp4视频随意拖动、预览播放、边下载边播放
做好的网站把http改成https申请SSL域名证书
ASP利用fso读取文件夹里所有文件的名字
asp实现获得当前文章的上一篇信息与下一篇信息功能及代码
asp导出内容到excel表并自定义命名后下载(非打开)
'禁止站外提交页面和数据
asp将中文汉字字符转为unicode编码(\u编码)与把unicode编码转为汉字
asp中qequest读取优先级顺序(通过优化之后提高速度)
更多>>最新添加文章
jquery实现移动端下拉加载刷新更多信息
删除程序页面代码中的注释标签
利用background-color:#000000a8在背景颜色16进制代码之后加字母加上数字让背景色透明
canvas绘制的文字如何换行
css背景使用base64编码或者将base64编码放在img图片标签中
asp利用hasOwnProperty验证某个json中的某个标签是否存在
利用css3中的-webkit-font-smoothing把网页文字的毛边去掉
兼容pc、移动端用js实现复制内容到剪切板(支持苹果safari浏览器)
更多>>随机抽取信息
可以用作后台的超级强的变色表格
批量删除access字段里面fld.Properties.Delete
利用asp相关的函数动态更新access数据库
来自网易空间排行宽度可以变化的选项卡
asp通过多次获得来取得用户的真实IP
CSS编写过程中常见的10个错误以及解决方法
一个可以说是超级变态,超级强的DIV+CSS应用
ASP读取json并输出