手机归属地查询程序（转）

最新推荐文章于 2025-05-09 18:14:12 发布

转载最新推荐文章于 2025-05-09 18:14:12 发布 · 158 阅读

<?xml version="1.0" encoding="gb2312"?>
ttp://www.wapfourm.org/DTD/wml_1.1.xml" target="_blank">http://www.wapfourm.org/DTD/wml_1.1.xml">

　
　

　 http://wap.zhangwo.cn"/>

if Len(number)<>11 then
Response.Write " 手机号应该为11位! "
else
numbe = Left(number,7)
　　db="zhangwocn.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
set rs=server.CreateObject("adodb.recordset")
　　rs.Open "select * from [mobile] where "&numbe&">=number1 and "&numbe&"<=number2 " ,conn,1,1
　　　　if rs.recordcount = 0 then
　　　　Response.Write "对不起，没有你要查询的号码!"
else
　　　　sm=rs("sm")
　　　　dm=rs("dm")
　　　　qh=rs("qh")
jg=rs("jg")　　　
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
你查询的手机号:

结果如下：

省份：

地区：

区号：

手机卡类：

%>
%>