首页  »  网页设计教程  »  WAP版的手机号码所在地查询

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

浏览数:共 50 次     评论:共 0 条     发布日期:2011-08-17     分类:asp

地址: http://hikey.net/wap
用支持wap的手机查看,不支持ie哈

直接打开这个地址就可以了
http://www.gelon.net/cgi-bin/wapalize.cgi?url=http://hikey.net/wap

//按滚轮下滑屏幕

查询点东西应该还算合算哈

<?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="index.asp" method="post">
<postfield name="sj" value="$sj"/>
</go>
</anchor>
<p align="center"><b>hikey.net</b></p>
</card>
</wml>
<%
set conn1=nothing
%>



上一篇:让你的WAP网站有更好的兼容性
下一篇:asp模仿 Lotus Notes 的界面程序