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

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

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

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

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

主要代码:

<% Re***nse.ContentType="te***vnd.wap.wml" %>

  http://ww***pforum.org/DTD/wml13.dtd">http://ww***pforum.org/DTD/wml13.dtd" >
 
 
<%
  ' 数据库连接
 dim connstr1,conn1
 const DB="xxx.mdb" '手机库路径
   connstr1="DBQ="+se***r.mappath(""&DB&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
   set co***=server.createobject("AD***.CONNECTION")
   co***.open connstr1

  '过滤非法字符
function chk(str)
 if str<>"" then
 chktopic=replace(str,"'","''")
 end if
end function
%>
<%
   '手机查询
  if re***st.form("SJ")<>"" then
  d= chk(re***st.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***nn1.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%>

请输入手机号码

确定
in***.asp" method="post">

Hi***.NET