Versión WAP de consulta de ubicación de número de teléfono móvil

Se completó un sitio web WAP simple y útil: versión WAP de la dirección de consulta de ubicación del número de teléfono móvil: http://hikey.net/wap
Utilice un teléfono móvil que admita WAP para verlo. No es compatible con IE.

Si su teléfono móvil no admite WAP o no está dispuesto a pagar unos centavos, puede utilizar un emulador proporcionado por gelon.net para ver mis trabajos. .
Simplemente abre esta dirección directamente
http://www.gelon.net/cgi-bin/wapalize.cgi?url=http://hikey.net/wap

//La codificación de IE debe ser chino simplificado.
//Presione la rueda de desplazamiento para desplazarse hacia abajo en la pantalla.

El

se

factura según el tráfico. No uso imágenes y no hay muchas palabras. Debería ser rentable consultar algo.

.ContentType="text/vnd.wap.wml" %>
<?xml versión="1.0" codificación="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.3//ES" " http://www.wapforum.org/DTD/wml13.dtd " >
<wml>
<card id="SJ" title="Consulta de ubicación del número de teléfono móvil">
<%
'Conexión de base de datos
tenue connstr1,conn1
const DB="xxx.mdb" 'Ruta de la biblioteca del teléfono móvil
connstr1="DBQ="+server.mappath(""&DB&"")+";DefaultDir=;DRIVER={Controlador de Microsoft Access (*.mdb)};"
establecer conn1=server.createobject("ADODB.CONNECTION")
conn1.open connstr1

'Filtrar caracteres ilegales
función chk(cadena)
si cadena<>"" entonces
chktopic=reemplazar(cadena,"'","''")
terminar si
función final
%>
<%
'Consulta móvil
si request.form("SJ")<>"" entonces
d= chk(solicitud.formulario("SJ"))
'Determinar si es un número o un número mayor a 7 dígitos
si len(d)>=7 y IsNumeric(d) entonces
c=izquierda(d,7)

'Aquí se omite mucho código
sql="seleccione * del mod donde inicio<="&c&" y final>="&c&" y mid(start,3,1)="&mid(c,3,1)&" y mid(end,3,1 )="&mid(c,3,1)&" y mid(start,4,1)="&mid(c,4,1)&" y mid(end,4,1)="&mid(c,4 ,1)&" y mid(start,5,1)="&mid(c,5,1)&" y mid(end,5,1)="&mid(c,5,1)&" y mid( inicio,6,1)="&mid(c,6,1)&" y mitad(end,6,1)="&mid(c,6,1)&" "
establecer rs=conn1.execute(sql)
si no rs.eof entonces
a=rs("ciudad")
b=rs("ciudad1")
e=rs("URL")
f=rs("gracias")
establecer rs = nada
demás
a="Lo sentimos, no se encontró ningún registro de este número"
terminar si
demás
a="Error: ¡Asegúrese de ingresar un número mayor a 7 dígitos!"
terminar si
%>
<b>Número de teléfono móvil que buscó:</b><br/>
<%=d%><br/>
<b>Dirección:</b><%=a%> <%=b%><br/>
<b>Código de área y descripción:</b><br/>
<%=e%> <%=f%>
<br/>><br/>
<%end if%>

Ingrese su número de teléfono móvil
<tamaño de entrada="8" nombre="SJ" tipo="texto" maxlength="11" />
<anchor title="Aceptar">Aceptar
<go href="index.asp" método="publicación">
<postfield nombre="SJ" valor="$SJ"/>
</go>
</anchor>
<p align="center"><b>Hikey.NET</b></p>
</tarjeta>
</wml>
<%
establecer conexión1 = nada
%>