当前位置:编程学习 > wap >>

WAP版的手机号码所在地查询

答案:完成了一个简单有用的WAP网站--WAP版的手机号码所在地查询
地址: http://hikey.net/wap
用支持wap的手机查看,不支持IE哈

如果你的手机不支持WAP或者不愿意那几分钱的话,可以用gelon.net提供的一个模拟器来看看我的作品
直接打开这个地址就可以了
http://www.gelon.net/cgi-bin/wapalize.cgi?url=http://hikey.net/wap

//IE的编码要选择简体中文哈
//按滚轮下滑屏幕

wap上网按流量计费,我没用图片,字数也不多
查询点东西应该还算合算哈

主要代码:

<% Response.ContentType="text/vnd.wap.wml" %>
<?xml version="1.0" encoding="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.3//EN" "http://www.wapforum.org/DTD/wml13.dtd" >
<wml>
<card id="SJ" title="手机号码所在地查询">
<%
' 数据库连接
dim connstr1,conn1
const DB="xxx.mdb" '手机库路径
connstr1="DBQ="+server.mappath(""&DB&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn1=server.createobject("ADODB.CONNECTION")
conn1.open connstr1

'过滤非法字符
function chk(str)
if str<>"" then
chktopic=replace(str,"'","''")
end if
end function
%>
<%
'手机查询
if request.form("SJ")<>"" then
d= chk(request.form("SJ"))
'判断是否为数字或者大于7位的数字
if len(d)>=7 and IsNumeric(d) then
c=left(d,7)

'这里省略了很多代码
sql="select * from mod where start<="&c&" and end>="&c&" and mid(start,3,1)="&mid(c,3,1)&" and mid(end,3,1)="&mid(c,3,1)&" and mid(start,4,1)="&mid(c,4,1)&" and mid(end,4,1)="&mid(c,4,1)&" and mid(start,5,1)="&mid(c,5,1)&" and mid(end,5,1)="&mid(c,5,1)&" and mid(start,6,1)="&mid(c,6,1)&" and mid(end,6,1)="&mid(c,6,1)&" "
set rs=conn1.execute(sql)
if not rs.eof then
a=rs("city")
b=rs("city1")
e=rs("url")
f=rs("thank")
set rs=nothing
else
a="对不起,没有找到这个号码的纪录"
end if
else
a="错误:请确保你输入的是大于7位的数字!"
end if
%>
<b>您搜索的手机号码:</b><br/>
<%=d%><br/>
<b>所在地址:</b><%=a%> <%=b%><br/>
<b>区号和描述:</b><br/>
<%=e%> <%=f%>
<br/><br/>
<%end if%>

请输入手机号码
<input size="8" name="SJ" type="text" maxlength="11" />
<anchor title="确定">确定
<go href=><postfield name="SJ" value="$SJ"/>
</go>
</anchor>
<p align="center"><b>Hikey.NET</b></p>
</card>
</wml>
<%
set conn1=nothing
%>

上一个:让你的WAP网站有更好的兼容性
下一个:实现点击图片连接时选择直接打开或下载

更多图片编程知识:
更多wap疑问解答:
为什么程序都退出了还可以收到推送?如果大多设备都可以推送那运营商怎么办?
qt 4.7 sqlserver2000 存储过程调用
Android FrameBuffer读屏幕30秒后mmap失败
联通粗定位用java程序如何来请求和接受数据
为什么QT运行Android平台的程序时,mouseMoveEvent事件响应的间隔时间很长??????????
android与PC蓝牙通讯
指定大小的label 内容可变,如果内容超出label的宽度,将未能显示的部分显示在另一个label上
android如何通过wifi连接无线打印机
运行程序,release目录下产生一个乱码文件夹
分享个某机构最新安卓资料,自己验证了
求助:QT5.0 没有QPrinter吗
直接调用 openmax IL 做 h264 解码, 有人会吗?
android在锁屏界面之上添加一个View
Bada模拟器如何访问pc机上的web
18396828106@163.com
asp
php
Delphi
Matlab
JSP
Foxpro
JS
C/C++
C#/ASP.NET
VC++
JAVA
VB
汇编语言
html/css
CGI
XML/UML
wap
网站相关
网页素材
python
如果你遇到编程学习难题:
请访问www.zzzyk.com 试试
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,