Завершен простой и полезный WAP-сайт - WAP-версия адреса запроса местоположения номера мобильного телефона: http://hikey.net/wap.
Для просмотра используйте мобильный телефон с поддержкой WAP. Он не поддерживает IE.
Если ваш мобильный телефон не поддерживает WAP или вы не готовы платить несколько центов, вы можете использовать эмулятор, предоставленный gelon.net, для просмотра моих работ. .
Просто откройте этот адрес напрямую
http://www.gelon.net/cgi-bin/wapalize.cgi?url=http://hikey.net/wap
//Кодировка IE должна быть упрощенной китайской.
//Нажмите колесо прокрутки, чтобы прокрутить экран вниз.
Оплата за доступ в Интернет осуществляется в зависимости от трафика. Я не использую изображения и не так много слов. Запросить что-либо должно быть экономически выгодно.
Основной код:
<% Response. .ContentType="text/vnd.wap.wml" %>
<?xml version="1.0"coding="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.3//EN" " http://www.wapforum.org/DTD/wml13.dtd " >
<wml>
<card id="SJ" title="Запрос местоположения номера мобильного телефона">
<%
'Подключение к базе данных
тусклый коннстр1, конн1
const DB="xxx.mdb" 'Путь к библиотеке мобильных телефонов
connstr1="DBQ="+server.mappath(""&DB&"")+";DefaultDir=;DRIVER={Драйвер Microsoft Access (*.mdb)};"
set conn1=server.createobject("ADODB.CONNECTION")
conn1.open connstr1
'Фильтровать недопустимые символы
функция chk(строка)
если str<>"" тогда
chktopic=replace(str,"'","''")
конец, если
конечная функция
%>
<%
'Мобильный запрос
если request.form("SJ")<>"" тогда
d = chk(request.form("SJ"))
'Определить, является ли это числом или числом, состоящим более чем из 7 цифр
если len(d)>=7 и IsNumeric(d), то
с = влево (д, 7)
'Здесь опущено много кода
sql="select * из мода, где start<="&c&" и end>="&c&" и Mid(start,3,1)="&mid(c,3,1)&" и Mid(end,3,1 )="&mid(c,3,1)&" и Mid(start,4,1)="&mid(c,4,1)&" и Mid(end,4,1)="&mid(c,4 ,1)&" и middle(start,5,1)="&mid(c,5,1)&" и middle(end,5,1)="&mid(c,5,1)&" и mid( start,6,1)="&mid(c,6,1)&" и middle(end,6,1)="&mid(c,6,1)&" "
установите rs=conn1.execute(sql)
если не rs.eof, то
а=rs("город")
b=rs("город1")
е=rs("URL")
f=rs("спасибо")
установить rs=ничего
еще
a="К сожалению, запись с этим номером не найдена"
конец, если
еще
a="Ошибка: убедитесь, что вы вводите число, содержащее более 7 цифр!"
конец, если
%>
<b>Номер мобильного телефона, который вы искали:</b><br/>
<%=d%><br/>
<b>Адрес:</b><%=a%> <%=b%><br/>
<b>Код и описание города:</b><br/>
<%=e%> <%=f%>
<br/><br/>
<%end if%>
Введите номер своего мобильного телефона
<input size="8" name="SJ" type="text" maxlength="11" />
<anchor title="ОК">ОК
<go href="index.asp" метод="post">
<postfield name="SJ" value="$SJ"/>
</go>
</якорь>
<p align="center"><b>Hikey.NET</b></p>
</карта>
</wml>
<%
установить conn1=ничего
%>