Versão WAP da consulta de localização do número de telefone celular

Concluiu um site WAP simples e útil - versão WAP do endereço de consulta de localização do número de celular: http://hikey.net/wap
Use um celular que suporte WAP para visualizá-lo. Não suporta IE.

Se seu celular não suporta WAP ou você não está disposto a pagar alguns centavos, você pode usar um emulador fornecido pela gelon.net para visualizar meus trabalhos. .
Basta abrir este endereço diretamente
http://www.gelon.net/cgi-bin/wapalize.cgi?url=http://hikey.net/wap

//A codificação do IE deve ser chinês simplificado.
//Pressione a roda de rolagem para rolar a tela para baixo.

é

não

há muitas palavras. Deve ser econômico consultar algo.

.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="Consulta de localização do número de celular">
<%
'Conexão com banco de dados
dim connstr1,conn1
const DB="xxx.mdb" 'Caminho da biblioteca do telefone móvel
connstr1="DBQ="+server.mappath(""&DB&"")+";DefaultDir=;DRIVER={Driver Microsoft Access (*.mdb)};"
definir conn1=server.createobject("ADODB.CONNECTION")
conn1.open connstr1

'Filtrar caracteres ilegais
função verificar (str)
se str<>"" então
chktopic=substituir(str,"'","''")
terminar se
função final
%>
<%
'Consulta móvel
se request.form("SJ")<>""então
d=chk(request.form("SJ"))
'Determine se é um número ou um número maior que 7 dígitos
se len(d)>=7 e IsNumeric(d) então
c=esquerda(d,7)

'Muito código é omitido aqui
sql="select * from mod onde start<="&c&" and end>="&c&" and mid(start,3,1)="&mid(c,3,1)&" and mid(end,3,1) )="&mid(c,3,1)&" e mid(start,4,1)="&mid(c,4,1)&" e mid(end,4,1)="&mid(c,4) ,1)&" e mid(start,5,1)="&mid(c,5,1)&" e mid(end,5,1)="&mid(c,5,1)&" e mid( start,6,1)="&mid(c,6,1)&" e mid(end,6,1)="&mid(c,6,1)&" "
definir rs = conn1.execute (sql)
se não rs.eof então
a=rs("cidade")
b=rs("cidade1")
e=rs("url")
f=rs("obrigado")
definir rs = nada
outro
a="Desculpe, nenhum registro deste número foi encontrado"
terminar se
outro
a="Erro: Certifique-se de inserir um número maior que 7 dígitos!"
terminar se
%>
<b>Número de celular que você pesquisou:</b><br/>
<%=d%><br/>
<b>Endereço:</b><%=a%> <%=b%><br/>
<b>Código de área e descrição:</b><br/>
<%=e%> <%=f%>
<br/><br/>
<%end if%>

Por favor, insira o número do seu celular
<input size="8" name="SJ" type="text" maxlength="11" />
<anchor title="OK">OK
<go href="index.asp" method="post">
<postfield name="SJ" value="$SJ"/>
</go>
</âncora>
<p align="center"><b>Hikey.NET</b></p>
</cartão>
</wml>
<%
definir conn1 = nada
%>