<%
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
%>
罗盘东定之手机号码吉凶测试查询 — 仅供娱乐
