WAP-Version der Standortabfrage für Mobiltelefonnummern

Fertigstellung einer einfachen und nützlichen WAP-Website – WAP-Version der Standortabfrageadresse für Mobiltelefonnummern: http://hikey.net/wap
Verwenden Sie zum Betrachten ein Mobiltelefon, das WAP unterstützt.

Wenn Ihr Mobiltelefon WAP nicht unterstützt oder Sie nicht bereit sind, ein paar Cent zu zahlen, können Sie zum Betrachten meiner Werke einen von gelon.net bereitgestellten Emulator verwenden .
Öffnen Sie einfach direkt diese Adresse
http://www.gelon.net/cgi-bin/wapalize.cgi?url=http://hikey.net/wap

//Die Kodierung von IE sollte vereinfachtes Chinesisch sein.
//Drücken Sie das Scrollrad, um den Bildschirm nach unten zu scrollen.

Ich

und

es gibt nicht viele Wörter. Es sollte kostengünstig sein, etwas abzufragen

.ContentType="text/vnd.wap.wml" %>
<?xml version="1.0"kodierung="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.3//EN" " http://www.wapforum.org/DTD/wml13.dtd " >
<wml>
<card id="SJ" title="Standortabfrage der Mobiltelefonnummer">
<%
'Datenbankverbindung
dimmen Sie connstr1,conn1
const DB="xxx.mdb" 'Pfad der Mobiltelefonbibliothek
connstr1="DBQ="+server.mappath(""&DB&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn1=server.createobject("ADODB.CONNECTION")
conn1.open connstr1

'Unzulässige Zeichen filtern
Funktion chk(str)
if str<>"" then
chktopic=replace(str,"'","''")
Ende wenn
Endfunktion
%>
<%
„Mobile Anfrage
if request.form("SJ")<>"" then
d= chk(request.form("SJ"))
'Bestimmen Sie, ob es sich um eine Zahl oder eine Zahl mit mehr als 7 Ziffern handelt
wenn len(d)>=7 und IsNumeric(d) dann
c=links(d,7)

„Hier wird viel Code weggelassen.“
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)&" und mid(start,4,1)="&mid(c,4,1)&" und mid(end,4,1)="&mid(c,4 ,1)&" und mid(start,5,1)="&mid(c,5,1)&" und mid(end,5,1)="&mid(c,5,1)&" und mid( start,6,1)="&mid(c,6,1)&" und mid(end,6,1)="&mid(c,6,1)&" "
set rs=conn1.execute(sql)
wenn nicht rs.eof dann
a=rs("Stadt")
b=rs("city1")
e=rs("url")
f=rs("Danke")
setze rs=nichts
anders
a="Leider wurde kein Datensatz dieser Nummer gefunden"
Ende wenn
anders
a="Fehler: Bitte stellen Sie sicher, dass Sie eine Zahl mit mehr als 7 Ziffern eingeben!"
Ende wenn
%>
<b>Mobiltelefonnummer, nach der Sie gesucht haben:</b><br/>
<%=d%><br/>
<b>Adresse:</b><%=a%> <%=b%><br/>
<b>Vorwahl und Beschreibung:</b><br/>
<%=e%> <%=f%>
<br/><br/>
<%end if%>

Bitte geben Sie Ihre Mobiltelefonnummer ein
<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>
</anchor>
<p align="center"><b>Hikey.NET</b></p>
</card>
</wml>
<%
setze conn1=nichts
%>