WAP版的手機(jī)號碼所在地查詢

完成了一個(gè)簡單有用的WAP網(wǎng)站--WAP版的手機(jī)號碼所在地查詢
地址： http://hikey.net/wap
用支持wap的手機(jī)查看，不支持IE哈

如果你的手機(jī)不支持WAP或者不愿意那幾分錢的話，可以用gelon.net提供的一個(gè)模擬器來看看我的作品   
直接打開這個(gè)地址就可以了
http://www.gelon.net/cgi-bin/wapalize.cgi?url=http://hikey.net/wap

//IE的編碼要選擇簡體中文哈
//按滾輪下滑屏幕

wap上網(wǎng)按流量計(jì)費(fèi)，我沒用圖片，字?jǐn)?shù)也不多
查詢點(diǎn)東西應(yīng)該還算合算哈

主要代碼:

<% 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="手機(jī)號碼所在地查詢">
<%
  ' 數(shù)據(jù)庫連接
 dim connstr1,conn1
 const DB="xxx.mdb" '手機(jī)庫路徑
   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
%>
<%
   '手機(jī)查詢
  if request.form("SJ")<>"" then
  d= chk(request.form("SJ"))
  '判斷是否為數(shù)字或者大于7位的數(shù)字
  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="對不起，沒有找到這個(gè)號碼的紀(jì)錄"
  end if
  else
  a="錯(cuò)誤:請確保你輸入的是大于7位的數(shù)字！"
  end if 
   %>
<b>您搜索的手機(jī)號碼:</b><br/>
<%=d%><br/>
<b>所在地址:</b><%=a%> <%=b%><br/>
<b>區(qū)號和描述:</b><br/>
<%=e%> <%=f%>
<br/><br/>
<%end if%>

請輸入手機(jī)號碼
<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
%>