<% '手机程序段 if trim(request("submit"))<>"" then mobilep=trim(request("mobilep")) if isnumeric(mobilep)=false then ms_g="你输入了非数字!请重新输入." elseif len(mobilep)<11 then ms_g="你输入的数字长度小于11位!请在核对后输入." elseif len(mobilep)>11 then ms_g="你输入的数字长度大于11位!请在核对后输入." elseif left(mobilep,2)<>"13"then ms_g="你输入的是非手机号码!请重新输入." else nu=mobilep /100.11111111111 nums=split(nu,".") nnu="0."&nums(1) ernu=nnu*100 ms_g=getnu(ernu) 'conn.execute("update view2 set searchm=searchm+1") end if else 'conn.execute("update view1 set viewm=viewm+1") end if function getnu(intmp) intmp=int(intmp) sql="select top 1 think,xj,id from dat where num="&intmp&" " set rs=conn.execute(sql) if not rs.eof then getnu=rs(0) & "" & ""&rs(1)&"" else getnu="非法的数据!请重新输入." end if end function 'QQ程序段 if trim(request("submit1"))<>"" then mobilep1=trim(request("mobilep1")) if isnumeric(mobilep1)=false then ms_g1="你输入了非数字!请重新输入。" elseif len(mobilep1)>10 then ms_g1="你输入的QQ号码长度大于10位!请在核对后输入。" elseif len(mobilep1)<5 then ms_g1="你输入的数字长度小于5位!请重新输入。" else nu1=mobilep1 /100.11111111111 nums=split(nu1,".") nnu="0."&nums(1) ernu=nnu*100 ms_g1=getnu(ernu) end if end if function getnu(intmp) intmp=int(intmp) sql="select top 1 think,xj,id from dat where num="&intmp&" " set rs=conn.execute(sql) if not rs.eof then getnu=rs(0) & "" & "" &rs(1)&" " else getnu="非法数据!" end if end function '电话号码程序段 if trim(request("submit2"))<>"" then mobilep2=trim(request("mobilep2")) if isnumeric(mobilep2)=false then ms_g2="你输入了非数字!请重新输入." elseif len(mobilep2)>8 then ms_g2="你输入的电话号码长度大于8位!请在核对后输入." elseif len(mobilep2)<7 then ms_g2="你输入的电话号码长度小于7位!请重新输入." else nu2=mobilep2/100.11111111111 nums=split(nu2,".") nnu="0."&nums(1) ernu=nnu*100 ms_g2=getnu(ernu) conn.execute("update view2 set searchm=searchm+1") end if else 'conn.execute("update view2 set viewm=viewm+1") end if function getnu(intmp) intmp=int(intmp) sql="select top 1 think,xj,id from dat where num="&intmp&" " set rs=conn.execute(sql) if not rs.eof then getnu=rs(0) & "" & ""&rs(1)&"" else getnu="非法数据!" end if end function '身份证程序段 if trim(request("submit3"))<>"" then mobilep3=trim(request("mobilep3")) if isnumeric(mobilep3)=false then ms_g3="你输入了非数字!请重新输入." elseif len(mobilep3)>18 then ms_g3="你输入的身份证长度大于18位!请在核对后输入." elseif len(mobilep3)<15 then ms_g3="你输入的身份证号码长度小于15位!请重新输入." else nu3=mobilep3/100.1111111111111 nums=split(nu3,".") nnu="0."&nums(1) ernu=nnu*100 ms_g3=getnu(ernu) end if end if function getnu(intmp) intmp=int(intmp) sql="select top 1 think,xj,id from dat where num="&intmp&" " set rs=conn.execute(sql) if not rs.eof then getnu=rs(0) & "" & ""&rs(1)&"" else getnu="非法数据!" end if end function '出生年月 if trim(request("submit4"))<>"" then mobilep4=trim(request("mobilep4")) if isnumeric(mobilep4)=false then ms_g4="你输入了非数字!请重新输入." elseif len(mobilep4)>8 then ms_g4="你输入的出生年月长度大于8位!请在核对后输入." elseif len(mobilep4)<8 then ms_g4="你输入的出生年月长度小于8位!请重新输入." else nu4=mobilep4/100.1111111111111 nums=split(nu4,".") nnu="0."&nums(1) ernu=nnu*100 ms_g4=getnu(ernu) end if end if function getnu(intmp) intmp=int(intmp) sql="select top 1 think,xj,id from dat where num="&intmp&" " set rs=conn.execute(sql) if not rs.eof then getnu=rs(0) & "" & ""&rs(1)&"" else getnu="非法数据!" end if end function '心跳次数 if trim(request("submit5"))<>"" then mobilep5=trim(request("mobilep5")) if isnumeric(mobilep5)=false then ms_g5="你输入了非数字!请重新输入." elseif len(mobilep5)>3 then ms_g5="你输入的心跳次数大于3位!请在核对后输入." elseif len(mobilep5)<1 then ms_g5="你输入的心跳次数小于1位!请重新输入." else nu5=mobilep5/100.1111111111111 nums=split(nu5,".") nnu="0."&nums(1) ernu=nnu*100 ms_g5=getnu(ernu) end if end if function getnu(intmp) intmp=int(intmp) sql="select top 1 think,xj,id from dat where num="&intmp&" " set rs=conn.execute(sql) if not rs.eof then getnu=rs(0) & "" & ""&rs(1)&"" else getnu="非法数据!" end if end function %> 要算命-心跳算命 心跳占卜 1suanming.cn
 
心跳次数凶吉
 
心跳次数(如:80)
<%=ms_g5%>