完成了一个简单有用的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="index.asp" method="post">
　　<postfield name="SJ" value="$SJ"/>
　　</go>
　　</anchor>
　　<p align="center"><b>Hikey.NET</b></p>
　　</card>
　　</wml>
　　<%
　　set conn1=nothing
　　%>