Réalisation d'un site Web WAP simple et utile - version WAP de l'adresse de requête de localisation du numéro de téléphone mobile : http://hiky.net/wap
Utilisez un téléphone mobile prenant en charge le WAP pour le visualiser. Il ne prend pas en charge IE.
Si votre téléphone mobile ne prend pas en charge le WAP ou si vous n'êtes pas prêt à payer quelques centimes, vous pouvez utiliser un émulateur fourni par gelon.net pour visualiser mes œuvres. .
Ouvrez simplement cette adresse directement
http://www.gelon.net/cgi-bin/wapalize.cgi?url=http://hiky.net/wap
//Le codage d'IE doit être en chinois simplifié.
//Appuyez sur la molette de défilement pour faire défiler l'écran.
L'accès Internet Wap est facturé en fonction du trafic. Je n'utilise pas d'images et il n'y a pas beaucoup de mots. Il devrait être rentable d'interroger quelque chose.
Code principal :
<% Réponse
..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="Requête de localisation du numéro de téléphone portable">
<%
'Connexion à la base de données
faible connstr1, conn1
const DB="xxx.mdb" 'Chemin de la bibliothèque du téléphone mobile
connstr1="DBQ="+server.mappath(""&DB&"")+";DefaultDir=;DRIVER={Pilote Microsoft Access (*.mdb)};"
set conn1=server.createobject("ADODB.CONNECTION")
conn1.open connstr1
'Filtrer les caractères illégaux
fonction chk(str)
si str<>"" alors
chktopic=replace(str,"'","''")
finir si
fonction de fin
%>
<%
'Enquête mobile
si request.form("SJ")<>"" alors
d= chk(request.form("SJ"))
'Déterminez s'il s'agit d'un nombre ou d'un nombre supérieur à 7 chiffres
si len(d)>=7 et IsNumeric(d) alors
c=gauche(d,7)
'Beaucoup de code est omis ici
sql="select * from mod which start<="&c&" et end>="&c&" et mid(start,3,1)="&mid(c,3,1)&" et mid(end,3,1 )="&mid(c,3,1)&" et mid(start,4,1)="&mid(c,4,1)&" et mid(end,4,1)="&mid(c,4 ,1)&" et mid(start,5,1)="&mid(c,5,1)&" et mid(end,5,1)="&mid(c,5,1)&" et mid( start,6,1)="&mid(c,6,1)&" et mid(end,6,1)="&mid(c,6,1)&" "
définir rs=conn1.execute(sql)
sinon rs.eof alors
a=rs("ville")
b=rs("ville1")
e=rs("url")
f=rs("merci")
définir rs = rien
autre
a="Désolé, aucune trace de ce numéro n'a été trouvée"
finir si
autre
a="Erreur : assurez-vous de saisir un nombre supérieur à 7 chiffres !"
finir si
%>
<b>Numéro de téléphone portable que vous avez recherché :</b><br/>
<%=d%><br/>
<b>Adresse :</b><%=a%> <%=b%><br/>
<b>Indicatif régional et description :</b><br/>
<%=e%> <%=f%>
<br/><br/>
<%end if%>
Veuillez saisir votre numéro de téléphone portable
<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>
</ancre>
<p align="center"><b>Hikey.NET</b></p>
</carte>
</wml>
<%
définir conn1 = rien
%>