当前位置:主页 > 网页教程 > 网页制作 > wap网站教程 > 内容欢迎大家投稿

手机归属地查询程序

时间:2009-10-03 10:54来源:未知 作者:大宝库 点击:读取中
阅读工具:字体:

<%@ Language=VBScript%>
<%Response.ContentType="text/vnd.wap.wml"%>
<?xml version="1.0" encoding="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapfourm.org/DTD/wml_1.1.xml">
<wml>
<head>
  <meta http-equiv="Cache-control" content="max-age=0" />
  <meta http-equiv="Cache-control" content="no-cache" />
</head>
<card title="手机归属地查询::掌握中国WAP门户">
<do type ="options" label='回首页'>
  <go href="http://wap.zhangwo.cn"/>
</do>
<p>
<%  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 %><br/>
结果如下:<br/>
省份:<%= sm %><br/>
地区:<%= dm %><br/>
区号:<%= qh %><br/>
手机卡类:<%= jg %><br/>
<% end if
%>
<% end if
%>
</p>
<p>
<a href="index.wml">继续查询</a><br/>
<a href="http://wap.zhangwo.cn">返回掌握中国</a>
</p>
</card>
</wml>

(责任编辑:大宝库)


------分隔线----------------------------
推荐内容
  • WAP手机上网问题问与答

    一、我如何键入网址? 1、打开手机,进入服务功能选项 2、按下确定键 3、选中书签 4、...

  • WML语法大全

    WML是一种基于XML(扩展标记语言)的一种标记语言。这种语言是为无线设备用户提供交互...

  • 全面解析WAP技术

    什么是WAP WAP就是无线应用协议(WirelessApplicationProtocol)的简称。虽然它跟联合国...

  • 用QuickWAP组件建设Wap站点

    用QuickWAP组件建设Wap站点教程-准备篇 首先我们要简单了解一下什么是QuickWAP,Quick...

赞助商链接
赞助商链接