<% sql="update c set v=v+1" conn.execute(sql) sql="select top 1 v,c from c " set rs=conn.execute(sql) if not rs.eof then v=rs(0) c=rs(1) else v=0 c=0 end if if trim(request("submit"))<>"" then mp=trim(request("mp")) mp=mp+0 if mp+0<>mp then msg="sorry! 你输入了非数字!" elseif len(mp)<11 then msg="Sorry!你输入的数字长度小于11位!" elseif len(mp)>11 then msg="sorry!你输入的数字长度大于11位!" elseif left(mp,2)<>"13"then msg="sorry!你输入的是非手机号码!" else nu=mp / 80 nums=split(nu,".") nnu="0."&nums(1) nnu=nnu+0 ernu=nnu*80 msg=getnu(ernu) call addmono sql="update c set c=c+1 " conn.execute(sql) end if end if sub addmono set rs=Server.CreateObject("ADODB.Recordset") rs.open "mono",conn,1,3 rs.AddNew rs("mono")=mp rs.Update end sub function getnu(intmp) intmp=int(intmp) sql="select top 1 des,wor 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 %> 罗盘东定之手机号码吉凶测试查询 — 仅供娱乐

罗盘东定--精准品质,誉满全球!http://www.luopan.com.cn

  网站首页 文章中心 风水论坛 风水商城 风水导航  
请输入11位手机号码
手机号码:
 
   
   <%=msg%>
 
访问数:<%=v%>    查询数:<%=c%>
罗盘东定之手机号码测吉凶