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

绝地灬酷狼 2022-08-24 00:49 150阅读 0赞

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

如果你的手机不支持WAP或者不愿意那几分钱的话，可以用我最近做的一个模拟器来看看我的作品  
直接打开这个地址就可以了  
[http://www.hikey.net/wr/?http://hikey.net/wap][http_www.hikey.net_wr_http_hikey.net_wap]

wap上网按流量计费，我没用图片，字数也不多  
查询点东西应该还算合算哈  
下一步的打算是做一个WAP网址站或者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 
%> 
您搜索的手机号码: 
<%=d%> 
所在地址:<%=a%> <%=b%> 
区号和描述: 
<%=e%> <%=f%> 
 
<%end if%>

请输入手机号码 
<input size="8" name="SJ" type="text" maxlength="11" /> 
<anchor title="确定">确定 
<go href="index.asp" \_fcksavedurl=""index.asp"" method="post"> 
<postfield name="SJ" value="$SJ"/> 
</go> 
</anchor> 
Hikey.NET 
</card> 
</wml> 
<% 
set conn1=nothing 
%>

[http_hikey.net_wap]: http://hikey.net/wap
[http_www.hikey.net_wr_http_hikey.net_wap]: http://www.hikey.net/wml/?http://hikey.net/wap