纯asp根据当前日期计算出相应的星座

以下是asp根据当前日期计算出相应的星座,以下主要是比对日期,以上是演示效果
<%
curTime = Now()
curYear = Year(curTime)
function ren_xingzuo(s_riqi)
if s_riqi="" or not isdate(s_riqi) Then exit function
s_riqimonth = right("00" & month(s_riqi),2)
s_riqiday = right("00" & day(s_riqi),2)
s_riqi = trim(s_riqimonth & s_riqiday) '重整月日,0903型
zx_sow = "摩蝎座" '先默认跨年时会使用
if s_riqi>=0120 and s_riqi<=0219 then zx_sow = "水瓶座"
if s_riqi>=0220 and s_riqi<=0320 then zx_sow = "双鱼座"
if s_riqi>=0321 and s_riqi<=0420 then zx_sow = "白羊座"
if s_riqi>=0421 and s_riqi<=0521 then zx_sow = "金牛座"
if s_riqi>=0522 and s_riqi<=0621 then zx_sow = "双子座"
if s_riqi>=0622 and s_riqi<=0722 then zx_sow = "巨蟹座"
if s_riqi>=0723 and s_riqi<=0823 then zx_sow = "狮子座"
if s_riqi>=0824 and s_riqi<=0923 then zx_sow = "处女座"
if s_riqi>=0924 and s_riqi<=1023 then zx_sow = "天秤座"
if s_riqi>=1024 and s_riqi<=1122 then zx_sow = "天蝎座"
if s_riqi>=1123 and s_riqi<=1222 then zx_sow = "射手座"
if s_riqi>=1222 and s_riqi<=0119 then zx_sow = "摩蝎座"
ren_xingzuo = zx_sow
end function
response.write "现在时间:" & curTime & "<br>"
response.write "年份:" & curYear & "<br>"
response.write "星座:" & ren_xingzuo(curTime) & "<br>"
response.end
%>
- 相关阅读
- ( 2021/1/19 22:10:48 )一次自动化批量处理服务器上几万张图片
- ( 2021/1/8 21:47:38 )uni-app三目运算class和style
- ( 2021/1/5 20:10:06 )uni-app跨端开发微信小程序时页面栈超过10层时小程序像卡死一样假性不能点击无法跳转的解决方案
- ( 2021/1/5 19:50:31 )微信小程序开发中链接navigateTo与redirectTo的对比说明
- ( 2020/12/27 21:57:47 )使用uni-app开始小程序使用腾讯视频插件vid播放视频
- ( 2020/12/18 14:43:35 )微信小程序-接入广告
- ( 2020/12/18 14:13:25 )uni-app微信小程序获得用户头像与名称
- ( 2020/12/18 14:10:56 )微信公众号生成带参数的二维码asp源码下载
- 共有0条关于《纯asp根据当前日期计算出相应的星座》的评论
- 发表评论
正在加载评论……
返回顶部发表评论
深山工作室网友评论声明,请自觉遵守互联网相关政策法规。
您发布的评论即表示同意遵守以下条款:
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家、社会、集体和公民的合法权益;
二、不得发布国家法律、法规明令禁止的内容;互相尊重,对自己在本站的言论和行为负责;
三、本站对您所发布内容拥有处置权。
- 更多>>同类信息
- asp利用hasOwnProperty验证某个json中的某个标签是否存在
- asp用BcO将二进制转八进制然后再OcB将八进制转二进制
- asp用BcH将二进制转十六进制然后再HcB将十六进制转二进制
- asp用cDec将二进制转十进制然后再用cBit将十进制转二进制
- asp采用access数据库搜索信息时因为日文片假名问题提示“Microsoft JET Database Engine 错误80040e14”的解决方法
- asp利用dateadd获得上个月、本月、下个月的第一天和最后一天
- asp随机显示字符长度与类型(可随机显示数字、小写字母、大写字母,可以做为随机密码使用)
- 更多>>最新添加文章
- 一次自动化批量处理服务器上几万张图片
- uni-app三目运算class和style
- uni-app跨端开发微信小程序时页面栈超过10层时小程序像卡死一样假性不能点击无法跳转的解决方案
- 微信小程序开发中链接navigateTo与redirectTo的对比说明
- 使用uni-app开始小程序使用腾讯视频插件vid播放视频
- 微信小程序-接入广告
- uni-app微信小程序获得用户头像与名称
- 微信公众号生成带参数的二维码asp源码下载
- 更多>>随机抽取信息
- 符合web标准的嵌入Flash的方法
- asp用BcO将二进制转八进制然后再OcB将八进制转二进制
- 纯div+css制作的弹出菜单-01
- 缩写精简不必要的css定义代码来实现控制网页文件大小
- 国内网站常用的一些 CDN 静态资源公共库加速服务
- 支持IE与firefox(火狐)的css写省略号方法
- 高度100%的绝对定位自适应布局技巧
- sql语句中怎么按照in语句里的id原有的顺序进行排序输出,可以做成浏览记录、查看、观看记录
更多标签热门标签