<%@ Language=VBScript%>
<%Response.ContentType="text/vnd.wap.wml"%>

http://www.wapfourm.org/DTD/wml_1.1.xml">

　
　

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

<%　 number=Trim(Request.Form("number"))
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
%>
你查询的手机号:<%= number %>

结果如下：

省份：<%= sm %>

地区：<%= dm %>

区号：<%= qh %>

手机卡类：<%= jg %>

<% end if
%>
<% end if
%>

继续查询

 http://wap.zhangwo.cn">返回掌握中国

ITPub博客

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

最新文章