<% Function vmod(a,b) vmod=a-b*Int(a/b) End function %> <% dim doubutu(60) doubutu(0)=9 doubutu(1)=5 doubutu(2)=2 doubutu(3)=8 doubutu(4)=11 doubutu(5)=10 doubutu(6)=9 doubutu(7)=5 doubutu(8)=2 doubutu(9)=8 doubutu(10)=11 doubutu(11)=1 doubutu(12)=4 doubutu(13)=12 doubutu(14)=3 doubutu(15)=8 doubutu(16)=11 doubutu(17)=1 doubutu(18)=4 doubutu(19)=12 doubutu(20)=3 doubutu(21)=6 doubutu(22)=6 doubutu(23)=3 doubutu(24)=12 doubutu(25)=12 doubutu(26)=3 doubutu(27)=6 doubutu(28)=6 doubutu(29)=3 doubutu(30)=12 doubutu(31)=4 doubutu(32)=1 doubutu(33)=11 doubutu(34)=8 doubutu(35)=3 doubutu(36)=12 doubutu(37)=4 doubutu(38)=1 doubutu(39)=11 doubutu(40)=8 doubutu(41)=2 doubutu(42)=5 doubutu(43)=9 doubutu(44)=10 doubutu(45)=11 doubutu(46)=8 doubutu(47)=2 doubutu(48)=5 doubutu(49)=9 doubutu(50)=10 doubutu(51)=7 doubutu(52)=7 doubutu(53)=10 doubutu(54)=9 doubutu(55)=9 doubutu(56)=10 doubutu(57)=7 doubutu(58)=7 doubutu(59)=10 doubutu(60)=9 dim d12(12) d12(1)="こじか" d12(2)="たぬき" d12(3)="ひつじ" d12(4)="ゾウ" d12(5)="チータ" d12(6)="ペガサス" d12(7)="ライオン" d12(8)="猿" d12(9)="虎" d12(10)="黒ひょう" d12(11)="子守熊(コアラ)" d12(12)="狼" 'パロディー占い dim paro(120) paro(0)=10 paro(1)=9 paro(2)=2 paro(3)=5 paro(4)=2 paro(5)=12 paro(6)=9 paro(7)=12 paro(8)=3 paro(9)=11 paro(10)=6 paro(11)=2 paro(12)=9 paro(13)=7 paro(14)=1 paro(15)=2 paro(16)=12 paro(17)=10 paro(18)=13 paro(19)=9 paro(20)=1 paro(21)=11 paro(22)=8 paro(23)=8 paro(24)=5 paro(25)=6 paro(26)=13 paro(27)=10 paro(28)=11 paro(29)=13 paro(30)=5 paro(31)=9 paro(32)=9 paro(33)=12 paro(34)=13 paro(35)=3 paro(36)=10 paro(37)=2 paro(38)=11 paro(39)=4 paro(40)=7 paro(41)=3 paro(42)=13 paro(43)=3 paro(44)=9 paro(45)=8 paro(46)=4 paro(47)=10 paro(48)=11 paro(49)=12 paro(50)=3 paro(51)=10 paro(52)=4 paro(53)=13 paro(54)=1 paro(55)=9 paro(56)=6 paro(57)=10 paro(58)=1 paro(59)=8 paro(60)=11 paro(61)=6 paro(62)=7 paro(63)=13 paro(64)=6 paro(65)=9 paro(66)=11 paro(67)=9 paro(68)=2 paro(69)=10 paro(70)=6 paro(71)=6 paro(72)=6 paro(73)=1 paro(74)=5 paro(75)=3 paro(76)=3 paro(77)=10 paro(78)=8 paro(79)=13 paro(80)=4 paro(81)=11 paro(82)=10 paro(83)=5 paro(84)=12 paro(85)=8 paro(86)=7 paro(87)=9 paro(88)=5 paro(89)=11 paro(90)=9 paro(91)=1 paro(92)=4 paro(93)=9 paro(94)=10 paro(95)=4 paro(96)=10 paro(97)=7 paro(98)=4 paro(99)=6 paro(100)=4 paro(101)=12 paro(102)=13 paro(103)=7 paro(104)=10 paro(105)=8 paro(106)=5 paro(107)=3 paro(108)=1 paro(109)=3 paro(110)=2 paro(111)=5 paro(112)=7 paro(113)=9 paro(114)=6 paro(115)=13 paro(116)=5 paro(117)=2 paro(118)=1 paro(119)=2 dim ps13(13) ps13(1)="黒色言語:きっぱりしている。ドスが効いている。" ps13(2)="銀色言語:楽しいことがいっぱい。一人でくすくす。" ps13(3)="灰色言語:冷静な観察力のせいで、世の中不満でたまらない。実は抜け目ない。" ps13(4)="白色言語:不思議な空想の世界の人。先進的すぎて理解が困難。" ps13(5)="青色言語:独特な視点を世界に押し広める力、偏屈なのに。" ps13(6)="緑色言語:正義の味方。無敵のヒーロー。澄んだ瞳" ps13(7)="金色言語:世の中のテンポが遅すぎるのか。元気者。超エネルギッシュ。" ps13(8)="水色言語:仲間は鏡の代わり。とってもナルシスト" ps13(9)="赤色言語:チャーミングな笑顔。みんなのアイドル" ps13(10)="桃色言語:本格派でなおかつ天才肌。早口" ps13(11)="茶色言語:ほんわか。おちつかせる。やさしい。人が良すぎてちょっとずれてる。" ps13(12)="紫色言語:危ない。ぶっ飛んでいる。バリバリ。" ps13(13)="黄色言語:真っ正直。遠く大きな夢へまじめに努力している。" ta=request.form("T1")+0 tb=request.form("T2")+0 tc=request.form("T3")+0 birth= DateSerial( ta, tb, tc ) '曜日 w=weekday(birth) '干支 from_start=birth+8 n_k=Int(from_start/10) kan=from_start-10*n_k n_s=Int(from_start/12) shi=from_start-12*n_s n_ks=Int(from_start/60) kanshi_no=Cint(from_start-60*n_ks+1) '動物占い doubutu_no=doubutu(kanshi_no) doubutu_mei=d12(doubutu_no) 'パロディー from_start1=from_start+1 n_paro=Int(from_start1/120) paro_120=Cint(from_start1-120*n_paro) paro_no=paro(paro_120) paro_seikaku=ps13(paro_no) '生存 live=Int(now()-birth) pp=vmod(live,23) ss=vmod(live,28) ii=vmod(live,33) p2=atn(1)*8 p_s=FormatNumber(sin(p2*pp/23),2) s_s=FormatNumber(sin(p2*ss/28),2) i_s=FormatNumber(sin(p2*ii/33),2) %>

生年月日<% = FormatDateTime( birth , 1 ) %> 生まれ

生まれてから <%=live%>日間生きています。 再入力

干支は <%=mid("甲乙丙丁戊己庚辛壬癸",1+kan,1) & mid("子丑寅卯辰巳午未申酉戌亥",1+shi,1) %>

干支番号が<%=kanshi_no%>で共通する有名人のリスト

動物占い

最近流行の動物占いは、干支をもとにしているのでついでに調べて置きます。「<%=doubutu_mei%> 」 でした。

「<%=doubutu_mei%>」の有名人リスト。 当たっていると思いますか?

言語占い。

言語占い 対抗して作ってみました。

この人の話すのは、<%=paro_seikaku%>こんな感じです。 

バイオリズム

肉体<%=p_S%> 感情<%=s_s%> 知性<%=i_s%> (P=<%=pp%> S=<%=ss%> I=<%=ii%>)

2006/11/20更新

mail