当前位置：K88软件开发 → 文章中心 → 编程语言 → Asp → Asp01 → 文章内容

asp星座函数：根据用户的生日得到他的所属星座

减小字体 增大字体 作者：佚名     来源：asp编程网  发布时间：2018-12-30 8:34:01

经常在一些社交网站上可以看到某个用户所属的星座，这里介绍一个asp函数，用来读取用户的生日，来显示他所属的星座。
代码如下：
'日期转换星座函数,参数是日期型function astro(birth)astro=""if birth="" or not isdate(birth) Then exit functionbirthmonth=month(birth) if birthmonth<
10 then birthmonth="0" &
 birthmonthbirthday=day(birth) if birthday<
10 then birthday="0" &
 birthdaybirth=trim(birthmonth &
 birthday) '重整月日,0903型rAstro=split("水瓶座*0120*0219
#双鱼座*0220*0320
#白羊座*0321*0420
#金牛座*0421*0521
#双子座*0522*0621
#巨蟹座*0622*0722
#狮子座*0723*0823
#处女座*0824*0923
#天秤座*0924*1023
#天蝎座*1024*1122
#射手座*1123*1222
#摩蝎座*1222*0119
#","
#")astro="摩蝎座" '这个是跨年的，不好对比，先默认for i_ls=0 to ubound(rAstro)-2 rls2=split(rAstro(i_ls) &
 "*","*") if birth>
=rls2(1) and birth<
=rls2(2) then  astro=rls2(0)  exit for end ifnextend function
(鼠标移到代码上去，在代码的顶部会出现四个图标，第一个是查看源代码，第二个是复制代码，第三个是打印代码，第四个是帮助)
这个asp函数的使用方法
<
%response.write astro("1988-8-8")%>
(鼠标移到代码上去，在代码的顶部会出现四个图标，第一个是查看源代码，第二个是复制代码，第三个是打印代码，第四个是帮助)


asp星座函数：根据用户的生日得到他的所属星座



[] [返回上一页] [打 印]

文章评论评论内容只代表网友观点，与本站立场无关！